asp长文章分页

'ContentAutoPage.asp
'用法：<%=ContentPagination(文章内容)%>
const maxPagesize = 2000 '设置分页字数
function InsertPageBreak(strText)
    dim strPagebreak, s, ss
    dim i, IsCount, c, iCount, strTemp, Temp_String, Temp_Array
    strPagebreak = "[hiweb_break]"
    s = strText
    if len(s)<maxPagesize then
        InsertPageBreak = s
    end if
    s = replace(s, strPagebreak, "")
    s = replace(s, "&nbsp;", "<&nbsp;>")
    s = replace(s, "&gt;", "<&gt;>")
    s = replace(s, "&lt;", "<&lt;>")
    s = replace(s, "&quot;", "<&quot;>")
    s = replace(s, "&#39;", "<&#39;>")
    if s<>"" and maxPagesize<>0 and instr(1, s, strPagebreak) = 0 then
        IsCount = True
        Temp_String = ""
        for i = 1 to len(s)
            c = mid(s, i, 1)
            if c = "<" then
                IsCount = False
            elseif c = ">" then
                IsCount = True
            else
                if IsCount = True then
                    if abs(asc(c))>255 then
                        iCount = iCount + 2
                    else
                        iCount = iCount + 1
                    end if
                    if iCount>= maxPagesize and i<len(s) then
                        strTemp = left(s, i)
                        if CheckPagination(strTemp, "table|a|b>|i>|strong|div|span") then
                            Temp_String = Temp_String & trim(cstr(i)) & ","
                            iCount = 0
                        end if
                    end if
                end if
            end if
        next
        if len(Temp_String)>1 then Temp_String = left(Temp_String, len(Temp_String) -1)
        Temp_Array = split(Temp_String, ",")
        for i = ubound(Temp_Array) to lbound(Temp_Array) Step -1
            ss = mid(s, Temp_Array(i) + 1)
            if len(ss) > 380 then
                s = left(s, Temp_Array(i)) & strPagebreak & ss
            else
                s = left(s, Temp_Array(i)) & ss
            end if
        next
    end if
    s = replace(s, "<&nbsp;>", "&nbsp;")
    s = replace(s, "<&gt;>", "&gt;")
    s = replace(s, "<&lt;>", "&lt;")
    s = replace(s, "<&quot;>", "&quot;")
    s = replace(s, "<&#39;>", "&#39;")
    InsertPageBreak = s
end function

function CheckPagination(strTemp, strFind)
    dim i, n, m_ingBeginNum, m_intEndNum
    dim m_strBegin, m_strEnd, FindArray
    strTemp = lcase(strTemp)
    strFind = lcase(strFind)
    if strTemp<>"" and strFind<>"" then
        FindArray = split(strFind, "|")
        for i = 0 to ubound(FindArray)
            m_strBegin = "<"&FindArray(i)
            m_strEnd = "</"&FindArray(i)
            n = 0
            do while instr(n + 1, strTemp, m_strBegin)<>0
                n = instr(n + 1, strTemp, m_strBegin)
                m_ingBeginNum = m_ingBeginNum + 1
            loop
            n = 0
            do while instr(n + 1, strTemp, m_strEnd)<>0
                n = instr(n + 1, strTemp, m_strEnd)
                m_intEndNum = m_intEndNum + 1
            loop
            if m_intEndNum = m_ingBeginNum then
                CheckPagination = True
            else
                CheckPagination = False
                exit function
            end if
        next
    else
        CheckPagination = False
    end if
end function

function ContentPagination(hiwebstr)
    dim ContentLen, maxperpage, Paginate
    dim arrContent, strContent, i
    dim m_strFileUrl, m_strFileExt, ArticleID
    ArticleID = Request.QueryString("Info_ID")
    strContent = InsertPageBreak(hiwebstr)
    ContentLen = len(strContent)
    CurrentPage = Request.QueryString("Page")
    if CurrentPage = "" then CurrentPage = 0
    if instr(strContent, "[hiweb_break]") <= 0 then
        ArticleContent = "<div id=""NewsContentLabel"" >" & strContent & "</div><div id=""Message"" ></div>"
    else
        arrContent = split(strContent, "[hiweb_break]")
        Paginate = ubound(arrContent) + 1
        if CurrentPage = 0 then
            CurrentPage = 1
        else
            CurrentPage = clng(CurrentPage)
        end if
        if CurrentPage < 1 then CurrentPage = 1
        if CurrentPage > Paginate then CurrentPage = Paginate
        strContent = "<div id=""NewsContentLabel"" >"& arrContent(CurrentPage - 1)

        ArticleContent = ArticleContent & strContent
        if UserArticle = True then
            ArticleContent = ArticleContent & "</p></div><div id=""Message"" ></div><p align=""center"">"
        else
            ArticleContent = ArticleContent & "</p></div><p align=""center"">"
        end if
        if IsURLRewrite then
            m_strFileUrl = ArticleID & "_"
        else
            m_strFileExt = ""
            m_strFileUrl = "?Info_ID=" & ArticleID & "&Page="
        end if
        if CurrentPage > 1 then
            if IsURLRewrite and (CurrentPage -1) = 1 then
                ArticleContent = ArticleContent & "<a href="""& ArticleID & m_strFileExt & """>上一页</a>&nbsp;&nbsp;"
            else
                ArticleContent = ArticleContent & "<a href="""& m_strFileUrl & CurrentPage - 1 & m_strFileExt & """>上一页</a>&nbsp;&nbsp;"
            end if
        end if
        for i = 1 to Paginate
            if i = CurrentPage then
                ArticleContent = ArticleContent & "[" & cstr(i) & "]&nbsp;"
            else
                if IsURLRewrite and i = 1 then
                    ArticleContent = ArticleContent & "<a href="""& ArticleID & m_strFileExt & """>[" & i & "]</a>&nbsp;"
                else
                    ArticleContent = ArticleContent & "<a href="""& m_strFileUrl & i & m_strFileExt & """>[" & i & "]</a>&nbsp;"
                end if
            end if
        next
        if CurrentPage < Paginate then
            ArticleContent = ArticleContent & "&nbsp;<a href="""& m_strFileUrl & CurrentPage + 1 & m_strFileExt & """>下一页</a>"
        end if
        ArticleContent = ArticleContent & "</p>"
    end if
    Response.write(ArticleContent)
end function