ASP实例教程:长文章分页功能

网络整理 - 09-08

　　要动态的还是静态的。先给你动态的吧。这个问题我弄了很久了，你好幸运有现成的给你，下面编写的函数

　　'按标识手动分页

　　function manualPage(str)

　　pages=request.QueryString("page")

　　contentstr=split(str,"{$page$}")

　　Response.Write(ContentStr(pages))

　　Response.Write("<p/>")

　　Response.Write("<div class=""pageList"">")

　　For i = 0 to ubound(ContentStr)

　　Response.Write("<a href='?ID="&id&"&page="&i&"'>"&i+1&"</a> ")

　　Response.Write("</div>")

　　end function

　　'按长度分页

　　function autoPage(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

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

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

　　else

　　Response.Write(arr(1))

　　end if

　　Response.Write("<p/>")

　　Response.Write("<div class=""pageList"">")

　　for i = 1 to pagecontent

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

　　Response.Write("</div>")

　　else

　　Response.Write(str)

　　end if

　　end function

　　=============================

　　在页面中

　　if Instr(Content,"{$page$}")=0 then '判断是否是手工分页标志，不是就自动分页

　　call autoPage(Content,2000)

　　else

　　call manualPage(Content)

　　end if