想找个好点的ASP 分页插件？

来源：百度知道 编辑：UC知道 时间：2024/06/22 19:10:06
想找个好点的ASP分页插件，好像有个“落魄小生插件集”不错。。但总是找不到链接。那位兄台有。帮忙给个地址！。

我自己用的
调用方法:MultiPage(总记录数,每一页的数量,页数,页面地址)

Function MultiPage(Numbers,Perpage,Curpage,Url_Add) '分页函数
CurPage=Int(Curpage)
MultiPage=""

dim URL
URL=Request.ServerVariables("Script_Name")&Url_Add

Dim Page,Offset,PageI
If Int(Numbers)>Int(PerPage) Then
Page=10
Offset=2
Dim Pages,FromPage,ToPage
If Numbers Mod Cint(Perpage)=0 Then
Pages=Int(Numbers/Perpage)
Else
Pages=Int(Numbers/Perpage)+1
End If

FromPage=Curpage-Offset
ToPage=Curpage+Page-Offset-1
If Page>Pages Then
FromPage=1
ToPage=Pages
Else
If FromPage<1 Then
Topage=Curpage+1-FromPage
FromPage=1
If (ToPage-FromPage)<Page And (ToPage-FromPage)<Pages Then ToPage=Page
ElseIf Topage>Pages Then
FromPage =Curpage-Pages +ToPage
ToPage=Pages
If (ToPage-FromPage