＋设为首页 ＋添加到收藏夹
分页只有第一业可以正确显示，点击第二，三。。页时出现一下信息：
ADODB.Field 错误 80020009
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/shop/buy_notebook.asp，行0
把absolutepage手动付值测试没有问题，可是就是不能用rs.absolutepage=page语句。
源程序如下：
<% rs.Pagesize=8
PageNo=request("PageNo")
if PageNo="" then
PageNo=1
else
PageNo=PageNo+1
PageNo=PageNo-1
end if
rs.absolutepage=PageNo
for i=1 to rs.pagecount
if i=CInt(PageNo) then
Response.Write i&" | "
Else
Response.Write"<A HREF=buy_notebook.asp?PageNo="&i&">"&i&"</a> | "
end if
next
%
<%
for j=1 to rs.PageSize
%>
.......输出数据库内容
<%
rs.MoveNext
next
%>
您是不是采用条件来查询的
如
select * from table where name=....
那么您在
"<A HREF=buy_notebook.asp?PageNo="&i&">"中应该加上参数
"<A HREF=buy_notebook.asp?PageNo="&i&"&name="&name&">
用session("pageno")试下！
<%if not rs.eof then
rs.Pagesize=8
PageNo=request("PageNo")
if PageNo="" then PageNo=1
PageNo=cint(PageNo)
rs.absolutepage=PageNo
for i=1 to rs.pagecount
if i=CInt(PageNo) then
Response.Write i&" | "
Else
Response.Write"<A HREF=buy_notebook.asp? PageNo="&i&">"&i&"</a> | "
end if
rs.movenext
if rs.eof then exit for
next
%
