ASP做分页显示的问题

来源:百度知道 编辑:UC知道 时间:2024/05/10 11:02:41
分页显示已经做好,但是首页无法按照设定的显示条数进行显示,后面的页面都能正常分页。
分页相关代码如下,请高手帮忙看一下:
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM guzhangjilu order by id desc"
rs.Open sql, conn, 1, 3
rs.pageSize=3 '每页记录数
pages=Cint(request("pages"))

If Pages<1 Then Pages = 1
If Pages>rs.PageCount Then Pages=rs.PageCount
rs.AbsolutePage = pages
If Pages<>PageCount Then
Response.Write "<a href=showlist.asp?pages=1>首页</span></a>"
If Pages<>1 Then
response.write " "&" "
Response.Write "<a href=showlist.asp?pages="&(Pages-1)&">上页</span></a>"
End If
response.write " "&" "
Response.Write "<a href=showlist.asp?pages="&(Pages+1)&">下页</span></a>"
response.write " "&"&

根据你的代码,应该出现的情况是:一页内显示全部的内容,而不是按照你设定的条数显示,不知我说的和你出的情况是否一致。
原因是你没有设定满足跳出循环的条件,循环开始时这样写应该就没有问题了:
i=0
do while not rs.eof
i=i+1
if i>rs.pageSize then exit do