三、程序清单

'以下程序用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

2）建立带密码的Mdb数据库的Recordset对象，它的建立方式与建立不带密码的Mdb数据库的Recordset对象类似，只是多了一个密码参数，即在与数据库连接时，必须给出密码信息。

Function CreateSecuredMdbRecordset( 数据库文件名, 数据表名或Select语句，password )

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&”Jet OLEDB:Database Password=”&assword
Set CreateSecuredMdbRecordset = Server.CreateObject("ADODB.Recordset")
' 打开数据表，参数二为Connection对象
CreateSecuredMdbRecordset.Open "数据表名", conn, 2, 2

End Function

3)DBF文件不是一个标准的数据库文件，只相当于标准数据库文件中的一个数据表，所以为了使用DBF文件，采用把所有的DBF文件放在一个目录下，这样把目录名看成标准数据中的数据库表，每一个DBF文件相当于标准数据库的数据表。下面函数中Directory是DBF所在的目录名，

Function CreateDbfRecordset( 目录名, DBF文件名或Select语句 )

Dim conn,Driver,SourceType,DBPath

' 建立Connection 对象
Set conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Visual FoxPro Driver};"
SourceType = "SourceType=DBF;"
DBPath = "SourceDB=" & Server.MapPath( "目录名" )

' 调用Open 方法打开数据库
conn.Open Driver & SourceType & DBPath

Set CreateDbfRecordset = Server.CreateObject("ADODB.Recordset")
' 打开DBF文件，参数二为Connection对象
CreateDbfRecordset.Open DBF文件名或Select语句, conn, 2, 2

End Function