[原创]分页显视详解
<%dim page_no
'第一步：确定在第几页
'第二步：用循环显示内容
'下面的代码执行的是第一步：
'如果第一次打开，page_no为1，否则由传回的参数决定 request.querystring()
if request.querystring("page_no")="" then
page_no=1
else
page_no=Cint(request.querystring("page_no"))
'Cint()函数，将字符串转换为整数
end if
'-------------------------
'第一步执行结束
'-------------------------
%>
<h2 align="center">我们的通讯录</h2>
<center>
<table border="1" width="90%">
<tr bgcolor="#b7b7b7" align="center">
<td width=20%>姓名</td>
<td width=30%>电话</td>
<td width=30%>email</td>
</tr>
<%
'下面的代码执行第二步：
dim strsql,rs
'建立recordset记录集
set rs=server.createobject("adodb.recordset")
strsql="select * from users order by submit_date desc"
rs.open strsql,db,1,2
'用循环显示记录
if not rs.bof and not rs.eof then
'设置一页显示5条
rs.pagesize=5
'设置当前页面
rs.absolutepage=page_no
'循环显示当前面的所有记录
'------------------
dim i
i=rs.pagesize
do while not rs.eof and i>0
i=i-1
'每显示一条，i减1，当变成0时，表示本页结束
%>
<tr bgcolor="f2f2f2" align="center">
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("email")%></td>
</tr>
<%
rs.movenext '记录指针向下移一条
loop
%>
<%
else
response.write("没有记录")
end if
%>
</table>
<%
'输出页面信息
' rs.pagecount表示总页数
response.write("<p>一共有"&rs.pagecount&"页,")
response.write("当前是第"&page_no&"页,")
'输出第一页，上一页，下一页，最后一页的链接
'定义两个变量，分别显示上一页和下一页的页码
dim numpre,numnext
numpre=page_no-1
'当前页减1，是上一页
numnext=page_no+1
'当前页加1，是下一页
'先输出第一页的链接
response.write("<a href='index.asp?page_no=1'>第一页</a>")
'输出上一页的链接，如果numpre=0,表示当前已经是第一页了，不加链接
if numpre=0 then
response.write("&nbsp;&nbsp;上一页&nbsp;&nbsp;")
else
response.write("&nbsp;&nbsp;<a href='index.asp?page_no="&numpre&"'>上一页</a>&nbsp;&nbsp;")
end if
'输出下一页链接，如果numnext>rs.pagecount,表示已经是最后一页了，不能加链接
if numnext>rs.pagecount then
response.write("&nbsp;&nbsp;下一页&nbsp;&nbsp;")
else
response.write("<a href='index.asp?page_no="&numnext&"'>下一页</a>")
end if
'输出最后一页的链接
response.write("&nbsp;&nbsp;<a href='index.asp?page_no="&rs.pagecount&"'>最后页</a>")
%>
<br>
<br>
<%
'用数字显示分页
response.write("<p>一共有"&rs.pagecount&"页,")
response.write("当前是第"&page_no&"页,")
response.write("请选择数据页：")
'用循环显示
for i=1 to rs.pagecount
%>
<a href="index.asp?page_no=<%=i%>"><%=i%></a>
<%
next
%>
