ASP 通用文章分頁函數(非記錄集分頁)

分頁|函數|記錄集 說明: 
本函數為文章分頁, 非記錄集分頁
本函數實現將文章分頁顯示, 並以指定長度顯示每一分頁
本函數實現不需指定 URL, 自動更替 URL
本函數實現返回多個結果, 為: 分頁連結-文章統計資訊-文章內容, 由字典實現
如果分頁大小大於文章總大小, 分頁連結將為空白.

顯示如:
第1頁 第2頁 第3頁 第4頁 第5頁 
50,000字/頁 1/5頁 共235,289字
本文...

注: 顯示內容的三個元素可自由變更位置.

附註: 
如果您是在尋找 記錄集分頁函數, 鄙人以前也寫過一個, 名為 "ASP VBScript 分頁函數 by Stabx, 第三版".
連結:   

shawl.qiu
2006-09-04
 

主內容: 分頁函數及調用代碼
linenum

<% 

    dim rs, dic

    set rs=createObject("adodb.recordset")

        rs.open "select * from ctat where aid=15783",conn

        'rs.open "select * from ctat where aid=12850",conn

 

        set dic=fAtPgnt(rs("content"),50000,request.queryString("apid"))

            response.write dic("pgnt")&"<br/>"

            response.write dic("info")&"<br/>"

            response.write dic("cnt")&"<br/>"

        set dic=nothing

        rs.close

    set rs=nothing

 

    function fAtPgnt(aStr,pSize,rId)

    ''''''''''''''''''''''''''''''''''''''''''''''''''''''

    'ASP 通用文章分頁函數(非記錄集分頁), 返回多個結果, 字典實現 By shawl.qiu

    ' 

    '2006-09-04

    '''''''''''''''''''''''''''

    '輸入參數說明:

    'aStr 為要分頁的字串

    'pSize 為每頁大小數字

    'rId 為 URL 參數 ID, 預設為 apid, 由函數裡的 rName 變數定義

    '''''''''''''''''''''''''''

    '輸出參數說明:

    'obj("pgnt") 為文章翻頁連結

    'obj("info") 為文章統計資訊

    'obj("cnt") 為文章內容

    '''''''''''''''''''''''''''

    'sample call:

    '''''''''''''

    '    dim rs, dic

    '    set rs=createObject("adodb.recordset")

    '        rs.open "select * from ctat where aid=15783",conn

    '        

    '        set dic=fAtPgnt(rs("content"),50000,request.queryString("apid"))

    '            response.write dic("pgnt")&"<br/>"

    '            response.write dic("info")&"<br/>"

    '            response.write dic("cnt")&"<br/>"

    '        set dic=nothing

    '        

    '        rs.close

    '    set rs=nothing

    ''''''''''''''''''''''''''''''''''''''''''''''''''''''

        if isNumeric(pSize)=false or len(aStr)=0 then exit function

        if isNull(rId) or rId="" or isNumeric(rId)=false then rId=1 '如果分頁查詢ID為空白則 ID為 1