asp+sqlserver 分頁方法(不用預存程序)

來源:互聯網
上載者:User
我的一個asp + sqlserver的分頁程式:這個程式的特點就是指將當前頁的紀錄掉到頁面上來。效能不錯,而且不用預存程序,由於代碼沒有封裝,所以很零散,要用到你的程式中,需要先簡單讀讀。然後注意需要自己設定的地方的意思。有些是可以省略的。有些參數傳遞也是可以省略的。

代碼如下:

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

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


'定義變數
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 tFieldAlias              '行號的別名
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"     ' ### 設定預設排序方向
'www.knowsky.com
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

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


   '當還沒有查詢過總記錄數時 並且 總的記錄數超過了頁大小時 ,查詢當前條件下的總的記錄數
   if(r_count>=tPageSize or tCurPage>1) and tTotalCount=0 then
      set rr=conn.execute("select count(*) from " & tTableName & " " & tOption)
      tTotalCount=rr(0)
      rr.close()
      set rr=nothing
   end if   
   if(cint(tTotalCount)=0) then tTotalCount=r_count '如果總記錄為0,將當前差得的記錄集的記錄數設定為總記錄數,說明當前的總記錄數小於頁大小
  
   '利用頁大小和總記錄數 計算頁數
   if(cint(tTotalCount)>cint(tPageSize)) then
  tPageCount=cint((cint(tTotalCount) \ cint(tPageSize)))
  if(cint(tTotalCount) mod cint(tPageSize))>0 then
      tPageCount =tPageCount +1
  end if
   end if
 
   tCurPage=cint(tCurPage)
   tPageCount=cint(tPageCount)


'  ---------------------------------------------------------------------

        這就是全部代碼,感興趣的朋友,可以研究一下,或者將他封裝起來,加上分頁導航等方法。總之,希望此代碼能對大家有用。



相關文章

聯繫我們

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

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

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.