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

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

    追梦flash企业网站管理模板A系列11.0
    追梦flash企业网站管理模板A系列11.0

    追梦A系列(11.0版本,以下11.0均简称为A)是针对企业网站定制设计的,模板采用全新AS3.0代码编辑,拥有更快的运行和加载速度,A系列模板主要针对图片展示,拥有简洁大气展示效果,并且可以自由扩展图片分类,同时还拥有三个独立页面介绍栏目,一个新闻栏目,一个服务介绍栏目,一个幻灯片展示和flv视频播放栏目。A系列模板对一些加载效果进行了修改,包括背景的拉伸模式以及标题的展示方式等都进行了调整,同

    追梦flash企业网站管理模板A系列11.0 0
    查看详情 追梦flash企业网站管理模板A系列11.0
    "
  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号