Gemeinschaft Lernen Tools-Bibliothek Freizeit
suchen
Deutsch
Heim > Backend-Entwicklung > PHP-Tutorial > 一个分页函数：显示“上一页 下一页”等

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

WBOY
Freigeben： 2016-07-25 09:02:51
Original
1826 Leute haben es durchsucht

  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. ?>
复制代码


Verwandte Etiketten：
一个分页函数：显示“上一页 下一页”等
Quelle：php.cn
Vorheriger Artikel：检测是否为有效邮件(email)地址的小函数 Nächster Artikel：在字符串指定位置插入一段字符串的小函数
Erklärung dieser Website
Der Inhalt dieses Artikels wird freiwillig von Internetnutzern beigesteuert und das Urheberrecht liegt beim ursprünglichen Autor. Diese Website übernimmt keine entsprechende rechtliche Verantwortung. Wenn Sie Inhalte finden, bei denen der Verdacht eines Plagiats oder einer Rechtsverletzung besteht, wenden Sie sich bitte an admin@php.cn
Neueste Artikel des Autors
Aktuelle Ausgaben
Die Seite kann plötzlich weder CSS noch Bootstrap abrufen Ich entwickle also eine Seite, einen Teil davon habe ich gestern gemacht und es hat großar...
Aus 2024-04-06 21:58:04
0
1
800
Die Ausführungsreihenfolge der VueJS-Planungsfunktionen verursacht Probleme Ich versuche, eine Liste von Ankündigungen (von der API abgerufen) auf einer Seite anzuzei...
Aus 2024-04-06 10:37:58
0
1
385
Schieben Sie Objekte in ein Array, eine zusammensetzbare API Es gibt ein Projekt. Es gibt zwei Auswahlmöglichkeiten „Größe“ (groß, klein) und Menge (2/...
Aus 2024-04-05 14:41:47
0
1
1526
UseState-Variable in eine andere Komponente/Seite exportieren Ich stecke ein bisschen fest. Ich habe die Benutzereingabeergebnisse in ein Array eingefüg...
Aus 2024-04-05 11:30:54
0
1
286
Eine erzwungene Aktualisierung ist eine Folge des Zugriffs auf undefinierte Pfade oder Fehlerseiten in Next.js Der Zugriff auf einen undefinierten Pfad oder eine Fehlerseite führt dazu, dass Next.js ei...
Aus 2024-04-05 08:32:46
0
1
400
verwandte Themen
Mehr>
Beliebte Empfehlungen
Beliebte Tutorials
Mehr>
Verwandte Tutorials
Beliebte Empfehlungen
Aktuelle Kurse
Neueste Downloads
Mehr>
Web-Effekte
Quellcode der Website
Website-Materialien
Frontend-Vorlage