关于分页显示，样式很多，比如动网的分页显示、google的分页显示，就我的网站里关于分页的样式就有很多，而这里我们实现的分页基本类似于www.china-sd.net/yahoo，大家可以去看看！

说明：显示“页次/总页数”；显示“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 %>

页数： <<

<%

for i =fromPages to ToPages %>

&T1=<%=searchdata%>><%=i%>

<%next%>

>>

("<<" 这个符号代表"<<",">>"这个符号代表">>")

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