ASP通用分页样式函数代码

时间:2022-09-18 12:43:45
  1. <%  
  2. '******************************  
  3. '函数:MultiPage(Numbers,Perpage,Curpage,Url_Add)  
  4. '参数:Numbers,总记录数;Perpage,每页记录数;Curpage,当前页;Url_Add,当前页其它参数如?action=list&  
  5. '作者:阿里西西  
  6. '日期:2007/7/15  
  7. '描述:ASP通用分页样式函数  
  8. '示例:MultiPage(100,10,2,"?action=list&")  
  9. '******************************  
  10. Function MultiPage(Numbers,Perpage,Curpage,Url_Add)  
  11.  CurPage=Int(Curpage)  
  12.  Dim URL  
  13.  URL=Request.ServerVariables("Script_Name")&Url_Add  
  14.  MultiPage=""  
  15.  Dim Page,Offset,PageI  
  16.  If Int(Numbers)>Int(PerPage) Then  
  17.   Page=10  
  18.   Offset=2  
  19.   Dim Pages,FromPage,ToPage  
  20.   If Numbers Mod Cint(Perpage)=0 Then  
  21.    Pages=Int(Numbers/Perpage)  
  22.   Else  
  23.    Pages=Int(Numbers/Perpage)+1  
  24.   End If  
  25.   FromPage=Curpage-Offset  
  26.   ToPage=Curpage+Page-Offset-1  
  27.   If Page>Pages Then  
  28.    FromPage=1  
  29.    ToPage=Pages  
  30.   Else  
  31.    If FromPage<1 Then  
  32.     Topage=Curpage+1-FromPage  
  33.     FromPage=1  
  34.     If (ToPage-FromPage)<Page And (ToPage-FromPage)<Pages Then ToPage=Page  
  35.    ElseIF Topage>Pages Then  
  36.     FromPage =Curpage-Pages +ToPage  
  37.     ToPage=Pages  
  38.     If (ToPage-FromPage)<Page And (ToPage-FromPage)<Pages Then FromPage=Pages-Page+1  
  39.    End If  
  40.   End If  
  41.   MultiPage="<a href='"&Url&"page=1'><<</a>  "  
  42.   For PageI=FromPage TO ToPage  
  43.    If PageI<>CurPage Then  
  44.     MultiPage=MultiPage&"<a href='"&Url&"page="&PageI&"'>["&PageI&"]</a> "  
  45.    Else  
  46.     MultiPage=MultiPage&"<b>["&PageI&"]</b> "  
  47.    End If  
  48.   Next  
  49.   If Int(Pages)>Int(Page) Then  
  50.    MultiPage=MultiPage&" ... <a href='"&Url&"page="&Pages&"'> ["&pages&"] >></a>"  
  51.   Else  
  52.    MultiPage=MultiPage&"<a href='"&Url&"page="&Pages&"'>>></a>"  
  53.   End If  
  54.  End If  
  55. End Function%>