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("
PrintFieldName(objMyRst)
For i=1 To objMyRst.PageSize
PrintFieldValue(objMyRst)
objMyRst.MoveNext
If objMyRst.Eof Then Exit For
Next
Response.Write("
说明:
1.adOpenStatic,adUseCilentBatch,adCmdText为adovbs.inc定义的常量,要使用的话要把adovbs.inc拷到当前目录中并包含于在程序中
<!--#Include File=”adovbs.inc”-->
2.PrintFielName,PrintFieldValue函数的代码如下:
asp中recordSet方法属性
rs.pagesize=3每页大小(每页记录数)
rs.pagecount 由每页大小和总记录数算出页面数
rs.recordcount记录条数
rs.absolutepage 当前页
RecordSet(i).Name 传回Recordset中第i个栏位的名称。
RecordSet.RcordCount 传回Recordset中资料录的笔数。
RecordSet(i) 传回RecordSet目前纪录中的第i个栏位资料。
RecordSet.BookMark 传回设定的书籍资料以储存现在纪录的位置。 RecordSet.AbsolutePostition 将指标移致RecordSet中的某一笔资料上。
RecordSet.PageSize 设定每页显示的资料笔数。
RecordSet.PageCount 传回分页后的总页数。
RecordSet.AbsolutePage 传回目前所在的页数。
RecordSet("栏位名称") 传回指定栏位名称的资料内容。
RecordSet.BOF 判断指标是否超过最前面。
RecordSet.EOF 判断指标是否超过最后面。
RecordSet.MoveFirst 将资料录指标移至第一笔。
RecordSet.MoveLast 将资料录指标移至最后一笔。
RecordSet.MoveNext 将资料指标往后移一笔。
RecordSet.MovePrevious 将资料指标往前移一笔。
RecordSet.GetRows 可将Recordset中的资料储存至阵列中。
RecordSet.AddNew 新增资料至资料表中。
RecordSet.Update 更新目前这笔资料。
RecordSet.Delete 删除目前这笔资料。
RecordSet.Find 寻找资料