Question

ASP分页程序，当最后一页不够每页显示数量时，提示eof或bof为真的错误

ASP分页程序中，只有最后一页不够每页显示数量时，出错误，错误提示为“BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。”

求高手相助！
<%
sql="select * from nproduct where dalei="&request("infoid")&" order by num desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
i=1

rs.pagesize=12
page=request("page")
if page="" then
page=1
end if
rs.absolutepage=page
page=clng(request("page"))
if page<1 then
page=1
end if
if page>rs.pagecount then
page=rs.pagecount
end if

for j=1 to rs.pagesize
if rs.eof or rs.bof then
exit for
end if
%>
中间为循环输出表格，就此略过……
<%
i=i+1
if i>3 then
response.Write("</tr><tr>")
i=1
end if
rs.movenext
next
%>
<a href="product.asp?page=<%=(page+1)%>&infoid=<%=rs("dalei")%>">下一页</a>   <a href="product.asp?page=<%=rs.pagecount%>&infoid=<%=rs("dalei")%>">尾  页</a>

每次到最后一页时，就显示“BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
”
希望高手指点，指点！
<a href="product.asp?page=<%=(page+1)%>&infoid=<%=request("infoid")%>">下一页</a> <a href="product.asp?page=<%=rs.pagecount%>&infoid=<%=request("infoid")%>">尾 页</a>
这样改也不好使！

Answer 1

这个我一直在用的，你要么用我的看看，把数据库名称和显示数据修改下
<% set rsnews=server.createobject("adodb.recordset")
SQL="SELECT * FROM 数据库名称 ORDER BY ID DESC"
rsnews.open SQL,CONN,1,3
IF Not rsnews.eof Then
proCount=rsnews.recordcount
rsnews.PageSize=10 '定义显示数目
if not IsEmpty(Request("ToPage")) then
ToPage=CInt(Request("ToPage"))
if ToPage>rsnews.PageCount then
rsnews.AbsolutePage=rsnews.PageCount
intCurPage=rsnews.PageCount
elseif ToPage<=0 then
rsnews.AbsolutePage=1
intCurPage=1
else
rsnews.AbsolutePage=ToPage
intCurPage=ToPage
end if
else
rsnews.AbsolutePage=1
intCurPage=1
end if
intCurPage=CInt(intCurPage)
For i = 1 to rsnews.PageSize
if rsnews.EOF then
Exit For
end if
%>

'....输出信息

<%
rsnews.MoveNext
next
%>
<%else%>

<%end if%>
<%
rsnews.close
set rsnews=nothing
%>

<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" align="right" valign="middle">
<a href="?cla=<%=cla%>&type=<%=request("type")%>&ToPage=<%=intCurPage-1%>"onFocus="this.blur()">上一页</a>
     
<a href="?cla=<%=cla%>&type=<%=request("type")%>&ToPage=<%=intCurPage+1%>"onFocus="this.blur()">下一页</a>     
</td>
</tr>
</table>

Answer 2

觉得应该把
if rs.eof or rs.bof then
exit for
end if
这一段放在rs.movenext而且输出值之后再去判断，你认为呢？

Answer 3

<a href="product.asp?page=<%=(page+1)%>&infoid=<%=request("infoid")%>">下一页</a> <a href="product.asp?page=<%=rs.pagecount%>&infoid=<%=request("infoid")%>">尾 页

具体哪一行报错？报错行指出来

-----------------------------------------------------
PS:有空请帮我踩踩我的空间，谢谢。

Answer 4

在代码中加入 on error resume next试一下？