<%@ 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="800" mymenu="au" myurl="au.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 %>

<% sql="select * from miscell_class where basclass='"+basclass+"' and flag='0' order by sortnum" rs.open sql,cn,1,1 do while not rs.EOF if classcode="" then classcode=trim(rs("classcode")) url=myurl+"&classcode="+trim(rs("classcode")) %> <%=trim(rs("classname"))%> <% rs.MoveNext loop rs.Close %> <% sql="select keyno,classcode,title,updatetime,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 %> ·<%=trim(rs("title"))%>  <%=rs("updatetime")%>   共有 <%=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%>