<% If rs.RecordCount Mod rs.pagesize=0 Then n= rs.RecordCount \ rs.pagesize Else n= rs.RecordCount \ rs.pagesize+1 End If if rs.pagecount > 0 then %> <% else %> <% end if %>

共检索到<%= rs.recordcount %>条信息  每页为<%= rs.pagesize %>条  当前为<%= intpage %>/<%=rs.Pagecount %>页 <% if intpage<2 then Response.Write "首页 上一页 " else %> ?page=1<%= pagestr %>">首页 ?page=<%=intpage -1%><%= pagestr %>">上页 <% end if %> <% If n-intpage<1 Then Response.Write "下一页 尾页" Else %> ?page=<%=intpage +1%><%= pagestr %>">下页 ?page=<%=rs.PageCount%><%= pagestr %>">尾页 <% End If %> 转到： <% for i = 1 to rs.PageCount if i = intpage then %> ?page=<%=i%><%= pagestr %>" selected>第<%=i%>页 <% else %> ?page=<%=i%><%= pagestr %>">第<%=i%>页 <% end if next %>