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

Microsoft Excel Driver　　　　 Excel
　　
　　Microsoft Visual FoxPro Driver　　 Dbc
　　
　　SQLOLEDB.1　　　　　　　　　　 SQL Server7.0
　　
　　二、连接数据库和打开数据表
　　不同的数据库连接方法不一样（即建立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
　　2）建立带密码的Mdb数据库的Recordset对象，它的建立方式与建立不带密码的Mdb数据库的Recordset对象类似，只是多了一个密码参数，即在与数据库连接时，必须给出密码信息。