我在做一个发布信息系统的时候做分页部分出了麻烦具体是这样 我用showclass.asp?classid=id号来显示类别新闻,但是做分页的时候无法正常分页,现在截取部分代码,请各位告诉我怎样纠正 %if page>1 then%> <%if page<rs.pagecount then %> [<a Href="<%=filepath%>?classid=&classid&&Page=<% = 1%>">首页</a>] [<a Href="<%=filepath%>?classid=&classid&&Page=<% = page -1 %>">上一页</a>] [<a Href="<%=filepath%>?classid=&classid&&Page=<% = page + 1%>">下一页</a>] [<a Href="<%=filepath%>?classid=&classid&&Page=<% = rs.PageCount%>">尾页</a>] <%else%> [<a Href="<%=filepath%>?classid=&classid&&Page=<% = 1%>">首页</a>] [<a Href="<%=filepath%>?classid=&classid&&Page=<% = page -1 %>">上一页</a>] [下一页] [尾页] <% end if %> <%else%> [首页] [上一页] [<a Href="<%=filepath%>?classid=&classid&&Page=<% = page + 1%>">下一页</a>] [<a Href="<%=filepath%>?classid=&classid&&Page=<% = rs.PageCount%>">尾页</a>] <%end if %> <%else%> [首页] [上一页] [下一页] [尾页] <%end if%> 其中classid已经正常获取且类型为数字
前面的也给上把 <% dim classid,classname classid=request("classid") set rs=server.createobject("adodb.recordset") sql="select * from item where id="&classid rs.open sql,conn,1,1 classname=rs("classname") %> <%filepath=request.servervariables("path_info")%> <%page=1 '设置变量初始值PAGE=1 page=request.querystring("page") 'page值为接受值 rs.PageSize = 3 '每页显示记录数 if Not IsEmpty(trim(Request("Page"))) then '如果PAGE已经初始化... Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量 if Page > rs.PageCount then '如果接收的页数大于总页数 rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页 elseif Page <= 0 then '如果page小于等于0 Page = 1 '设置PAGE等于第一页 else rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数 end if End if Page = rs.AbsolutePage%>
在显示足够记录后，应该退出循环。 循环前声明一个计数器 i，每显示一条记录将其递增一，如果大于每页记录数，退出循环。 代码: Dim i : i = 0 Do While ... ... i = i + 1 If i > 3 Then Exit Do rs.MoveNext Loop