<% page=clng(request("page")) Set rs=Server.CreateObject("ADODB.RecordSet") if BigClass<>"" and SmallClass <>"" then sql="select * from news where BigClassName='"&BigClass&"' and SmallClassName='"&SmallClass&"' order by AddDate desc" rs.Open sql,conn,1,1 elseif BigClass<>"" then sql="select * from news where BigClassName='"&BigClass&"' order by AddDate desc" rs.Open sql,conn,1,1 end if if rs.eof and rs.bof then response.Write("暫時(shí)沒(méi)有記錄") else %> <% rs.PageSize=20 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 %> <% end if rs.close set rs=nothing %>

	" target="_blank" style="text-decoration:none; color:#1d5aa6;"> <%= RS("TITLE") %>	[<%=FormatDateTime(RS("AddDate"),2)%>]
<%if rs.pagesize>20 then%> <%if Page<2 then response.write "首頁(yè) 上一頁(yè) " else response.write "首頁(yè) " response.write "上一頁(yè) " end if if rs.pagecount-page<1 then response.write "下一頁(yè) 尾頁(yè)" else response.write "" response.write "下一頁(yè) 尾頁(yè)" end if response.write " 頁(yè)次："&Page&"/"&rs.pagecount&"頁(yè) " response.write " 共"&rs.recordcount&"條記錄 "&rs.pagesize&"條記錄/頁(yè)" response.write " 轉(zhuǎn)到：" response.write " " %> <%end if%>