asp的一个分页函数(vbscript)

 1<%
 2Function ShowPageList(rs,pageSize,postUrl,units,alertColor)
 3    Dim totalNum,n,page,pageString
 4    IF rs.EOF Then Exit Function
 5    totalNum = rs.RecordCount
 6    
 7    IF totalNum < 1 Then
 8        ShowPageList = "<div><h3>数据集不支持分页功能!</h3></div>"
 9        Exit Function
10    End IF
11    
12    rs.PageSize = pageSize
13    n = rs.PageCount
14    
15    page = Request("page")
16    IF  Not IsNumeric(page) or IsNull(page) or IsEmpty(page) Then
17        page =1
18    Else
19        page = Cint(page)
20        IF page < 1 Then page =1
21        IF page > n Then page = n
22    End IF
23    rs.AbsolutePage = page
24
25    
26    IF Right(postUrl,1) <> "?" Then postUrl = postUrl & "?"
27    For Each item In Request.QueryString
28        IF item <> "page" Then
29            postUrl = item & "=" & Request.QueryString(item) & "&" 
30        End IF
31    Next
32
33
34    pageString = "<form name='Pages' method='Post' action=" & postUrl & ">"
35
36    For Each item In Request.Form
37        IF item <> "page" Then
38            pageString = pageString & "<input type='hidden' name='" &item & "'"
39            pageString = pageString & " value='" & Request.Form(item) & "'/>"
40        End IF        
41    Next
42    
43    pageString = pageString & "共<font color='" & alertColor & "'><b> " & totalNum & " </b></font>"
44    pageString = pageString & units
45    pageString = pageString & " 每页显示  <font color='" & alertColor & "'><b>" & pageSize & "</b></font>  " & units
46    
47    If page<2 then
48            pageString = pageString & "&nbsp;首页 &nbsp;上一页&nbsp;" 
49    else
50        pageString = pageString & " &nbsp;"
51        pageString = pageString & " <a href='" & postUrl & "page=1'>首页</a>&nbsp;"
52        pageString = pageString & " <a href='" & postUrl & "page=" & (page-1) & "'>上一页</a>"
53        pageString = pageString & "&nbsp;" 
54    end if
55    
56    if n-Page<1 then
57        pageString = pageString & "下一页&nbsp;&nbsp;末页" 
58    else
59        pageString = pageString & "<a href='" & postUrl & "page=" & (page+1) & "'>下一页</a>" 
60        pageString = pageString & "&nbsp;"
61        pageString = pageString & "<a href='" & postUrl & "page=" & n & "'>末页</a>" 
62    end if
63        pageString = pageString & "&nbsp;"
64        pageString = pageString & "当前：<strong><font color='" &alertColor & "'>"
65        pageString = pageString & page & "</font>/" & n & "</strong> "
66        pageString = pageString & "页 &nbsp;转到：" 
67        pageString = pageString & "<select name='page' size='1' onChange='javascript:submit()'>"
68    
69    For i = 1 To n
70        pageString = pageString & "<option value='" & i & "' "
71        IF i = page Then 
72            pageString = pageString & " selected "
73        End IF
74        pageString = pageString & ">第" & i & "页</option>"
75    Next
76    
77    pageString = pageString & "</select>"
78    pageString = pageString & "</form>"
79    ShowPageList = pageString
80End Function
81%>