我的一個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.downcodes.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 = " 其中 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)
' ------------------------------------------------- --------------------
這就是全部程式碼，有興趣的朋友，可以研究一下，或是將他封裝起來，加上分頁導覽等方法。總之，希望此程式碼能對大家有用。