<%@ 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环球集团
  网站联盟-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"))%>