ASP通用分页样式函数代码

　　<%
******************************
函数：MultiPage(Numbers,Perpage,Curpage,Url_Add)
参数：Numbers,总记录数；Perpage,每页记录数；Curpage,当前页；Url_Add,当前页其它参数如?action=list&
作者：阿里西西
日期：2007/7/15
描述：ASP通用分页样式函数
示例：MultiPage(100,10,2,?action=list&)
******************************
FunctionMultiPage(Numbers,Perpage,Curpage,Url_Add)
CurPage=Int(Curpage)
DimURL
URL=Request.ServerVariables(Script_Name)&Url_Add
MultiPage=
DimPage,Offset,PageI
IfInt(Numbers)>Int(PerPage)Then
Page=10
Offset=2
DimPages,FromPage,ToPage
IfNumbersModCint(Perpage)=0Then
Pages=Int(Numbers/Perpage)
Else
Pages=Int(Numbers/Perpage)+1
EndIf
FromPage=Curpage-Offset
ToPage=Curpage+Page-Offset-1
IfPage>PagesThen
FromPage=1
ToPage=Pages
Else
IfFromPage<1Then
Topage=Curpage+1-FromPage
FromPage=1
If(ToPage-FromPage)<PageAnd(ToPage-FromPage)<PagesThenToPage=Page
ElseIFTopage>PagesThen
FromPage=Curpage-Pages+ToPage
ToPage=Pages
If(ToPage-FromPage)<PageAnd(ToPage-FromPage)<PagesThenFromPage=Pages-Page+1
EndIf
EndIf
MultiPage=<ahref=&Url&page=1><<</a>
ForPageI=FromPageTOToPage
IfPageI<>CurPageThen
MultiPage=MultiPage&<ahref=&Url&page=&PageI&>[&PageI&]</a>
Else
MultiPage=MultiPage&<b>[&PageI&]</b>
EndIf
Next
IfInt(Pages)>Int(Page)Then
MultiPage=MultiPage&...<ahref=&Url&page=&Pages&>[&pages&]>></a>
Else
MultiPage=MultiPage&<ahref=&Url&page=&Pages&>>></a>
EndIf
EndIf
EndFunction%>