这个asp分页代码错在哪里(简短)单击下一页后显示的当前页竟然是-3页

来源:百度知道 编辑:UC知道 时间:2024/06/30 14:25:38
<%
rs.pagesize=5
dim page
page=absolutepage
p=request("p")
select case p
case 2
page=p-1
case 3
page=p+1
case 4
page=pagecount
case else
page=1
end select
rs.absolutepage =page

%>

<table width="614" height="158" cellpadding="0" cellspacing="5">
<!--DWLayoutDefaultTable-->
<% for i=1 to rs.pagesize
if rs.eof then exit for %>
<tr>
<td width="76" height="21"> </td>
<td width="538" valign="top"><span class="style5"> <b><%=rs("username") %></b>在
<%= rs("userdate") %> </span></td>
</tr>
<tr>
<td height="110"> </td>
&

下一页,
case 3
page=p+1
您的结果就是 第4页

AbsolutePage 返回

常量 说明
AdPosUnknown(-1) Recordset 为空,当前位置未知,或者提供者不支持 AbsolutePage 属性。
AdPosBOF(-2) 当前记录指针位于 BOF(即 BOF 属性为 True)。
AdPosEOF(-3) 当前记录指针位于 EOF(即 EOF 属性为 True)。

_______________

case 4
page=pagecount

最后一页,您pagecount赋值了吗?