@#以下程序用VBScript编写
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
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/
