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 FoxProDriver; SourceType=SourceType=DBF;

　　DBPath=SourceDB= & Server.MapPath(目录名)

　　调用Open 方法打开数据库

　　Set CreateDbfRecordset=Server.CreateObject(ADODB.Recordset)

　　打开DBF文件

　　EndFunction　4.由FoxPro生成的DBC数据库与MDB数据库相似，都是一个数据库包含几个数据表的形式，所以对DBC数据库的存取方法与MDB数据库相似。

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

　　Dim conn,Driver,SourceType,DBPath

　　建立Connection 对象

　　Set conn = Server.CreateObject(ADODB.Connection)

　　Driver=Driver=Microsoft Visual FoxPro Driver;

　　SourceType = SourceType=DBC;

　　DBPath = SourceDB= & Server.MapPath(DBC数据库文件名)

　　连接数据库

　　Set CreateDbcRecordset=Server.CreateObject(ADODB.Recordset)

　　打开数据表

　　End Function

　　5.将Excel生成的XLS文件（book）看成一个数据库，其中的每一个工作表(sheet)看成一个数据库表。

　　Function CreateExcelRecordset(XLS文件名,Sheet名)

　　Dim conn.Driver,DBPath

　　建立Connection对象

　　Set conn = Server.CreateObject(ADODB.Connection)

　　Driver=Driver=Microsoft Excel Driver (*.xls);

　　DBPath = DBQ= & Server.MapPath(XLS文件名)

　　调用Open 方法打开数据库

　　Set CreateExcelRecordset=Server.CreateObject(ADODB.Recordset)

　　打开Sheet

　　End Function

　　6.SQL Server属于Server级的数据库，使用时要求比较严格，必须要输入用户名及密码才能使用。

　　Function CreateSQLServerRecordset(计算机名称,用户ID,用户密码,数据库名称数据表或查看表或Select指令 )

　　Dim Params, conn

　　Set CreatSQLServerConnection = Nothing

　　Set conn = Server.CreateObject(ADODB.Connection)

　　Params = Provider=SQLOLEDB.1

　　Params = Params & ;Data Source= & Computer

　　Params = Params & ;User ID= & UserID

　　Params = Params & ;Password= & Password

　　Params = Params & .Initial Catalog=&数据库名称

　　Conn open Paras

　　Set CreateSQLServerRecordset = Server.

　　CreateObject(ADODB.Recordset)

　　End Function