[原创]最简单的长文单分页

关注

原创最新推荐文章于 2026-05-18 05:45:18 发布 875 阅读 AI 写同款· GEO 优化 ›

PHP长文章分页类的实现与应用本文还有配套的精品资源，点击获取简介：长文章分页类是一个PHP类，用于将长篇内容分页显示，提升用户体验和网站性能。该类通过接收参数、计算页数、内容切割、导航生成和错误处理等核心功能实现。本文将探讨其实现方式和相关文件作用，例如 page.php 分页处理和 index.php 内容展示，以及如何通过封装分页功能以增强代码的复用性和维护性。 ... 阅读详情

''''''最简单的长文单分页
''''''Power by Love_Computer
'''''' http://www.56390.com/
''''''love_computer@163.com
''''''2005-9-22
TestStr = "111111111,2222222222222,333333333333,444,555555555,6666666666,777777777,888888,99999999,00000000000000"
PageLen = 20'每页显示长度
SplitStr = ","'分隔关键字符串
If Len(TestStr) <= PageLen Then
Response.Write TestStr & "<br/>"
Else
str = Split(TestStr,SplitStr)
strShow = ""
Page = Trim(Request.QueryString("page"))
If Page = "" Then page = 1
x = Trim(Request.QueryString("x"))
If x = "" Then
x = 0
Else
x = x + 1
End If
For i = x To ubound(str)-1
strShow = strShow & str(i) & SplitStr
If Len(strShow) > PageLen Then
x = i
Exit For
End If
Next
''''''Power by Love_Computer
''''''love_computer@163.com
''''''2005-9-22
Response.Write strShow & "<br/>"
If Page > 1 Then
Response.Write " <a href='javascript:history.back();'>[上页]</a> "
Else
Response.Write " [上页] "
End If
If x < ubound(str)-1 Then
Response.Write " <a href='?x=" & x & "&page=" & Page + 1 & "'>[下页]</a> "
Else
Response.Write " [下页] "
End If
End If