当前记录集不支持书签。这可能是提供程序或选定的游标类型的限制
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