APP NEWS
ASP分页显示Recordset数据
1．建立Recordset对象以下为引用的内容：DimobjMyRstSetobjMyRst=Server.CreateObject("ADODB.Recordset")objMyRst.CursorLocation=adUseClientBatch‘客户端可批量处理
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(&
说明：
1. adOpenStatic,adUseCilentBatch,adCmdText为adovbs.inc定义的常量，要使用的话要把adovbs.inc拷到当前目录中并包含于在程序中
以下为引用的内容：
<！--#Include File=&adovbs.inc&-->
2. PrintFielName,PrintFieldValue函数的代码如下：
<％
Function PrintFieldName(objMyRst)
'参数objMyRst是Recordset对象
'定义娈数
Dim objFld
Response.Write &
For Each objFld In objMyRst.Fields
Response.Write &
Next
Response.Write(&
End Function
Function PrintFieldValue(objMyRst)
'参数objMyRst是Recordset对象
'定义娈数
Dim objFld
Response.Write(&
For Each objFld In objMyRst.Fields
'Response.Write &
Response.Write &
Next
Response.Write(&
End Function
％>
关键词标签：数据,显示,objMyRst,R
