asp+access分页问题

为什么网页并没有分页显示代码如下：<html><head><%setrs=server.createobject("adodb.recordset")sql="selec... 为什么网页并没有分页显示代码如下：<html><head>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from manager "
rs.open sql,conn,1,3
%>
<%
rs.pagesize=5
curpage=request.QueryString("curpage")
if curpage="" then
curpage=1
rs.absolutepage=curpage
end if
%>
</head>

<body><div style="position:absolute; left: 204px; top: 170px; width: 942px;">
<table width="926" border="1" align="center" cellspacing="0" cellpadding="0">
<tr align="center"><td height="26">序号</td>
<td>员工编号</td><td>姓名</td><td>手机号</td><td>电子邮件</td><td>操作</td></tr>
<%
for j= 1 to rs.pagesize
if rs.eof then
exit for
end if
%>
<%
do while not rs.EOF or rs.BOF
i=i+1
%>
<tr>
<td width="13%" height="26" align="center"><%response.Write(i)%></td>
<td width="14%" align="center"><%=rs("ID")%></td>
<td width="14%" align="center"><%=rs("managername")%></td>
<td width="19%" align="center"><%=rs("phone")%></td>
<td width="27%" align="center"><%=rs("mail")%></td>
<td width="13%" align="center"><a href="modify.asp?id=<%=rs("ID")%>">修改</a> <a href="delete.asp?id=<%=rs("ID")%>" onClick="return ConfirmDel();">删除</a></td>
</tr>
<%
rs.movenext
loop
%>
<tr align="center" ><td colspan="6"
<%if curpage=1 then%>首页<%else%><a href="manager.asp?curpage=1">首页</a><%end if%>
<%if curpage=1 then%>上一页<%else%><a href="manager.asp?curpage=<%=curpage-1%>">上一页</a><%end if%>
<%if rs.pagecount<curpage+1 then%>下一页<%else%><a href="manager.asp?curpage=<%=curpage+1%>">下一页</a><%end if%>
<%if rs.pagecount<curpage+1 then%>尾页<%else%><a href="manager.asp?curpage=<%=rs.pagecount%>">尾页</a><%end if%>

当前第<%=curpage%>页，共有<%=rs.pagecount%>页，共有：<%=rs.recordcount%>条记录</td></tr>
<%next%>
</table>

</div>
</body></html> 展开

 我来答

1个回答

#热议# 海关有哪些禁运商品？查到后怎么办？

哈里逊88
推荐于2016-07-21 · TA获得超过360个赞

知道小有建树答主

回答量：231

采纳率：100%

帮助的人：211万

我也去答题访问个人页

关注

展开全部

这个错误挺有意思的，原因是你在For Next的回圈里面又加上了do loop的回圈，由于rs.movenext是放在do loop的回圈里面，所以程序在运行时，在do loop的回圈里面就把全部的数据都列出来了，然后回到for next的回圈，因为已经rs.eof，就跳出回圈。修改的方式：
1. 去掉do loop的回圈
2. <%response.Write(i)%>改成<%response.Write(j)%>
3. <%next%>拉到<%rs.MoveNext%>的下方

...
<table width="926" border="1" align="center" cellspacing="0" cellpadding="0">
<tr align="center"><td height="26">序号</td>
<td>员工编号</td><td>姓名</td><td>手机号</td><td>电子邮件</td><td>操作</td></tr>
<%
for j= 1 to rs.pagesize
if rs.eof then
exit for
end if
%>
<tr>

<td width="13%" height="26" align="center"><%response.Write(j)%></td>
<td width="14%" align="center"><%=rs("id")%></td>
<td width="14%" align="center"><%=rs("a")%></td>
<td width="19%" align="center"><%=rs("b")%></td>
<td width="27%" align="center"><%=rs("c")%></td>
<td width="13%" align="center"><a href="modify.asp?id=<%=rs("id")%>">修改</a> <a href="delete.asp?id=<%=rs("id")%>" onClick="return ConfirmDel();">删除</a></td>
</tr>
<%
rs.movenext
%>

<%next%>
<tr align="center" ><td colspan="6"
<%if curpage=1 then%>首页<%else%><a href="manager.asp?curpage=1">首页</a><%end if%>
<%if curpage=1 then%>上一页<%else%><a href="manager.asp?curpage=<%=curpage-1%>">上一页</a><%end if%>
<%if rs.pagecount<curpage+1 then%>下一页<%else%><a href="manager.asp?curpage=<%=curpage+1%>">下一页</a><%end if%>
<%if rs.pagecount<curpage+1 then%>尾页<%else%><a href="manager.asp?curpage=<%=rs.pagecount%>">尾页</a><%end if%>

当前第<%=curpage%>页，共有<%=rs.pagecount%>页，共有：<%=rs.recordcount%>条记录</td></tr>
....

追问

谢谢你，之前分页的效果出来了，可是为什么我点击上一页，下一页，首页，尾页，上边的表格不跟着动呢，只停留在第一页

追答

原因在这一段：

依照你的判断式，只有当curpage="" 时，rs.absolutepage才会被赋值，只要修改成：

即可

本回答被提问者采纳

已赞过 已踩过<

评论收起

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

asp+access分页问题

其他类似问题

为你推荐：