社区 学习 工具库 休闲
搜索
简体中文
首页 > 后端开发 > php教程 > 一个分页函数：显示“上一页 下一页”等

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

WBOY
发布： 2016-07-25 09:02:51
原创
1824 人浏览过

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


相关标签：
一个分页函数：显示“上一页 下一页”等
来源：php.cn
上一篇：检测是否为有效邮件(email)地址的小函数 下一篇：在字符串指定位置插入一段字符串的小函数
本站声明
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系admin@php.cn
作者最新文章
最新问题
页面突然无法拉动 css 或 bootstrap 所以我正在开发一个页面，我昨天做了一部分，效果很好，今天我继续做剩下的部分，一切都很好。当我尝试将其作为普通html页面打开时，CSS或BOOTSTRAP不起作用，仅显示页面文本，...
来自于 2024-04-06 21:58:04
0
1
800
VueJS 调度函数的执行顺序导致问题 我正在尝试在页面上显示公告列表（从API检索）。我正在使用Vuex商店，并且有一个名为公告的状态。我还希望每次用户刷新/进入页面时都会更新此列表。所以我使用了生命周期钩子，特别是M...
来自于 2024-04-06 10:37:58
0
1
385
将对象推送到数组，组合式API 有一个项目。有两个选择选项“size”（大，小）和数量（2/4/6）。当选择每个选项时，需要在标题中显示所选内容（假设为小和4）。点击“添加到存储”按钮后，它将添加到存储中，在另一...
来自于 2024-04-05 14:41:47
0
1
1526
将 useState 变量导出到另一个组件/页面 我有点卡住了。我已将用户输入结果放入可在另一个组件上使用的数组中。但是，当我尝试解构另一个组件/页面中的“newList”时，它不会显示任何内容，或者当我console.log时它...
来自于 2024-04-05 11:30:54
0
1
286
强制刷新是Next.js中访问未定义路径或错误页面的后果 访问未定义的路径或错误页面会导致Next.js进行硬刷新，从而导致我的上下文回到默认状态（即存储在userProfile状态变量中的值变为null）我有一个布局，使用{stuctu...
来自于 2024-04-05 08:32:46
0
1
400
相关专题
更多>
热门推荐
热门教程
更多>
相关教程
热门推荐
最新课程
最新下载
更多>
网站特效
网站源码
网站素材
前端模板