<% '****************************** '函数：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%>