communauté Apprendre Bibliothèque d'outils Loisirs
recherche
Français
Maison > développement back-end > tutoriel php > 一个分页函数：显示“上一页 下一页”等

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

WBOY
Libérer： 2016-07-25 09:02:51
original
1824 Les gens l'ont consulté

  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 & " 转到："
  60. End If
  61. End If
  62. strTemp = strTemp & "
    63. "
  63. ShowPage = strTemp
  64. End Function
  65. ?>
复制代码


Étiquettes associées：
一个分页函数：显示“上一页 下一页”等
source：php.cn
Article précédent：检测是否为有效邮件(email)地址的小函数 Article suivant：在字符串指定位置插入一段字符串的小函数
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
Derniers articles par auteur
Derniers numéros
La page ne peut soudainement plus extraire le CSS ou le bootstrap Je suis donc en train de développer une page, j'en ai fait une partie hier et ça a très bi...
Depuis 2024-04-06 21:58:04
0
1
800
L'ordre d'exécution des fonctions de planification VueJS pose des problèmes J'essaie d'afficher une liste d'annonces (récupérées de l'API) sur une page. J'utilise une...
Depuis 2024-04-06 10:37:58
0
1
385
Pousser des objets vers un tableau, API composable Il y a un projet. Il existe deux options de sélection « taille » (grande, petite) et quant...
Depuis 2024-04-05 14:41:47
0
1
1526
Exporter la variable useState vers un autre composant/page Je suis un peu coincé. J'ai placé les résultats des entrées utilisateur dans un tableau qu...
Depuis 2024-04-05 11:30:54
0
1
286
L'actualisation forcée est une conséquence de l'accès à des chemins non définis ou à des pages d'erreur dans Next.js L'accès à un chemin non défini ou à une page d'erreur entraîne une actualisation matériell...
Depuis 2024-04-05 08:32:46
0
1
400
Rubriques connexes
Plus>
Recommandations populaires
Tutoriels populaires
Plus>
Tutoriels associés
Recommandations populaires
Derniers cours
Derniers téléchargements
Plus>
effets Web
Code source du site Web
Matériel du site Web
Modèle frontal