一个分页函数：显示“上一页 下一页”等

3. '**************************************************

4. '函数名：ShowPage
5. '作 用：显示“上一页 下一页”等信息
6. '参 数：sFileName ----链接地址
7. ' TotalNumber ----总数量
8. ' MaxPerPage ----每页数量
9. ' CurrentPage ----当前页
10. ' ShowTotal ----是否显示总数量
11. ' ShowAllPages ---是否用下拉列表显示所有页面以供跳转。
12. ' strUnit ----计数单位
13. ' ShowMaxPerPage ----是否显示每页信息量选项框
14. '返回值：“上一页 下一页”等信息的html代码
15. '**************************************************
16. Function ShowPage(sfilename, totalnumber, MaxPerPage, CurrentPage, ShowTotal, ShowAllPages, strUnit, ShowMaxPerPage)
17. Dim TotalPage, strTemp, strUrl, i

18. If totalnumber = 0 Or MaxPerPage = 0 Or IsNull(MaxPerPage) Then

19. ShowPage = ""
20. Exit Function
21. End If
22. If totalnumber Mod MaxPerPage = 0 Then
23. TotalPage = totalnumber \ MaxPerPage
24. Else
25. TotalPage = totalnumber \ MaxPerPage + 1
26. End If
27. If CurrentPage > TotalPage Then CurrentPage = TotalPage

28. strTemp = "

    "
29. If ShowTotal = True Then
30. strTemp = strTemp & "共 " & totalnumber & " " & strUnit & " "
31. End If
32. If ShowMaxPerPage = True Then
33. strUrl = JoinChar(sfilename) & "MaxPerPage=" & MaxPerPage & "&"
34. Else
35. strUrl = JoinChar(sfilename)
36. End If
37. If CurrentPage = 1 Then
38. strTemp = strTemp & "首页 上一页 "
39. Else
40. strTemp = strTemp & "首页 "
41. strTemp = strTemp & "上一页 "
42. End If

43. If CurrentPage >= TotalPage Then

44. strTemp = strTemp & "下一页 尾页"
45. Else
46. strTemp = strTemp & "下一页 "
47. strTemp = strTemp & "尾页"
48. End If
49. strTemp = strTemp & " 页次：" & CurrentPage & "/" & TotalPage & "页 "
50. If ShowMaxPerPage = True Then
51. strTemp = strTemp & " " & strUnit & "/页"
52. Else
53. strTemp = strTemp & " " & MaxPerPage & "" & strUnit & "/页"
54. End If
55. If ShowAllPages = True Then
56. If TotalPage > 20 Then
57. strTemp = strTemp & " 转到第页"
58. Else
59. strTemp = strTemp & " 转到："
    For i = 1 To TotalPage
    strTemp = strTemp & "
    If PE_CLng(CurrentPage) = PE_CLng(i) Then strTemp = strTemp & " selected "
    strTemp = strTemp & ">第" & i & "页
    "
    Next
    strTemp = strTemp & "
    "
60. End If
61. End If
62. strTemp = strTemp & "

"

ShowPage = strTemp

End Function

?>

复制代码