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

WBOY
Libérer: 2016-07-25 09:02:51
original
1797 Les gens l'ont consulté
  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. ?>
复制代码


source:php.cn
Déclaration de ce site Web
Le contenu de cet article est volontairement contribué par les internautes et les droits d'auteur appartiennent à l'auteur original. Ce site n'assume aucune responsabilité légale correspondante. Si vous trouvez un contenu suspecté de plagiat ou de contrefaçon, veuillez contacter admin@php.cn
Tutoriels populaires
Plus>
Derniers téléchargements
Plus>
effets Web
Code source du site Web
Matériel du site Web
Modèle frontal
À propos de nous Clause de non-responsabilité Sitemap
Site Web PHP chinois:Formation PHP en ligne sur le bien-être public,Aidez les apprenants PHP à grandir rapidement!