ASP Recordset 分页显示数据的方法(修正版)

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 
％>