当前记录集不支持书签。这可能是提供程序或选定的游标类型的限制

Fantongking 2009-08-06 09:42:14
Set rs=Server.CreateObject("Adodb.Recordset")
sql="sp_WebMItegral '"&Session("vin")&"'"
rs.open sql,conn2,1,1
rs.pagesize=5 '每页记录条数
curpage=Request.QueryString("curpage") '将URL参数curpage传给curpage变量
If curpage="" then curpage=1 end if
rs.absolutepage=curpage '将本页设为curpage设置的页数
for i= 1 to rs.pagesize
if rs.eof then
exit for
end if
%>
<tr>
<td><%=rsf("日期")%></td>
<td><%=rsf("积分额")%></td>
<td><%=rsf("积分类别")%></td>
<td><%=rsf("单据号码")%></td>
</tr>
<%
rs.movenext
next
%>
<div>当前第<%=curpage%>页,共有<%=rs.pagecount%>页,共有:<%=rs.recordcount%>条记录</div>
<%if curpage=1 then%>
首页
<%else%>
<a href="?curpage=1">首页</a>
<%end if%>

<%if curpage=1 then%>
上一页
<%else%>
<a href="?curpage=<%=curpage-1%>">上一页</a>
<%end if%>

<%if rs.pagecount<curpage+1 then%>
下一页
<%else%>
<a href="?curpage=<%=curpage+1%>">下一页</a>
<%end if%>

<%if rs.pagecount<curpage+1 then%>
尾页
<%else%>
<a href="?curpage=<%=rs.pagecount%>">尾页</a>
<%end if%>
<%End if%>

错误提示 当前记录集不支持书签。这可能是提供程序或选定的游标类型的限制。这行 rs.absolutepage=curpage
...全文
26 点赞 收藏 1
写回复
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
hookee 2009-08-06
rs.CursorLocation = 3
rs.open sql,conn2,3,1
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告