当前位置:Gxlcms > PHP教程 > 一个分页函数:显示“上一页下一页”等

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

时间:2021-07-01 10:21:17 帮助过:29人阅读

  1. '**************************************************

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

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

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

  26. strTemp = "

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

  41. If CurrentPage >= TotalPage Then

  42. strTemp = strTemp & "下一页 尾页"
  43. Else
  44. strTemp = strTemp & "下一页 "
  45. strTemp = strTemp & "尾页"
  46. End If
  47. strTemp = strTemp & " 页次:" & CurrentPage & "/" & TotalPage & "页 "
  48. If ShowMaxPerPage = True Then
  49. strTemp = strTemp & " " & strUnit & "/页"
  50. Else
  51. strTemp = strTemp & " " & MaxPerPage & "" & strUnit & "/页"
  52. End If
  53. If ShowAllPages = True Then
  54. If TotalPage > 20 Then
  55. strTemp = strTemp & " 转到第页"
  56. Else
  57. strTemp = strTemp & " 转到:"
  58. End If
  59. End If
  60. strTemp = strTemp & "
  61. "
  62. ShowPage = strTemp
  63. End Function
  64. ?>

人气教程排行