四步完成分页显示

作者:齐人无福 来源:ITPOW 日期:2002-8-6
============
分页前的准备
<%
dim page,pageSize,pageCount,rowCount
//page当前页
//pageSize每页显示的记录数
//pageCount总共的页数
page=request.querystring("page")
if page="" then
  page=1
else
  page=cint(page)
end if
pageSize=20
pageCount=1
rowCount=pageSize
%>

========
开始分页
<%
if not (rs.bof and rs.eof) then
  //只有在选取的记录数不为空的情况下才能分页
  rs.pageSize=pageSize
  pageCount=rs.pageCount
  if page>pageCount then page=PageCount
  //这里加上这句是为了保证某些记录被删了的情况下仍能显示
  rs.absolutePage=page
end if
%>

========
显示内容
<%
do while nor rs.eof and rowCount>0
  //如果记录比较多,用rs.eof来判断,效率不是很高
  //可以用一个变量来判断现在是第几条记录。如果是最后一条就停止。
  rs.moveNext
  rowCount=rowCount-1
loop
%>

========
收尾工作(举例)
      <form action="index.asp" method="get">
            <%
            response.write("页次:<font color=#FF0000>"&page&"</font>/<font color=#FF0000>"&pageCount&"</font>&nbsp;")
            if page=1 then
              response.write("<font color=C0C0C0>首页</font>&nbsp;<font color=C0C0C0>上页</font>&nbsp;")
            else
              response.write("<a href=index.asp?page=1>首页</a>&nbsp;<a href=index.asp?page="&page-1&">上页</a>&nbsp;")
            end if
            if page<>pageCount then
              response.write("<a href=index.asp?page="&page+1&">下页</a>&nbsp;<a href=index.asp?page="&pageCount&">尾页</a>&nbsp;")
            else
              response.write("<font color=C0C0C0>下页</font>&nbsp;<font color=C0C0C0>尾页</font>&nbsp;")
            end if
            %>
            跳转至<input type="text" size="2" name="page" onmouseover="this.select()">页
      </form>
相关文章