用ASP存取各种常用类型数据库(二)

二、连接数据库和打开数据表
　　不同的数据库连接方法不一样（即建立Connection的实例方法不一样），一旦建立Connection实例完毕，利用Recordset对象进行存取数取数据的方法大同小异，下面对于不同的数据类型，编写了相对应的连接函数，其原型如下：
　　1）Function CreatMdbRecordset( 数据库文件名, 数据表文件名或Select语句 )；建立Mdb类型的数据库对象
　　2)Function CreateSecuredMdbRecordset( 数据库文件名，数据表文件名或Select语句, 密码 )；建立带密码的MDB类型的数据库对象；
　　3)Function CreateDbfRecordset(目录名, DBF文件名或Select语句)；建立DBF类型的数据库对象；
　　4)Function CreateDbcRecordset(DBC数据库文件名, 数据表名或Select语句)；建立DBC类型的数据库对象；
　　5)Function CreateExcelRecordset(XLS文件名,Sheet名)；建立Excel类型的数据库对象；
　　6)Function CreateSQLServerRecordset(计算机名称,用户ID, 用户密码,数据库名称 数据表或查看表或Select指令 )；建立SQL Server 类型的数据库对象；
三、程序清单
’以下程序用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