<%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% pageno=Request.QueryString("pageno") classcode=Request.QueryString("classcode") set cn = Server.CreateObject("ADODB.Connection") cn.Open(mycnstr) set rs = Server.CreateObject("ADODB.Recordset") set rs2 = Server.CreateObject("ADODB.Recordset") basclass="900" mymenu="sites" myurl="sites.asp?temp=1" %>

网站联盟－ABC链接 <% sql="select * from miscell_class where basclass='"+basclass+"' and flag='0' order by sortnum" rs.open sql,cn,1,1 i=1 do while not rs.EOF url="sites_web.asp?classcode="+trim(rs("classcode")) %> <% if i mod 2 = 0 then response.write"" i=i+1 rs.MoveNext loop rs.Close %> ·<%=trim(rs("classname"))%> 申请链接   <% sqltext="select classcode,classname from miscell_class where basclass='900' and flag='0' order by sortnum " rs.Open sqltext,cn,1,1 do while not rs.EOF %> <% rs.MoveNext loop rs.Close %>  <%=trim(rs("classname"))%> <% sql="select keyno,title,website from miscell where classcode='"+rs(0)+"'" rs2.Open sql,cn,1,1 k=1 do while not rs2.EOF and k<=20 %> <% if k mod 5 = 0 then response.write"" k=k+1 rs2.MoveNext loop rs2.Close %> " class="a01" target=_blank><%=trim(rs2("title"))%>