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

php中文网
发布: 2016-07-25 09:02:51
原创
1910人浏览过
  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 = "

    一键抠图
    一键抠图

    在线一键抠图换背景

    一键抠图 30
    查看详情 一键抠图
    "
  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. ?>
复制代码


最佳 Windows 性能的顶级免费优化软件
最佳 Windows 性能的顶级免费优化软件

每个人都需要一台速度更快、更稳定的 PC。随着时间的推移,垃圾文件、旧注册表数据和不必要的后台进程会占用资源并降低性能。幸运的是,许多工具可以让 Windows 保持平稳运行。

下载
来源:php中文网
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系admin@php.cn
最新问题
开源免费商场系统广告
热门教程
更多>
最新下载
更多>
网站特效
网站源码
网站素材
前端模板
关于我们 免责申明 举报中心 意见反馈 讲师合作 广告合作 最新更新 English
php中文网:公益在线php培训,帮助PHP学习者快速成长!
关注服务号 技术交流群
PHP中文网订阅号
每天精选资源文章推送
PHP中文网APP
随时随地碎片化学习

Copyright 2014-2025 https://www.php.cn/ All Rights Reserved | php.cn | 湘ICP备2023035733号