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=>  For PageI=FromPage TO ToPage 
   If PageI<>CurPage Then 
    MultiPage=MultiPage&"<a href=>   Else 
    MultiPage=MultiPage&"<b>["&PageI&"]</b> " 
   End If 
  Next 
  If Int(Pages)>Int(Page) Then 
   MultiPage=MultiPage&" ... <a href=>  Else 
   MultiPage=MultiPage&"<a href=>  End If 
 End If 
End Function%>

上一个：ip138之asp小偷程序代码
下一个：推荐的用Asp实现屏蔽IP地址访问的代码