简单的记录分页问题！！急用！！在线等待！！！

foxhuan 2002-03-25 01:50:17

http://www.5djk.com/free/fgs/index.asp?user=foxhuan
请问做这样的留言板记录分页，要用到recordset的哪些属性？？
.pagesize是什么意思？？其它的呢？？

...全文

108 24 打赏收藏转发到动态举报

写回复

用AI写文章

24 条回复

切换为时间正序

请发表友善的回复…

发表回复

foxhuan 2002-04-01

打赏
举报

to tripofdream:成功了！！！！！：）
太感动了！！这可是毕业设计啊~~~~~~~~~~~~~~终于解决它了。
对你感激涕零…………

tripofdream 2002-04-01

打赏
举报

然后再用
rs.absolutepage=c_page

tripofdream 2002-04-01

打赏
举报

第一页由于没有传入page,request.querystring("page")为空,rs.absolutepage="",所以出错.正确的做法是做一下判断:
dim c_page
if request.querystring("page")="" then
c_page=1
else
c_page=cint(request.querystring("page"))
end if
另外c_page的值不能小于1,不能大于rs.pagecount:
if c_page<1 then c_page=1
if c_page>rs.pagecount then c_page=rs.pagecount

foxhuan 2002-04-01

打赏
举报

to tripofdream:错误码为(0x800A0BB9)

tripofdream 2002-04-01

打赏
举报

错误码是多少?

foxhuan 2002-03-31

打赏
举报

to tripofdream:调试后说是adodb.recordset错误。错在rs.absolutepage=request.querystring("page")
for i=1 to intpagesize？？？？？？？？？？？？？？？？？

这个部分：（

foxhuan 2002-03-31

打赏
举报

to tripofdream:啊~~~~~~~~~原来这么回事啊：0555555555我去试试。

foxhuan 2002-03-30

打赏
举报

to tripofdream:我改了那句。可又出现其它的错误：说是adodb.recordset错误。错在打问号的那行。代码如下：
<%
const intpagesize=15
dim pages
set cn=server.createobject("adodb.connection")
cn.open "dsn=customer0"
sql="select * from gb"
set rs=cn.execute(sql)
rs.pagesize=intpagesize
pages=rs.pagecount
%>
<html>
.
.
.
<%
dim i
rs.absolutepage=request.querystring("page")
for i=1 to intpagesize？？？？？？？？？？？？？？？？？
if rs.eof then
exit for
end if
%>
.
.
昵称:<%=rs("name")%>
E-mail：<%=rs("email")%>
个人主页：<%=rs("homepage")%>
留言:<%=rs("say")%>
.
.
.
<%
rs.movenext
next
cn.close
%>
<%
dim p
if pages<0 then
pages=1
end if
for p=1 to pages
response.write "<a href='link/gb.asp?page="&p&"'>"&"["&p&"]"&"</a>"
next
%>
</body>
</html>

tripofdream 2002-03-30

打赏
举报

呵呵,我又写错了,不好意思
set rs=server.createobject("adodb.recordset")
建议你找本书看一下recordset的用法,以免被我误导 :P

foxhuan 2002-03-30

打赏
举报

to tripofdream:我的代码改为：
<%
const intpagesize=15
dim pages
set cn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.connection")
cn.open "dsn=customer0"
sql="select * from gb"
rs.open sql,cn,3,1
rs.pagesize=intpagesize？？？？？？？？？？？？？？？？？？？？
pages=rs.pagecount
%>
调试时却说打句号的那句有错误。错在哪里呢？？？？

foxhuan 2002-03-30

打赏
举报

to tripofdream:太好了。：）我去谢谢！！非常感谢你！！！大恩大德~~~~~

tripofdream 2002-03-30

打赏
举报

错误应该是在你标识的那一行的上一行.
如果要分页显示,就不能使用execute方法来获得记录集,因为这种记录集使用的是向前游标(forward only),不能使用pageCount,absolutePage等属性;而应该用open方法来打开记录集:
set cn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.connection")
cn.open "dsn=customer0"
sql="select * from gb"
rs.open sql,cn,3,1

tripofdream 2002-03-26

打赏
举报

不要括号,同时注意双引号要用单引号或两个双引号代替
response.write "<a href=""gb.asp?page="&p&""">"&"["&p&"]"&"</a>"
或
response.write "<a href='gb.asp?page="&p&"'>"&"["&p&"]"&"</a>"

foxhuan 2002-03-26

打赏
举报

to ssm1226:我就是不明白我写的response.write语句错在哪里。
其中pages已经赋值为rs.pagecount。

foxhuan 2002-03-26

打赏
举报

to ssm1226：那么response.write语句呢？？

ssm1226 2002-03-26

打赏
举报

写出[1][2].........
str=""
for i=1 to rs.pagecount
str=str&"[" & _
"< a href=xxx.asp?pageno="&i&">"&i
"]"
next

foxhuan 2002-03-25

打赏
举报

各位，帮个忙吧。急死了！！！我只好一天后来看…

foxhuan 2002-03-25

打赏
举报

response.write("<a href="gb.asp?page='"&p&"'">"&[&'"&p&"'&]&"</a>")
改成这样也错。
那要怎么修改呢？

foxhuan 2002-03-25

打赏
举报

<%
dim p
if pages<0 then
pages=1
end if
for p=1 to pages
response.write ("<a href="gb.asp?page='"&p&"'">"&"["&p&"]"&"</a>")？？？？？？？？？？
next
%>
以上代码实现的是页面上那[1][2][3]并可点击到留言本的功能。调试时说打问号的那句有错误。请问是什么错误，如何改正？

taglis2002 2002-03-25