我在做分页时,其实功能也实现了,但是在读数据的过程中遇到如下的问题:
ADODB.Field (0x80020009)
BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。
/mylee/04261/connect.asp
这是在最最后页数据读取中,数据不够显示每页应当显示的条数时,就会出现这样的错误,是不是指针的错误啊。为什么?
代码如下:
<%@ language = vbscript%>
<!-- #include file = connection.asp -->
<%
exec="select * from book"
set rs = server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<%
rs.pagesize=3
pagecount = rs.PageCount
page = int(request("page"))
if page <= 0 then page = 1
if request("page") = "" then page = 1
rs.Absolutepage = page '指定当前记录所在的页
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>分页显示</title>
</head>
<body>
<div align="center">
<table width="466" bgcolor="#FFFFFF">
<tr>
<td align=center width="13%" bgcolor="#008080">编号</td>
<td align=center width="31%" bgcolor="#008080">名称</td>
<td align=center width="11%" bgcolor="#008080">价格</td>
<td align=center width="22%" bgcolor="#008080">作者</td>
<td align=center width="19%" bgcolor="#008080">备注</td>
</tr>
<%
if rs.EOF and rs.BOF then
response.write("暂时还没有记录")
else
for i = 1 to rs.pagesize
%>
<tr>
<td align=center width="13%"><%= rs("book_id")%></td>
<td align=center width="31%"><%= rs("book_name")%></td>
<td align=center width="11%"><%= rs("book_price")%></td>
<td align=center width="22%"><%= rs("book_write")%></td>
<td align=center width="19%"><%= rs("book_remask")%></td>
</tr>
<%
rs.MoveNext
next
end if
%>
</table>
<p align=center>
<% if page = 1 and not page = pagecount then %>
第一页|上一页|
<a href="dividepage1.asp?page=<%=page+1%>">下一页</a>|
<a href="dividepage1.asp?page=<%=pagecount%>">最后页</a>
<% elseif page <> 1 and not page = pagecount then %>
<a href = "dividepage1.asp?page=1">第一页</a>|
<a href="dividepage1.asp?page=<%=page-1%>">上一页</a>|
<a href="dividepage1.asp?page=<%=page+1%>">下一页</a>|
<a href="dividepage1.asp?page=<%=pagecount%>">最后页</a>|
<% elseif page = pagecount then %>
<a href="dividepage1.asp?page=1">第一页</a>|
<a href="dividepage1.asp?page=<%=page-1%>">上一页</a>|
下一页|最后页
<% end if %>
</p>
</div>
</body>
</html>
[此贴子已经被作者于2006-10-8 14:55:45编辑过]