张爱玲和胡兰成照片:asp分页问题？

来源：百度文库 编辑：查人人中国名人网 时间：2024/05/06 00:08:08
我做了一个分页程序，数据库中有217条记录，每页显示10条记录，共有22页。
但点“尾页”（22页）时没有显示任何内容?

请问是什么原因?
源代码为：

<%
dim username
username=session("loginname")

set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from ck where username='"&username&"' order by id desc"
rs.open sql,conn,1,3
rs.pagesize=10
if not isempty(request("topage")) then
topage=cint(request("topage"))
if topage >= rs.pagecount then
rs.absolutepage=rs.pagecount
elseif topage <=0 then
rs.absolutepage =1
else
rs.absolutepage=topage
end if
end if
intcurpage=rs.absolutepage
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
rs.movenext
next
%>

共 <font color="#FF3300"><%=rs.recordcount%></font> 条记录
<% if intcurpage <>1 then%>
| <a href="ppp.asp" class="submenu"><font color="#006699"> 首页</font></a> | <a href="ppp.asp?topage=<%=intcurpage-1%>" class="submenu"> <font color="#006699">上一页</font></a>
<%else%>
| 首页 | 上一页
<% end if%>
<% if intcurpage <> rs.pagecount then%>
| <a href="ppp.asp?topage=<%=intcurpage+1%>" class="submenu"> <font color="#006699">下一页</font></a> | <a href="ppp.asp?topage=<%=rs.pagecount%>" class="submenu"> <font color="#006699">末页</font></a> |
<%else%>
| 下一页 | 末页 |
<% end if%>
页次：<font color="#FF3300"><%=intcurpage%></font>/<%=rs.pagecount%>页
求教ASP分页问题 asp分页问题？ ASP分页显示问题 asp分页的问题 asp分页显示问题? 关于ASP分页问题? asp分页问题 ASP分页错误问题 ASP分页问题 asp分页程序问题