标题:[求助]分页显示问题
只看楼主
netns
Rank: 1
等 级:新手上路
帖 子:60
专家分:0
注 册:2007-4-19
 问题点数:0 回复次数:2 
[求助]分页显示问题

<%
set rs=server.createobject("adodb.recordset")
sql="select * from bigclass order by id asc"
rs.open sql,conn,1,1 %

<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from news where bigclassname='"&rs("bigclassname")&"' order by id desc"
rs1.open sql1,conn,1,1 %>

<% rs1.pagesize=10 //每页显示十条
zongye=rs1.pagecount
page=int(request("page"))
if page<=0 then page=1
if request("page")=""then page=1
rs1.absolutepage=Page %>

<% if rs1.eof and rs1.bof then
response.write("暂时没有文章")
else
for i=1 to rs1.pagesize%>

<a href="show_news.asp?id=<%=rs1("id")%>"><%=rs1("title")%></a> <BR>

<%rs1.movenext
next
end if%>

如果数据库里只有十一条不足二十条的话他会报错误

ADODB.Field 错误 '80020009'

BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。

/more_news.asp,行 0

哪位知道的帮改下代码

2007-04-20 12:53
阳光白雪
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:39
帖 子:2220
专家分:0
注 册:2005-11-18
得分:0 
for i=1 to rs1.pagesize
if rs1.Eof then Exit For '加上这句
%>

专注于WEB前端交互平台开发:[url=http://blog./]blog.[/url](富客户端技术(RIA)交流平台)
2007-04-20 12:54
netns
Rank: 1
等 级:新手上路
帖 子:60
专家分:0
注 册:2007-4-19
得分:0 

斑竹回答的真快

2007-04-20 12:56



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-133436-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.675524 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved