ASP长文章分页代码

来源：百度知道 编辑：UC知道 时间：2024/05/26 13:22:27
求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%>/<%=r