按标识手动分页：

    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> ")
　　Next
　　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
　　next
　　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> ")
　　next
　　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
　　%>