ASP通用分页样式函数代码

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%>