asp 内容分页

 
<%

str="数据库文章内容测试内容哈哈"

function page(str,fontnum)

if len(str) >fontnum then

if len(str) mod fontnum >0 then '计算总页数

pagecontent=len(str)\fontnum+1

else

pagecontent=len(str)\fontnum

end if

Dim arr()

ReDim arr(pagecontent)

for m = 1 to pagecontent

if m <>pagecontent then

arr(m)= mid(str,(m*fontnum-fontnum+1),fontnum)

else

arr(m)= mid(str,(m*fontnum-fontnum+1),len(str))

end if

next

if Request.QueryString("page")<>""
then

Response.Write(arr(Request.QueryString("page")))

else

Response.Write(arr(1))

end if

Response.Write(" <br >")

for i = 1 to pagecontent

Response.Write(" <a href=?page="&i&" >"&i&"
</a > ")

next

else

Response.Write(str)

end if

end function

call page(str,5)

%>