Question

asp 读出某条记录后 如何对其分页

比如我读出某条记录后，数据比较大，我要对它进行分页 如何做 ？
content=rs("news_content")

page=request("page")
PageLength=2000
if not isempty(page)then
page=cint(page)
else
page=1
end if
if page<1 then
page=1
end if
Length = Len(content)
PageCount = CInt(length/PageLength)
if page=1 then
wen= mid(content,1,1500)
response.write(wen)
else
wen= mid(content,(page-1)*pagelength,1500)
response.write(wen)
end if
%>
<%if PageCount>1 then%>
<div align=left>
本章共有<%=length%>字
<%
Response.write ( ("本节共")) & PageCount & ("页")&" "&("当前为"&page&"页")

if page<2 then
%>
首页 上一页
<%else%>
<a href=?id=<%=rs("id")%>&Page=1>首页
</a>
<a href=?id=<%=rs("id")%>&Page=<%= page-1%>>上一页 </a>
<%
end if
if pagecount-page<1 then
%>
下一页 末页
<%else%>
<a href=?id=<%=rs("id")%>&Page=<%= page+1%>>下一页</a>
<a href=?id=<%=rs("id")%>&Page=<%=pagecount%>>末页</a>
<%
end if
%>
<br>
</div>
<%end if%>
为什么只有第一页的内容，下一页的内容就没有了？ 高手来指教啊！

Answer 1

http://www.lanrentuku.com/lanren/code/20070622/code092328.shtml

可以看看这个。我觉得你是要实现这个功能吧？

Answer 2

一条记录分页
不懂
是不是很多记录,分页啊

最单间的就用

rs.Pagesize = 15 '设置页内记录
If Curpage > rs.pagecount Then Curpage=rs.pagecount
If Not rs.eof Then
rs.absolutepage =Curpage