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)
%>