错误类型： ADODB.Recordset (0x800A0CB3) /ASP/index.asp, 第 27 行 ( 即 rs.AbsolutePage = CInt(currentPage) )

是什么错误???

那位高手给我们讲讲分页显示的使用吧

我参考的书上讲的太少了

谢谢了!!!

完整一些的代码和错误提示发上来

<!--#include virtual = "/adovbs.inc" --> dim currentPage,rowCount,i currentPage =request.Querystring("currentPage") if crrentPage = "" then currentPage = 1 end if

dim cnn set cnn= server.createObject("ADODB.Connection") cnn.open "provider=Microsoft.JET.OLEDB.4.0; DATA SOURCE= " & Server.mapPath("Data/bingxue.mdb")

dim rs set rs = server.createObject("ADODB.recordset")

dim sql sql="select * from topices"

rs.CursorType = adOpenStatic rs.PageSize = 15 rs.open sql ,cnn

用 Response.write 输出rs.recordCount的值是 -1

游标特性设的是adOpenStatic

是不是用SQL才可以正确的显示?

怎么还没有答案呢

我记得是很快的啊

那位可以给我看看呢

谢谢拉

我的一个简单的分页代码 <!--#include file="conn.asp"--> '连接数据库 <% //主要代码行 dim show_rs,show_sql dim page,n,pagesize,pagecount page=request("page") if page<>"" then page=request("page") else if page<1 or page="" then page=1 end if if err.number <> 0 then err.clear page = 1 end if page=1 end if pagesize=8 //定义一页显示的数据条数 show_sql="select msg_nickname,msg_qq,msg_email,msg_homepage,msg_content,msg_ip,msg_id,msg_addtime,msg_headpic from msg where msg_father=1 order by msg_id desc" 'SQL部分,你可以用相关的语句去替换他! set show_rs=server.createobject("adodb.recordset") show_rs.cursorlocation = 3 show_rs.pagesize=pagesize '设置每页的数据数 show_rs.open show_sql,conn,3,2 if not show_rs.eof then pagecount=show_rs.pagecount if page="" or page=err.number then err.clear show_rs.absolutepage=1 else show_rs.absolutepage=page end if do while not show_rs.eof and pagesize>0%> 　<!--显示部分,自己加上要显示的代码--> <% pagesize=pagesize-1 show_rs.movenext loop else %> 对不起，没有找到相关的数据!<!--没有数据提示部分--> <%end if%> <div align="center"> <table border="0" width="653" id="table10" cellspacing="0" cellpadding="0" height="53"> <tr> <td width="267" height="17">页次：<b><font color="#FF0000"><%=page%></font> </b>/<b><%=pagecount%></b>页<b> </b>记录为<b><font color="#FF0000"><%=show_rs.recordcount%></font></b> 每页<b><font color="#FF0000"><%=show_rs.pagesize%></font></b>条</td> <td width="386" height="17"><!--翻页部分，根据需要替换其中红色部分！--> <form name="goto" method="GET" action="msg.asp"><p align="right"><a href="msg.asp">首页</a>&nbsp; <%if page="" or page=1 then%>上一页 <%else%> <a href="msg.asp?page=<%=trim(page)-1%>">上一页</a><%end if%>&nbsp; <%if request("page")>=show_rs.pagecount or show_rs.recordcount<=show_rs.pagesize then%>下一页<%else%> <a href="msg.asp?page=<%=cint(trim(page))+1%>">下一页</a><%end if%>&nbsp; <%if request("page")>=show_rs.pagecount then%>尾页<%else%> <a href="msg.asp?page=<%=show_rs.pagecount%>">尾页</a><%end if%>转到<input maxLength="10" size="2" value="1" name="Page" style="font-family: Tahoma,Verdana,宋体; font-size: 12px; line-height: 15px; color: #000000"><input type="submit" value="go" name="" style="font-family: Tahoma,Verdana,宋体; font-size: 12px; line-height: 15px; color: #000000"></form></td> </tr> <tr> <td colspan="2" height="36" width="653"> <form method="GET" action="msg.asp">全文检索：<input name="keyword" style="font-family: Tahoma,Verdana,宋体; font-size: 12px; line-height: 15px; color: #000000" size="20">&nbsp;<input type="submit" value="搜索" name="" style="font-family: Tahoma,Verdana,宋体; font-size: 12px; line-height: 15px; color: #000000"></form></td> </tr> </table> </div> <%show_rs.close set show_rs=nothing%>

是什么错误呢？

你说详细点，27行是？

估计你的参数有问题

<% dim url

url="xx.asp"

<% const MaxPerPage=8 '一页有多少条 dim totalPut '总记录 dim CurrentPage '当前页 dim TotalPages '总页数 dim i rs.movefirst rs.pagesize=MaxPerPage %> <% totalPut=rs.recordcount '总页数 if (totalput mod maxPerPage)<>0 then TotalPages=(totalput\maxPerPage)+1 else TotalPages=(totalput\maxPerPage) end if '当前页 page=request("page") page=replace(page,"'","") page=replace(page,"''","") if page="" then page=1 CurrentPage=1 end if if trim(page)>trim(TotalPages) or page<0 then response.write("出错了") response.end end if if page<>"" then CurrentPage=page 'page 没有传递过来时，默认第一页 end if '显示“前一页”“后一页”和数字页码 if Currentpage >1 then back=currentpage-1 response.write ("<a href="&url&"?page="&back&">前一页</a>") else response.write "前一页" end if response.write "&nbsp;&nbsp;" for j=1 to totalPages if trim(j)=trim(page) then response.write(j) else response.write ("<a href="&url&"?page="&j&">"&j&"</a>") end if response.write ("&nbsp;") next if trim(Currentpage) < trim(totalPages) then enext=currentpage+1 response.write ("<a href="&url&"?page="&enext&">后一页</a>") else response.write ("后一页") end if response.write("<br>") %>