说明：显示“页次/总页数”；显示“1...”页数，最多显示十页；“<<”显示前十页，“>>”显示后十页。这样我们可以很方便的显示每一页的资料信息，而且还保持了页面的整洁美观。

    实现：

1、初始化页次：

If Request.querystring("CurPage") = "" or Request.querystring("CurPage") = 0 then
CurPage = 1
Else
CurPage = CINT(Request("CurPage"))
End If

2、获得页数：

rs.PageSize=20 '每页显示的记录数
Dim TotalPages
TotalPages = rs.PageCount '获得总页数
If CurPage>rs.Pagecount Then
CurPage=rs.Pagecount
end if
rs.AbsolutePage=CurPage
rs.CacheSize = rs.PageSize
Dim Totalcount
Totalcount =INT(rs.recordcount)

3、分页显示的实现：

○页次： <%=CurPage%> / <%=TotalPages%>

<%if int(int(CurPage/10)*10+9)>TotalPages then
ToPages=TotalPages
else
ToPages=int(int(CurPage/10)*10+9)
end if
if CurPage/10 < 1 then
fromPages=1
else
fromPages=int(CurPage/10)*10
end if %>
<td width="50%" align="right">页数： <a href="search.ASPCurPage=<%=fromPages-1%>&T1=<%=searchdata%>">&lt;&lt;</a>
<%
for i =fromPages to ToPages %>
<a href=../../search.ASP?CurPage=<%=i%>&T1=<%=searchdata%>><%=i%></a>
<%next%>
<a href="search.ASP?CurPage=<%=ToPages+1%>&T1=<%=searchdata%>">&gt;&gt;</a>

("&lt;&lt;" 这个符号代表"<<","&gt;&gt;"这个符号代表">>")

当然分页显示的代码不能单独运行，它放到以前写的sql语句并且运行这个sql语句之后，所以你不必着急现在就运行这段代码。