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

''''''最简单的长文单分页
''''''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