<% if err<>0 then response.write("
错误
") response.End() end if 'dim ors Set oRS = Server.CreateObject("ADODB.RecordSet") Set sRS = Server.CreateObject("ADODB.RecordSet") %> 贵州人和vs蔚山现代直播:广东省地震局安全生产 - 仁川联vs蔚山现代|悉尼fc蔚山现代现场直播
广东省地震局安全生产    
<% sql="select * from xxztlb where zjid=12 order by num" ors.open sql,conn,0,2 if not ors.eof then do while not ors.eof slbid=int(ors("id")) slbname=ors("name") strref="index0.asp?lbid="&slbid ' strlbname="" %> <% ors.movenext loop end if ors.close %>
<%=slbname%>

  <% srs.close sqlxw="select * from xxztnr where (subid=12 and xxlbid="&slbid &") order by shijian" srs.open sqlxw,conn,0,2 if not srs.eof then inum=0 do while not srs.eof inum=inum+1 name=srs("name") id=srs("id") sj=srs("shijian") yd=srs("yd") ' name0="标题:"&name&"
时间:"&sj&"
点击:"&yd strxg=""& name &"("&sj&")" %> <% srs.movenext loop end if srs.close %>
 

<%=inum%>.<%=strxg%>

 
<% srs.close set srs=nothing ors.close set ors=nothing conn.close set conn=nothing %>