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

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

　　顯示如:
第頁 第頁 第頁 第頁 第頁
字/頁 /頁 共字
正文

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

　　附注:
如果您是在查找 記錄集分頁函數 鄙人以前也寫過一個 名為 ASP VBScript 分頁函數 by Stabx 第三版
鏈接:  

　　shawlqiu

 

　　主內容: 分頁函數及調用代碼
linenum
<%
    dim rs dic
    set rs=createObject(adodbrecordset)
        rsopen select * from ctat where aid=conn
        rsopen select * from ctat where aid=conn
 
        set dic=fAtPgnt(rs(content)requestqueryString(apid))
            responsewrite dic(pgnt)&<br/>
            responsewrite dic(info)&<br/>
            responsewrite dic(cnt)&<br/>
        set dic=nothing
        rsclose
    set rs=nothing
 
    function fAtPgnt(aStrpSizerId)
   
    ASP 通用文章分頁函數(非記錄集分頁) 返回多個結果 字典實現 By shawlqiu
   
   
   
    輸入參數說明:
    aStr 為要分頁的字符串
    pSize 為每頁大小數字
    rId 為 URL 參數 ID 默認為 apid 由函數裡的 rName 變量定義
   
    輸出參數說明:
    obj(pgnt) 為文章翻頁鏈接
    obj(info) 為文章統計信息
    obj(cnt) 為文章內容
   
    sample call:
   
        dim rs dic
        set rs=createObject(adodbrecordset)
            rsopen select * from ctat where aid=conn
           
            set dic=fAtPgnt(rs(content)requestqueryString(apid))
                responsewrite dic(pgnt)&<br/>
                responsewrite dic(info)&<br/>
                responsewrite dic(cnt)&<br/>
            set dic=nothing
           
            rsclose
        set rs=nothing
   
        if isNumeric(pSize)=false or len(aStr)= then exit function
        if isNull(rId) or rId= or isNumeric(rId)=false then rId= 如果分頁查詢ID為空則 ID為
dim aStrLen 取文章總長度的變量
            aStrLen=len(aStr)
       
        智能URL字符串替換
        dim rqs url rName
            rqs=requestServerVariables(QUERY_STRING)
            rName=apid
        if rqs= then
            url=?&rName&=
        elseif instr(rqsrName)<> then   
            url=?&replace(rqsrName&=&rId)&rName&=
        else
            url=?&replace(rqs&&rName&=&rId)&&&rName&=
        end if
       
        dim tPg 定義總頁數變量
            tPg=int(aStrLen/pSize)*
           
        if rId< then rId= 如果分頁查詢ID小於 則為
        if cLng(rId)>cLng(tPg) then rId=tPg 如果分頁查詢ID大於總頁數 則為總頁數
           
        dim cPg 定義取當前頁字符起始位置變量
        if rId= then cPg= else cPg=pSize*(rId)+ 讀取文章的起始位置

 
        dim dic 字義字典變量
        set dic = createObject(scriptingdictionary)
            if aStrLen<=pSize then 如果分頁大小大於正文大小時 執行以下操作
                dicadd pgnt 增加頁面連接到字典
                   
                增加統計信息到字典
                dicadd info formatNumber(pSize)&字/頁 &rid&/&tPg&頁 共&_
                formatNumber(aStrLen)&字
               
                dicadd cnt mid(aStr) 增加內容到字典
                set fAtPgnt=dic
                set dic=nothing
                exit function
            end if
       
            dim i temp temp
            for i= to tPg
                如果當前查詢ID=i 則加入高亮CSS類
                if strComp(rIdi)= then temp= class=hl
temp=temp&<a &url&i&&temp&>第&i&頁</a>
            next
           
            dicadd pgnt temp 增加頁面連接到字典
               
            增加統計信息到字典
            dicadd info formatNumber(pSize)&字/頁 &rid&/&tPg&頁 共&_
            formatNumber(aStrLen)&字
   

         
            dicadd cnt mid(aStrcPgpSize) 增加文章內容到字典
        set fAtPgnt=dic
        set dic=nothing
    end function shawlqiu code
%>

From:http://tw.wingwit.com/Article/program/net/201311/13749.html