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

來源:互聯網
上載者:User
分頁|函數|記錄集 說明: 
本函數為文章分頁, 非記錄集分頁
本函數實現將文章分頁顯示, 並以指定長度顯示每一分頁
本函數實現不需指定 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

  • 相關文章

    E-Commerce Solutions

    Leverage the same tools powering the Alibaba Ecosystem

    Learn more >

    Apsara Conference 2019

    The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

    Learn more >

    Alibaba Cloud Free Trial

    Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

    Learn more >

    聯繫我們

    該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

    如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。