asp + oracle 分頁方法 （不用預存程序）

oracle|預存程序|分頁  

asp 中查詢 oracle資料庫 的分頁程式，沒有用預存程序，效率還可以。

代碼如下：

''''  塞北的雪  分頁利器(oracle)  不用預存程序   -------------------------

'其中注釋中有 ###的需要使用者佈建
'其中注釋中有 參數傳遞 ** 的 說明要通過參數 傳遞。

'定義變數
dim tOption                  '查詢條件
dim tOrder                   '排序字串     
dim tOrderField              '排序欄位        可通過參數獲得：order_field
dim tOrderDirection          '排序方向        可通過參數獲得：order_direction

dim tPageSize                '頁大小
dim tTotalCount              '總記錄數        可通過參數獲得：t_count
dim tPageCount               '頁數
dim tCurPage                 '當前頁號        可通過參數獲得：page

dim tTableName               '表或者視圖名

dim tFieldList               '查詢的欄位列表
dim tPageField               '用於分頁的欄位

dim r_count                  '查得的記錄數

set rs=server.createobject("adodb.recordset")        '記錄集對象

'排序處理
tOrderField=Request("order_field")                   '獲得排序欄位（參數傳遞 **）
tOrderDirection=Request("order_dir")                 '獲得排序方向（參數傳遞 **）

if(tOrderField="") then tOrderField="item_code"       ' ### 設定預設排序欄位
if(tOrderDirection="") then tOrderDirection="asc"     ' ### 設定預設排序方向

tOrder=" order by " & tOrderField & " " & tOrderDirection & " "   '產生排序字串

'定義參數
tPageSize=find_rs_count        ' ### 設定頁大小
tTableName="view_select1"      ' ### 設定與查詢的表格或視圖
tFieldList=" * "               ' ### 欲查詢的欄位列表
tPageField="item_code"         ' ### 設定一個主鍵或唯一索引的欄位 ，用於分頁計算

'頁數處理
tCurPage=Request("page")             '獲得當前頁（參數傳遞 **）
tTotalCount=Request("t_count")       '獲得總頁數（參數傳遞 **）

if(tCurPage="") then tCurPage=1
if(cint(tCurPage)=0) then tCurPage=1
if(tPageCount="") then tPageCount =1
if(cint(tPageCount)=0) then tPageCount=1

' 構造查詢條件，根據具體的程式，肯定不一樣。但是最後的條件必須是“ where ??? ”
tOption=" issue_flag='Y'"                      ' ### 設定條件
if f_c<>"" then tOPtion= tOPtion & f_c         ' ### 設定條件

if trim(tOption)="" then
     tOption = " where 1=1 "   '如果沒有條件，就自己加一個。
else
     tOption= " where " & tOPtion
end if

   
  
     '構造查詢字串，這個分頁程式的核心，此查詢串是我們只下載當前頁所需的記錄
 
sss="select * from (select rownum r_n,temptable.* from (select  " & tFieldList & " from " & tTableName & " " & tOption & " " & tOrder & ") temptable ) where r_n between " & cstr((tCurPage -1) * tPageSize +1) & " and " & cstr(tCurPage * tPageSize)  
 
 '執行主查詢，獲得相應記錄集
 Call ConnDataBase()                     '  ### 建立資料庫連接
    rs.cursorlocation=3
    rs.open conStr,conn,3,1                 '執行查詢
    r_count= rs.recordcount

   '當還沒有查詢過總記錄數時 並且 總的記錄數超過了頁大小時 ，查詢當前條件下的總的記錄數
&n