一个分页程序，为什么最后一页无法显示大家来帮下忙谢谢 - ASP技术论坛

问题点数：0 回复次数：5

一个分页程序，为什么最后一页无法显示大家来帮下忙谢谢

<%dim data
data="BBS.mdb"
dim connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0; Data source=" & Server.mappath(data)
set conn=Server.createObject("ADODB.Connection")
conn.open connstr
%>
<%sql="select * from B_bbs"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
%>
<%rs.pagesize=10
total=rs.pagecount
page=int(request("page"))
if page<=0 then page=1
if request("page")="" then page=1
rs.Absolutepage=page
%>
<%if rs.eof and rs.bof then
response.write"暂时还没有记录"
else
for i= 1 to rs.pagesize
response.write("楼主:"&rs("username")&" ")
response.write("主题:"&rs("topic")&" ")
response.write("内容:"&rs("body")&" ")
response.write("提交时间:"&rs("dateandtime")&" ")
response.write("<hr>")
rs.movenext
next
end if
%>
<%
for i=1 to total
%>
<a href=fenye.asp?page=<%=i%>><%=i%></a>
<%next%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

这段代码看起来没什么错误啊，除开最后一页，每一页都能正常显示，但是为什么最后一页却报错说
Script error detected at line 27
Source line: response.write("楼主:"&rs("username")&"
")
真是奇怪啊，谁能告诉我原因啊？

搜索更多相关主题的帖子: Microsoft　page　data　

第 2 楼

得分:0

for i= 1 to rs.pagesize
response.write("楼主:"&rs("username")&" ")
rs.movenext

应该是你的最后一页不足10条记录,

http://toorup.3v.do
loading...

第 3 楼

得分:0

你把你的记录加到刚好10的倍数条试试看,

当然你这样的是不合理的

http://toorup.3v.do
loading...

第 4 楼

得分:0

哦哦那有什么解决办法吗？～～～～～

第 5 楼

得分:0

有可能是icecool朋友说的那样.你可以换一种数据循环显示的方法吧,不要用for循环,用do while 循环吧,除了用每页指定显示多少页外,还可以判断是否是最后一条记录的方法.

第 6 楼

得分:0

呵呵我知道了 别人给我改了一下是这样的
do while not rs.eof
response.write("楼主:"&rs("username")&" ")
response.write("主题:"&rs("topic")&" ")
response.write("内容:"&rs("body")&" ")
response.write("提交时间:"&rs("dateandtime")&" ")
response.write("<hr>")
if rs.eof then
exit do
else
 d=d+1
 rs.movenext
end if
if d>rs.pagesize-1 then exit do
loop

不过我一般不习惯用do while not
那样写还不如写成do until省便嘿嘿～～