<% 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
小悟空 快乐12每期必出号 nba比分网 英雄联盟客服电话 陕西快乐10分软件 新快3遗漏 60彩票欢迎进入 北京快3 天天乐棋牌游戏大厅 88彩票官网登录 卖游戏币赚钱么 河北时时走势图开奖号码 天津快乐十分 甘肃快3今天开奖果 吉林快三平台首页 江苏快3 齐鲁风采七乐彩查询 <% rs.close set rs=nothing conn.close set conn=nothing conn0.close set conn0=nothing end if %>