四步完成分页显示
作者:齐人无福
来源:
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> ")
if page=1 then
response.write("<font color=C0C0C0>首页</font> <font color=C0C0C0>上页</font> ")
else
response.write("<a href=index.asp?page=1>首页</a> <a href=index.asp?page="&page-1&">上页</a> ")
end if
if page<>pageCount then
response.write("<a href=index.asp?page="&page+1&">下页</a> <a href=index.asp?page="&pageCount&">尾页</a> ")
else
response.write("<font color=C0C0C0>下页</font> <font color=C0C0C0>尾页</font> ")
end if
%>
跳转至<input type="text" size="2" name="page" onmouseover="this.select()">页
</form>