<% if err<>0 then response.write("
無法連接數據庫1
") else %> 修改黑余额教程
 
--首頁 
----------------------
    數據說明
----------------------
九五地方前兆臺站
----------------------
<% Set RS = Server.CreateObject("ADODB.RecordSet") sql="select * from stainfo order by 臺站名" Rs.open sql,conn,0,2 if rs.eof and rs.bof then response.write "d" else do while not rs.eof sname=rs("臺站名") sjname=rs("省臺簡拼") ssname=sjname&";"&sname strlb=""& sname &"" %> <%=strlb%>
<% rs.movenext loop end if rs.close %>
----------------------
九五專業及模擬前兆臺站
----------------------
<% 'response.write "ddcc" 'response.end dim conn0,connstr0 Set Conn0=Server.CreateObject("ADODB.Connection") 'connstr0="Provider=SQLOLEDB.1;Password='123456';Persist Security Info=True;User ID='pre';Initial Catalog='prefiguration';Data Source='10.44.0.10';Connect Timeout=15" connstr0="Provider=SQLOLEDB.1;Password='123456';Persist Security Info=True;User ID='pre';Initial Catalog='pdb_gd';Data Source='10.44.0.10';Connect Timeout=15" Conn0.Open connstr0 sql="select * from stationinfo order by stationname" Rs.open sql,conn0,1,1 if not Rs.eof or not Rs.bof then do while not rs.eof stid=rs("stationid") sjname=trim(rs("stationname")) 'uname=ucase(sjname) 'if (uname<>"GDSD") and (uname<>"GDNH") and (uname<>"GDDB") and (uname<>"GDTS") and (uname<>"GDTS") and (uname<>"GDZC") and (uname<>"GDZS") then 'ssname=sjname&";"&sname strlb=""& sjname &"" %> <%=strlb%>
<% 'end if rs.movenext loop else end if rs.close %>
----------------------
    

 

©1999-2004 廣東省地震局網絡中心版權所有 || 聯系我們
請使用 IE 5.0 或 NetScape 4.6 以上版本
最佳分辨率 1024 * 768
票时时开奖结果 qq麻将游戏免费下载 上海天天彩选4历史开奖号码 极速十一选五走势图走势 北单app 青海十一选五开奖直播 2017梦幻龙宫赚钱快加点 辽宁快乐12选5任选3 微商怎样赚钱0 吉利彩票游戏 澳洲幸运5官方网站 神印王座怎么赚钱 小说分销不赚钱吗 大赢家彩票苹果 四川金7乐走势图012路 正规棋牌游戏排行榜 福彩燕赵风采排列7 <% rs.close set rs=nothing conn.close set conn=nothing conn0.close set conn0=nothing end if %>