UC知道求助！rs.movenext 分页后，ADODB.Recordset 错误 '800a0bcd' 报错怎么改正？谢谢
来源：百度知道 编辑：UC知道 时间：2024/06/19 20:12:26
代码如下。
<%set com=server.createobject("adodb.connection")
com.open "DBQ="& Server.MapPath("data.asp") &";Driver={Microsoft Access Driver (*.mdb)}"
if request("ok")="ok" then response.write "hello"
set rs=com.execute("select*from msg where edt>=#"&date&"# ORDER BY id DESC")
page=request("page")
newpage=0
if page="" then page=1
do while newpage<page*21-21
newpage=newpage+1
rs.movenext
loop
do while not rs.eof
i=i+1%>
按二楼朋友的说法，改了，但是翻到下页的时候不显示东西呢。按一桉朋友说的，改后，无法显示该页，
本人比较笨，能不能把我那段整个改好放上。谢谢，谢谢各位好心人。
<%set com=server.createobject("adodb.connection")
com.open "DBQ="& Server.MapPath("data.asp") &";Driver={Microsoft Access Driver (*.mdb)}"
if request("ok")="ok" then response.write "hello"
set rs=com.execute("select*from msg where edt>=#"&date&"# ORDER BY id DESC")
page=request("page")
newpage=0
if page="" then page=1
do while newpage<page*21-21
newpage=newpage+1
rs.movenext
loop
do while not rs.eof
i=i+1%>
按二楼朋友的说法，改了，但是翻到下页的时候不显示东西呢。按一桉朋友说的，改后，无法显示该页，
本人比较笨，能不能把我那段整个改好放上。谢谢，谢谢各位好心人。
<%set com=server.createobject("adodb.connection")
com.open "DBQ="& Server.MapPath("data.asp") &";Driver={Microsoft Access Driver (*.mdb)}"
if request("ok")="ok" then response.write "hello"
set rs=com.execute("select*from msg where edt>=#"&date&"# ORDER BY id DESC")
if rs.recordcount>0 then
rs.pagesize=10
else
response.write("暂无数据!")
response.end
end if
page=request("page")
newpage=0
if trim(page)="" then
page=1
elseif page>=rs.pagecount then
page=rs.pagecouht
end if
rs.absolutepage=page
i=i+1%>
怎么会有两个do while 的啊?可以用
if not rs.eof then
do while ......
loop
end if
最后的do while not rs.eof不要
do while (not rs.eof and newpage<page*21-21)
newpage=newpage+1
rs.movenext
loop