问题描述
以下是留言板的主页面中对留言进行操作的内容，但是分页不正常，哪位高手指点以下啊<%@language="vbscript"%><%session("currentposition")="留言列表"%><!--#includefile="top.asp"--><%dimrs,conn,currentpage'使用server对象的createobject方法建立一个记录集对象Setconn=server.createobject("adodb.connection")conn.connectionstring="driver={sqlserver};server=(local);uid=sa;pwd=sa;database=liuyan"conn.openSetrs=server.createobject("adodb.recordset")Setrs.activeconnection=connrs.cursorlocation=3'如果没有这一步则rs.absoluteposition全部显示为-1rs.cursortype=3rs.open"select*fromguestbookorderbyiddesc",conn,3,1ifrs.eofthenresponse.redirect"addmsg.asp"endif'设置recordset对象的每一页的大小(数据记录条数)rs.pagesize=3'设置当前页currentpage=request.querystring("page")'如果用户输入的页码非法或超出了页码范围，则将其修改为第一页或最后一页ifcurrentpage=""thencurrentpage=1currentpage=clng(currentpage)ifcurrentpage<1thencurrentpage=1ifcurrentpage>rs.pagecountthencurrentpage=rs.pagecount'设置recordset对象的absolutepage(绝对页数)属性rs.absolutepage=currentpage'输出当前页面的记录endif%><%'显示当前页面的所有留言fori=1tors.pagesize%><tablecellspacing=0cellpadding=5width=750align=centerborder=1><tr><td><tablecellspacing=1cellpadding=4width=745align=centerborder=1><tr><tdcolspan=2><tablecellspacing=0cellpadding=0width="100%"border=1><trstyle="color:#ffffff"><tdalign="left"width="80%"colspan=2><b>留言主题：<%=rs.fields("title").value%></B></td></tr></table></td></tr><!--显示留言人的头像、用户名--><trbgcolor=#f8f8f8><tdvalign=topwidth="21%"><tablecellspacing=1cellpadding=3width="98%"align=centerborder=0><tr><tdvalign=center><br><imgalt=""src="<%=rs.fields("faceurl").value%>"></td></tr><tr><tdvalign=center><b><%=rs.fields("username").value%></b></td></tr></table></td><!--显示留言人的qq号码、email、和留言编号--><tdvalign=topwidth="79%"><tablecellspacing=0cellpadding=0width="99%"align=centerborder=1><tr><tdalign=leftwidth="10%"height=25><imgheight=18alt="<%=rs.fields("qq").value%>"src="images/08.jpg"width=45border=0></td><tdalign=leftwidth="71%"><aherf="mailto:<%=rs.fields("email").value%>"target=_blank><imgheight=18alt="<%=rs.fields("email").value%>"src="images/08.jpg"width=45border=0></a></td><tdalign=right>第<%=rs.absoluteposition%>条留言</td></tr></table><!--显示留言主题、内容--><tablecellspacing=3cellpadding=1width="96%"align=centerborder=1><tr><tdalign=left><b><%=rs.fields("title").value%></b></td></tr><tr><tdalign=left><%=rs.fields("content").value%></td></tr></table><!--如果留言已回复，则显示回复信息，否则不显示--><%ifrs.fields("replystatus")=1then%><tablecellspacing=5cellpadding=1width="96%"align=centerborder=1><tr><tdstyle="height:20px"align=left><b>回复主题</b><%=rs.fields("replytitle").value%></td></tr><tr><tdwidth=500align=left><%=rs.fields("replycontent").value%><divalign=right><b>回复人：</b><%=rs.fields("replyperson").value%> <b>时间:</b><%=rs.fields("replytime").value%></div></td></tr></table><%endif%></td></tr></td><!--显示留言人的ip地址、留言时间--><trbgcolor="#f8f8f8"><tdvalign=centeralign=center><imgheight=15alt=发帖ip:<%=rs.fields("ip").value%>src="images/05.jpg"width=16><%=rs.fields("writetime").value%></td><!--显示编辑留言、回复留言和删除留言按钮，管理员可以对留言进行操作--><tdvalign=bottom><tablecellspacing=0cellpadding=0width="100%"><tr><tdalign=leftwidth="78%"><ahref="editmsg.asp?id=<%=rs.fields("id").value%>"><imgalt="编辑留言"src="images/20.jpg"border=0></a><ahref="replymsg.asp?id=<%=rs.fields("id").value%>"><imgalt="回复留言"src="images/05.jpg"border=0></a><ahref="replymsg.asp?id=<%=rs.fields("id").value%>"><imgalt="回复留言"src="images/05.jpg"border=0></a></td><tdalign=rightwidth="22%"></td></tr></table></td></tr></table></td></tr><!--显示下一条留言信息，如果没有更多的留言，则退出--><%rs.movenextifrs.eofthenexitfornext%><!--显示留言的页数和条数信息，首页、上一页、下一页和尾页的超链接，以及每个页码的超链接--><tralign=right><td><tablecellspacing="1"cellpadding="0"border="1"><tralign="center"><tdtitle=留言信息width="100"> 留言信息</td><tdtitle="总页数/当前页码"> <%=rs.pagecount%>/<%=currentpage%> </td><tdtitle="总留言数/每页显示条数"> <%=rs.recordcount%>/<%=rs.pagesize%> </td><!--如果当前页是第一页，则以红色字体显示“首页”“上一页”，且不显示超链接--><%ifcurrentpage=1then%><tdwidth="60"> <fontcolor="#cc0000">首页</font> </td><tdwidth="85"> <fontcolor="#cc0000">上一页</font></td><!--如果当前页不是第一页，则显示“首页”和“上一页”的超链接--><%else%><tdwidth="56"><atitle="首页"href="default.asp?page=1">首页</a></td><tdwidth="85"> <atitle="上一页"href="default.asp?page=<%=currentpage-1%>">上一页</a> </td><%endif%><tdtitle="数字页码"> <%'输出每一页的页码，并提供其超链接；当前页不提供超链接fori=1tors.pagecountifi=currentpagethen%><fontcolor="#cc0000"><%=i%></font> <%else%><ahref="default.asp?page=<%=i%>"><%=i%></a> <%endifnext%> </td><!--如果当前页是最后一页，以红色字体显示“下一页”“尾页”，且不显示超链接--><%ifcurrentpage=rs.pagecountthen%><tdwidth="85"> <fontcolor="#cc0000">下一页</font> </td><tdwidth="60"> <fontcolor="#cc0000">尾页</font> </td><!--如果当前页不是最后一页，则显示“下一页”和“尾页”的超链接--><%else%><tdwidth="85"> <atitle="下一页"href="default.asp?page=<%=currentpage+1%>">下一页</a> </td><tdwidth="60"> <atitle="尾页"href="default.asp?page=<%=rs.pagecount%>">尾页</a> </td><%endif%></tr></table></td></tr></table><%setrs=nothing%>
解决方案
解决方案二：
分页不正常，是很正常，你一直都是从1开始的建议先去看下规则
解决方案三：
引用1楼chinmo的回复:
分页不正常，是很正常，你一直都是从1开始的建议先去看下规则
mark..
解决方案四：
参考：setrs=server.CreateObject("adodb.recordset")rs.opensql,conn,1,1ifrs.eofandrs.bofthenresponse.Write("<tdwidth='151'height='146'>暂无商品！</td>")elsers.PageSize=16'每页记录条数iCount=rs.RecordCount'记录总数iPageSize=rs.PageSizemaxpage=rs.PageCountpage=request("page")ifNotIsNumeric(page)orpage=""thenpage=1elsepage=cint(page)endififpage<1thenpage=1elseifpage>maxpagethenpage=maxpageendifrs.AbsolutePage=Pageifpage=maxpagethenx=iCount-(maxpage-1)*iPageSizeelsex=iPageSizeendifzx=0Fori=1Tox%><tdwidth="151"height="140"align="center"><tableborder="0"cellpadding="0"cellspacing="0"align="center"><tr><tdalign="center"width="155"height="134"><%ifrs("bookpic")=""thenresponse.Write("暂无商品图片！")else%><ahref='view_shop.asp?pid=<%=rs("bookid")%>'><imgborder="0"src='<%=rs("bookpic")%>'width="120"height="140"border="0"></a><%endif%></td></tr><tr><tdalign="center"><%iflen(rs("bookname"))>10thenresponse.Write("<spanstyle='font-size:9pt'><ahref='view_shop.asp?pid="&rs("bookid")&"'><fontcolor='#FD5322'>"&left(rs("bookname"),10)&"</font></a></span>")elseresponse.Write("<spanstyle='font-size:9pt'><ahref='view_shop.asp?pid="&rs("bookid")&"'><fontcolor='#FD5322'>"&rs("bookname")&"</font></a></span>")endif%></td></tr><tr><tdalign="center"><spanstyle='font-size:9pt'><fontcolor="#4F4F4F">原价:<%ifrs("shichangjia")=0then%>面议元<%else%><%=rs("shichangjia")%>元<%endif%>现价:</font></span><fontcolor="#226F24"><spanstyle="font-size:9pt;font-weight:700"><%ifrs("huiyuanjia")=0then%>面议<%else%><%=rs("huiyuanjia")%><%endif%></span></font><spanstyle="font-size:9pt">元</span></td></tr></table></td><%rs.movenextzx=zx+1ifzxmod4=0then%></tr><%elseendifnextrs.close()setrs=nothing%><tr><tdcolspan="4"><spanstyle="PADDING-RIGHT:0px;PADDING-LEFT:0px;FONT-SIZE:9pt;PADDING-BOTTOM:0px;MARGIN:0px;PADDING-TOP:0px"><palign="center"><fontcolor="#4F4F4F"><%callPageControl(iCount,maxpage,page,"border=0align=center","<palign=center>")endifrs.closesetrs=nothingSubPageControl(iCount,pagecount,page,table_style,font_style)'生成上一页下一页链接Dimquery,a,x,tempaction="http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("SCRIPT_NAME")query=Split(Request.ServerVariables("QUERY_STRING"),"&")ForEachxInquerya=Split(x,"=")IfStrComp(a(0),"page",vbTextCompare)<>0Thentemp=temp&a(0)&"="&a(1)&"&"EndIfNextResponse.Write("<tablewidth=100%border=0cellpadding=0cellspacing=0>"&vbCrLf)Response.Write("<formmethod=getonsubmit=""document.location='"&action&"?"&temp&"Page='+this.page.value;returnfalse;""><TR>"&vbCrLf)Response.Write("<TDalign=centerheight=40>"&vbCrLf)Response.Write(font_style&vbCrLf)ifpage<=1thenResponse.Write("<fontsize='2'color='#555555'>首页</font>"&vbCrLf)Response.Write("<fontsize='2'color='#555555'>上一页</font>"&vbCrLf)elseResponse.Write("<AHREF="&action&"?"&temp&"Page=1><fontsize='2'color='#555555'>首页</font></A>"&vbCrLf)Response.Write("<AHREF="&action&"?"&temp&"Page="&(Page-1)&"><fontsize='2'color='#555555'>上一页</font></A>"&vbCrLf)endififpage>=pagecountthenResponse.Write("<fontsize='2'color='#555555'>下一页</font>"&vbCrLf)Response.Write("<fontsize='2'color='#555555'>尾页</font>"&vbCrLf)elseResponse.Write("<AHREF="&action&"?"&temp&"Page="&(Page+1)&"><fontsize='2'color='#555555'>下一页</font></A>"&vbCrLf)Response.Write("<AHREF="&action&"?"&temp&"Page="&pagecount&"><fontsize='2'color='#555555'>尾页</font></A>"&vbCrLf)endifResponse.Write("<fontsize='2'color='#555555'>页次</font>：<fontsize='2'color='#555555'>"&page&"/"&pageCount&"</font><fontsize='2'>页</font>"&vbCrLf)Response.Write("<fontsize='2'color='#555555'>共有</font><fontsize='2'color='#555555'>"&iCount&"</font><fontsize='2'color='#555555'>种商品</font>"&vbCrLf)Response.Write("<fontsize='2'color='#555555'>转到</font>"&"<INPUTCLASS=wenbenkuangTYEP=TEXTNAME=pageSIZE=2Maxlength=5VALUE="&page&">"&"<fontsize='2'color='#555555'>页</font>"&vbCrLf&"<INPUTCLASS=go-wenbenkuangtype=submitvalue=GO>")Response.Write("</TD>"&vbCrLf)Response.Write("</TR></form>"&vbCrLf)Response.Write("</table>"&vbCrLf)EndSub%></font></p></span></td></tr></table>
解决方案五：
楼上可不可以告诉我错在哪行代码？为什么会都是从1开始的呢？楼上指的是currentpage变量吗？我该怎么测试出它的各个值呢？