三、程序清单

'以下程序用VBScript编写

1)建立MdbRecordset对象，Mdb数据库是一个完整的数据库，内部可能含有若干个数据表，在此函数中，Connection的作用是连接数据库，Recordset的作用是打开数据表。

Function CreateMdbRecordset(数据库文件名, 数据表名或Select语句 )

Dim conn,Provider,DBPath

' 建立Connection 对象
Set conn = Server.CreateObject("ADODB.Connection")
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
DBPath = "Data Source=" & Server.MapPath( "数据库文件名" )
'打开数据库
conn.Open Provider & DBPath

Set CreateMdbRecordset = Server.CreateObject("ADODB.Recordset")
' 打开数据表，参数二为Connection对象
CreateMdbRecordset.Open "数据表名", conn, 2, 2

End Function