asp中一个分页程序错误,求高手ADODB.Recordset (0x800A0CB3)

ADODB.Recordset (0x800A0CB3)
当前记录集不支持书签。这可能是提供程序或选定的游标类型的限制。
rs.open "select * from mykuaye",conn,1,1 这里的指针类型错误
改成rs.open "select * from mykuaye",conn,1,3 就可以了
你的指针类型不支持rs.AbsolutePage，自然会在那里报错，

那你这样改改：在rs.open语句前加上
rs.cursorLocation=1
这个值得也可以设置成3
然后open后放上我下面的语句
----------------------------------
我来回答吧，错误在这里
<%
rs.PageSize = 2
zy=rs.PageCount
page=int(request("page"))
if page<=0 then page=1
if request("page")="" then page=1
rs.AbsolutePage=page
%>
这里的顺序要稍微调一下，而且，你的转换成整型的函数也要变一下。改后如下
<%
rs.PageSize = 2
zy=rs.PageCount
if trim(request("page"))="" then
page=1
else
page=cint(request("page"))
end if
if page<=0 then page=1

rs.AbsolutePage=page
%>
这样应该就可以了。

代码写的有条理点：
<%
rs.pagesize=2'定义每页显示产品数目-->

totalcount=rs.recordcount'定义总产品数目-->
pagecount=rs.pagecount'取得总的分页数-->
page=int(request.QueryString("page"))'定义请求的当前页面-->
if page <=0 then page=1
if page=""then page=1
if page>=pagecount then page=pagecount
rs.absolutepage=page
%>

读取数据用这个：
<%
if rs.eof then
response.Write("暂时还没有文章")
else
n=1
while not rs.eof and n<=rs.pagesize
%>
这里是表格
<%n=n+1
rs.movenext
wend
end if
%>
这样再错就不是分页问题，是你的数据库或者记录集错误，仔细检查

<%
if request("page")="" then
page=1
else
page=int(request("page"))
end if
rs.PageSize = 2
zy=rs.PageCount
if page<=0 then page=1
if page>zy then page=zy
rs.AbsolutePage=page
%>
'参照http://www.xici.net/b231526/d63990897.htm 检查权限