ASP Recordset 分頁顯示數據的方法(修正版)

2020-07-27 12:56:57

字體：大中小

來源：轉載

供稿：網友

1．建立Recordset對象

復制代碼代碼如下:

 
Dim objMyRst 
Set objMyRst=Server.CreateObject(“ADODB.Recordset”) 
objMyRst.CursorLocation=adUseClientBatch ‘客戶端可批量處理 
objMyRst.CursorType=adOpenStatic'光標類型為靜態類型 

注意：Recordset對象不能用Set objMyRst=Connection.Excute strSQL的語句建立，因為其建立的Recordset對象為adOpenFowardOnly不支持記錄集分頁
2．打開Recordset對象

復制代碼代碼如下:

 
Dim strSql 
strSql=”select * from ietable” 
objMyRst.Oepn strSql,ActiveConnection,,,adCmdText 

3．設置Recordset的PageSize屬性

復制代碼代碼如下:

objMyRst.PageSize=20

默認的PageSize為10
4．設置Recordset的AbsolutePage屬性
以下為引用的內容：

復制代碼代碼如下:

 
Dim intCurrentPage 
intCurrentPage=1 
objMyRst.AbsolutePage=intCurrentPage 

AbsolutePage為1到Recordset對象的PageCount值
5．顯示數據

復制代碼代碼如下:

 
Response.Write("<table>") 
PrintFieldName(objMyRst) 
For i=1 To objMyRst.PageSize 
PrintFieldValue(objMyRst) 
objMyRst.MoveNext 
If objMyRst.Eof Then Exit For 
Next 
Response.Write("</table>") 

說明：
1. adOpenStatic,adUseCilentBatch,adCmdText為adovbs.inc定義的常量，要使用的話要把adovbs.inc拷到當前目錄中并包含于在程序中

復制代碼代碼如下:

<！--#Include File=”adovbs.inc”-->

2. PrintFielName,PrintFieldValue函數的代碼如下：

復制代碼代碼如下:

 
<% 
Function PrintFieldName(objMyRst) 
'參數objMyRst是Recordset對象 
'定義孌數 
Dim objFld 
Response.Write "<tr bgcolor='#CCCCCC'>" 
For Each objFld In objMyRst.Fields 
Response.Write "<td>" & objFld.Name & "</td>" 
Next 
Response.Write("</tr>") 
End Function 
Function PrintFieldValue(objMyRst) 
'參數objMyRst是Recordset對象 
'定義孌數 
Dim objFld 
Response.Write("<tr >") 
For Each objFld In objMyRst.Fields 
'Response.Write "<td>" & objMyRst.Fields(intLoop).value & "</td>" 
Response.Write "<td>" & objFld.value & "</td>" 
Next 
Response.Write("<tr>") 
End Function 
%> 