天下三68一天一亿经验:ASP不能查看信息的最后一页

来源:百度文库 编辑:神马品牌网 时间:2024/05/06 13:47:25
<%
if not rs.bof then
rs.pagesize=10
if not isnumeric(Request("Page")) then
Page=1
else
page = cint(request("page"))
End if
if page = "" then page = 1
if page < 1 then page=1
if page >= rs.pagecount then page = rs.pagecount
rs.absolutepage = page
contentz=rs.pagecount
for i=1 to rs.PageSize
%>
.................[省略]

<%
if page=1 then
response.write "首页 | 前页 |"
else
response.write "<A Href=index.asp?page=1>首页 </a> |<a href=?page="&page-1&">前页</a> |"
end if
if page=rs.pagecount then
response.write "下页 | 最后一页 |"
else
response.write "<a href=?page="&page+1&">下页</a> |<a href=?page="&contentz&">最后一页</a> |"
end if
%>

点击"最后一页"时,会出现
"错误类型:
ADODB.Field (0x80020009)
BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。"这个错误.

希望高手指点.

for i=1 to rs.PageSize
中你省略的部分里要加一句
if rs.eof then exit for

for循环里面加一句判断
for i=1 to rs.PageSize
if not rs.eof then
...
...
...
end if
next
楼上的是说少读一条数据。。

将循环条件改成这样试一下

for i = 0 to rs.PageSize - 1