<% Set Rs = Server.CreateObject("ADODB.Recordset") if (classId<>"") then sql="select * From news where classid="&classid&" order by Topis desc,id desc" else sql="select * From news order by Topis desc,id desc" end if rs.open sql,conn,1,1 if rs.eof and rs.bof then response.Write("新闻更新中...") else %> <% dim pagenum pageUrl="newsL.asp?" '设置链接网页 pagenum=10 '设置每页记录数量 num=rs.recordcount rs.PageSize=pagenum if page=0 then page=1 pages=rs.pagecount if page > pages then page=pages rs.AbsolutePage=page for j=1 to rs.PageSize %> <% rs.movenext if rs.eof then exit for next %>

序号	标题	时间
<%=rs("id")%>	" target="_blank" title="<%=rs("title")%>"><%=rs("title")%>	<%=FormatDate(rs("times"),4)%>

<%call showpage(pages,page,pageUrl)%> <% end if rs.close set rs=nothing %>