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