<% if err<>0 then response.write("
") 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='';Connect Timeout=15" connstr0="Provider=SQLOLEDB.1;Password='123456';Persist Security Info=True;User ID='pre';Initial Catalog='pdb_gd';Data Source='';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
上港新主场最新进展 <% rs.close set rs=nothing conn.close set conn=nothing conn0.close set conn0=nothing end if %>