asp 不能翻页,为什么？

<%
Set conn=Server.CreateObject("Adodb.Connection")
connstr="provider=Microsoft.JET.OLEDB.4.0;Data Source="&Server.MapPath("data/db1.mdb")
conn.open connstr
Set rs=Server.CreateObject("Adodb.Recordset")
sql="Select * from textlist"
rs.open sql,conn,1,1
%>

<%
rs.pagesize=5 '每页记录条数
if request.querystring("crupage")="" then
curpage=1
else
curpage=Request.QueryString("curpage") '将URL参数curpage传给curpage变量
end if
rs.absolutepage=curpage '将本页设为curpage设置的页数
%>

<%
for i= 1 to rs.pagesize
if rs.eof then
exit for
end if
%>
<%=rs(1)%> 
<%=rs(2)%> 
<%=rs(3)%> 
<%=rs(4)%> 
<%=rs(5)%> <br>
<%
rs.movenext
next
%>

<br>
<div>当前第<%=cur

asp 为什么点击翻页后就不能执行跳转功能 asp翻页代码不能正常显示 asp搜索结果分页显示后不能翻页的问题 为什么A780阅读word文档不能翻页 asp翻页的编程 ASP翻页you 问题 ASP翻页 错误 Asp翻页的问题 ASP翻页代码.帮偶看下。. ASP 翻页代码问题