关于rs的pagecount问题

lingjiadong 2004-12-14 10:49:22

我写的代码如下,主要是实现分页功能:
<%
sql="select * from T_Soft"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, adOpenStatic
rs.PageSize=5 '每页显示的记录数
Page = CLng(Request("Page"))
If Page < 1 Then '避免出现 0 页
Page = 1
End If
If Page > rs.PageCount Then '避免页数超出记录范围
Page = rs.PageCount
End If
response.write page

response.write "<font size=2>"
for i=0 to rs.pagecount
response.write "<A HREF=soft.asp?Page=" & i & ">" & i & "</a> "
next
response.write "</font>"
%>
我数据库里有两条记录,为什么我response.write page时总是显示-1,也就是说rs.pagecount=-1,请问是怎么回事,如何解决,还有,如果我数据库里真的没有记录是不是会报错呢?

...全文

241 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

lingjiadong 2004-12-14

打赏
举报

谢谢各位,问题解决了.

gj121 2004-12-14

打赏
举报

rs.Open sql, conn, 1,1

comszsoft 2004-12-14

打赏
举报

一般我都这样做:
set rs.cursorlocation=3 //这句非常非常必要
rs.open sql,conn,3,2

屡试不爽，试试看！

gaochen11 2004-12-14

打赏
举报

你这个是游标的问题
rs.Open sql, conn, adOpenStatic
改成
rs.Open sql, conn,1,1
就可以了

bybee 2004-12-14

打赏
举报

rs.Open sql, conn, 1,1

模块化分页 1.查询语句块 <% 取得当前文件名 temp = Split(request.ServerVariables("URL"), "/") fy = temp(UBound(temp)) set rs=server.createobject("adodb.recordset") if not isempty(request("page")) then　 pagecount=cint(request("page"))　 else　 pagecount=1　 end if sql="select　查询语句" rs.open sql,conn,1,1 rs.pagesize=10　分页记录数 if pagecount>rs.pagecount or pagecount<=0 then　　　　　　　 pagecount=1　　　　　　　 end if　　　　　　 if rs.eof and rs.bof then%>

对不起，没有符合搜索条件的记录！

2.显示记录块 <% else rs.AbsolutePage=pagecount do while not rs.eof %> 显示的记录 <% i=i+2 rs.movenext if i>=rs.PageSize then exit do loop 'www.knowsky.com %>

有时候在做asp的分页程序的时候会遇到无法分页的情况，就试着把rs.absolutepage打印出来结果却一直为-1。下面介绍一种解决方案： …….省略 rs.cursorlocation=3　’就是加上这行 rs.open sql,conn,3,2 rs.pagesize=10 if not rs.eof then rs.absolutepage=1 end if pagecount=rs.pagesize ………省略您可能感兴趣的文章:javascript css styleFloat和cssFloatjavascript css fl

If Page > 1 Then Response.Write "" & 9 & "" Response.Write " " & 7 & "" End If If Rs.PageCount <= 4 Then For j = 1 To Rs.PageCount Response.Write " " & j & "" Next Else For j = 1 To 4 Response.Write " " & j & "" Next If Page < Rs.PageCount Then Response.Write " " & "8" & "" End If Response.Write " :" End If