Recordset.asp

Recordset.asp

<%
Response.Buffer=true
Dim conn
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOleDb.1;Data Source=(local);User ID=sa;Password=;Initial Catalog=Pubs"
Dim rs
Set rs=Server.CreateObject("ADODB.RecordSet")

'-----RecordSet 对象的方法-----
'游标：adOpenForwordOnly:0 adOpenKeySet:1 adOpenDynamic:2 adOpenStatic:3
'0只能一条条向前读；1可以Move,MoveFirst,MoveLast；2和3可以实用所有功能(如RecordCount)。
'Lock：adLockReadOnly:1 adLockPessimistic:2 adLockOptimistic:3 adLockBatchOptimistic:4
'1只读，无法运行Update,AddNew,Delete等；2数据更新时锁定，保持数据一致性；3可多用户同步操作；4不用。
'Options：adCmdUnknow:-1 adCmdText:1 adCmdTable:2 adCmdStoredProc:3 (注意：Connection.Execute和Command.Execute里面adCmdStoredProc:4)
rs.Open "SELECT * FROM authors",conn,1,2,1
'rs.Close
rs.MoveFirst
rs.MoveLast
rs.MoveNext
rs.MovePrevious
'Move(NumRecords,Start) Start取值：0缺省，当前记录；1以第一条记录为准；2以最后一条为基准。
rs.Move 5,1
rs.Update
rs.CancelUpdate
'rs.AddNew
'rs.Delete
'rs.Requery
Set rs=rs.Clone
Dim arr
arr=rs.GetRows(5,,"au_id")
'-----RecordSet 对象属性-----
rs.Close
rs.ActiveConnection=conn
'rs.Source=cmd 'RecordSet可以通过Source属性来连接Command对象(Source可以是SQL命令，表，存储过程名)
rs.CursorType=1
rs.LockType=2
rs.Open
Response.Write("共有记录" & rs.RecordCount & "条<p>")
Response.Write("游标是否在开头：" & rs.BOF & "<p>")
Response.Write("游标是否在结尾：" & rs.EOF & "<p>")
rs.Move 5
rs.PageSize=5
Response.Write("页面个数：" & rs.PageCount & "<p>")
Response.Write("当前游标在Recordset对象中的绝对页数：" & rs.AbsolutePage & "<p>")
Response.Write("当前游标在Recordset对象中的记录位置：" & rs.AbsolutePosition & "<p>")
'书签实用实例，可以快速返回作了书签的记录
Dim book
book=rs.Bookmark
rs.Move 5
rs.Bookmark=book
rs.Filter="au_lname='Dull'"
rs.Filter=""
Response.Write("现在数据集状态:" & rs.State) '1:Open 2:Closed
'rs.CacheSize=10

'-----测试语句-----
Dim i
Response.Write("<table><tr>")
For i=0 To rs.Fields.Count-1 
    Response.Write("<td>" & rs(i).Name & "</td>")
Next
Response.Write("</tr>")
Do While NOT rs.EOF 
    Response.Write("<tr>") 
    For i=0 To rs.Fields.Count-1 
        Response.Write("<td>" & rs(i) & "</td>") 
    Next 
    Response.Write("</tr>") 
    rs.MoveNext
Loop
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
%>