asp长文章分页收集存档

<%
if Request.QueryString("pageNo")="" then
PageNo=1
elseif IsNumeric(Request.QueryString("pageNo"))=false then
PageNo=1
else
PageNo=clng(Request.QueryString("pageNo"))
end if
打开数据表..不写了哈.
set rs=server.CreateObject("adodb.recordset")
sql="............"
rs.open sql,conn,1,3
%>
<%
if rs.recordcount=0 then
%>
暂无此类物品
<%
else
rs.pagesize=30 '页大小
if PageNo<1 then
PageNo=1
end if
if PageNo>rs.pagecount then
PageNo=rs.pagecount
end if
rs.absolutepage=PageNo
i=0
do while i<rs.pagesize and not rs.eof
%>
内容<%=rs("字段")%>
<%
rs.movenext
i=i+1
loop
end if
%>
<div align="center">
记录总数:<%=rs.recordcount%>条 当前页：<%=PageNo%>/<%=rs.pagecount%>页大小：<%=rs.pagesize%> <a href="?PageNo=1">首页</a> <a href="?PageNo=<%=PageNo-1%>">上页</a> <a href="?PageNo=<%=PageNo+1%>">下页</a> <a href="?PageNo=<%=rs.pagecount%>">末页</a> <input type=text id="goPage" value="<%=PageNo%>" size=2> <input type=button class="Mnue_003" onclick="location='?PageNo='+document.all.goPage.value;" value="GO">
<label></div>