Question

ASP中的分页记录代码

我做了一个分页记录，但是运行时显示的5条记录全是同一条记录，请高手帮看一下代码~显示如下：页面如下：数据库如下： 代码如下：<% set rs=server.CreateObject("adodb.recordset")sql="select * from comments"rs.open sql,conn,1,1if rs.bof and rs.eof then '不存在记录response.Write ("目前没有记录") else '存在记录counts=5 '每页显示记录条数 rs.pageSize = counts '每页记录数allpages = rs.pageCount '总页数page = Request("page") '从浏览器取得当前页 If not isNumeric(page) then page=1 'page不是数字if isEmpty(page) or Cint(page) < 1 then 'page为空或小于1page = 1 elseif Cint(page) >= allPages then 'page值大于总页数page = allPages end if rs.AbsolutePage = page '转到某页头部 For iPage = 1 To rs.PageSize '循环显示指定条数的记录'显示记录%><form id="form2" name="form2" method="post" action=""> <table width="100%" border="1" cellspacing="0" cellpadding="0"> <tr> <td><table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td bgcolor="#00CCFF"><strong><%=(rscomments.Fields.Item("fID").Value)%>楼</strong>的<%=(rscomments.Fields.Item("fName").Value)%> 在 <%=(rscomments.Fields.Item("fDate").Value)%>发表： </td> <td bgcolor="#00CCFF"><%if session("fAccount")<>"a" then%> <a href="reply.asp?fID=<%=(rscomments.Fields.Item("fID").Value)%>">回复</a> <%else%> <a href="delete.asp?fID=<%=(rscomments.Fields.Item("fID").Value)%>">删除</a></td> <%end if%> <tr> <td colspan="2"><p></p> <p><%=(rscomments.Fields.Item("fContent").Value)%></p></td> </tr> </table></td> </table></form><%counts = counts - 1 '每页显示条数减1rs.movenext '指向下一条记录'已经到底最后一条记录则跳出if rs.eof then exit for next '结束循环End If%><div style="margin:5px auto; width:600px; text-align:center; height:15px;"><%'显示总新闻条数response.write "<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;当前共有<font color='red'>"&rs.recordcount&"</font>条记录 " if page = 1 then '到达第一页response.write "<font color=darkgray>首页 前页</font>" else '不是第一页%> <a href=?page=1>首页</a> <a href=?page=<%=page-1%>>前页</a><% end if if page = allpages then '到达最后一页response.write "<font color=darkgray> 下页 末页</font>" else '不是最后一页%><a href=?page=<%=page+1%>>下页</a> <a href=?page=<%=allpages%>>末页</a><% end if '显示当前页数信息response.write " 第<font color='red'>"&page&"</font>页 共<font color='red'>"&allpages&"</font>页 " %> </div>

Answer 1

你只是循环输出了多个TABLE,而且都是输出了同一个值，记录集并没有移动。把这句 For iPage = 1 To rs.PageSize 加在<tr>之前，输出多行就行了，没必须输出多个TABLE，多个FORM吧，我觉得这样写更好一点
<% Do While Not rs.eof %>
<tr>
<td bgcolor="#00CCFF"><strong><%=(rscomments.Fields.Item("fID").Value)%>楼</strong>的<%=(rscomments.Fields.Item("fName").Value)%> 在 <%=(rscomments.Fields.Item("fDate").Value)%>发表： </td>
<td bgcolor="#00CCFF"><%if session("fAccount")<>"a" then%>
<a href="reply.asp?fID=<%=(rscomments.Fields.Item("fID").Value)%>">回复</a>
<%else%>
<a href="delete.asp?fID=<%=(rscomments.Fields.Item("fID").Value)%>">删除</a></td>
<%end if%>
<tr>
<td colspan="2"><p></p>
<p><%=(rscomments.Fields.Item("fContent").Value)%></p></td>
</tr>
<%
rs.movenext
Loop
%>