<%@ 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_web.asp?temp=1" if classcode<>"" then sql="select * from miscell_class where classcode='"+classcode+"'" else sql="select * from miscell_class where basclass='"+basclass+"' and flag='0' order by sortnum" end if rs.Open sql,cn,1,1 if not rs.EOF then classname=trim(rs("classname")) end if rs.Close %> <%=classname%>_网站联盟_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 if classcode="" then classcode=trim(rs("classcode")) url="sites_web.asp?classcode="+trim(rs("classcode")) if classcode=trim(rs("classcode")) then classname=trim(rs("classname")) %> <% else %><% end if if i mod 2 = 0 then response.write"" i=i+1 rs.MoveNext loop rs.Close %>
·<%=trim(rs("classname"))%>·<%=trim(rs("classname"))%>
<% sql="select keyno,classcode,title,website,creadate from miscell where classcode='"+classcode+"' and state='1' order by sortnum desc" rs.Open sql,cn,1,1 i=1 pagesize=20 rs.PageSize=pagesize if pageno="" then pageno=1 else pageno=cint(pageno) if rs.PageCount>0 then rs.AbsolutePage=pageno pagecount=rs.PageCount reccount=rs.RecordCount do while not rs.EOF and i<=pagesize %> <% i=i+1 rs.MoveNext loop rs.Close %>
" class="a01" target=_blank><%=trim(rs("title"))%>
 
共有 <%=reccount%> 条记录     <%if pagecount>1 then%> 分页: <%if pageno>1 then%> <<上页  <%end if%> <%for j=1 to pagecount if j=pageno then color2="ff0000" else color2="000000" %> ><%=j%> <%next%>  页  <%if pageno 下页>> <%end if%> <%end if%>