ASP通用分页样式函数代码

<%

'******************************

'函数：MultiPage(Numbers,Perpage,Curpage,Url_Add)

'参数：Numbers,总记录数；Perpage,每页记录数；Curpage,当前页；Url_Add,当前页其它参数如?action=list&

'作者：阿里西西

'日期：2007/7/15

'描述：ASP通用分页样式函数

'示例：MultiPage(100,10,2,"?action=list&")

'******************************

Function MultiPage(Numbers,Perpage,Curpage,Url_Add)

 CurPage=Int(Curpage)

 Dim URL

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

 MultiPage=""

 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)<Page And (ToPage-FromPage)<Pages Then FromPage=Pages-Page+1

   End If

  End If

  MultiPage="<a href='"&Url&"page=1'><<</a>  "

  For PageI=FromPage TO ToPage

   If PageI<>CurPage Then

    MultiPage=MultiPage&"<a href='"&Url&"page="&PageI&"'>["&PageI&"]</a> "

   Else

    MultiPage=MultiPage&"<b>["&PageI&"]</b> "

   End If

  Next

  If Int(Pages)>Int(Page) Then

   MultiPage=MultiPage&" ... <a href='"&Url&"page="&Pages&"'> ["&pages&"] >></a>"

  Else

   MultiPage=MultiPage&"<a href='"&Url&"page="&Pages&"'>>></a>"

  End If

 End If

End Function%>