用asp怎样连接foxpro数据库?

[origin992]

因为最近开发的一个管理系统用的是foxpro数据库,找了一些连接的代码,现在是用绝下面对路的那段来连接,因为上面的本人不知如何用之?

'下面的代码这样使用有什么问题吗?直接拷进去连接不上
Function GetDbcConnection( test.dbc)
Dim Driver, SourceType, DBPath

Driver = "Driver={Microsoft Visual FoxPro Driver};"
SourceType = "SourceType=DBC;"
DBPath = "SourceDB=" & Server.MapPath( test.dbc)
Set GetDbcConnection = GetConnection( Driver & SourceType & DBPath )
End Function


下面这段可以正常使用了,但它只认绝对路径,可恶!
dim connstr
Set Conn = Server.CreateObject("ADODB.connection")
ConnStr= "Driver=Microsoft Visual Foxpro Driver; UID=userID;SourceType=DBC;SourceDB=f:\wwwroot\fox+asp\test.dbc"
Conn.Open ConnStr

谁能帮我指点迷经?

[wwle]

ConnStr= "Driver=Microsoft Visual Foxpro Driver; UID=userID;SourceType=DBC;SourceDB=f:\wwwroot\fox+asp\test.dbc"

=======================>>>>>
ConnStr= "Driver=Microsoft Visual Foxpro Driver; UID=userID;SourceType=DBC;SourceDB="&server.mapPath("Fox+asp\test.dbc")

Ok!

[origin992]

thank you!

[RichWcz]

我写了这样一个连接数据库的函数
public function openDB1()
dim connstr
Set Conn = Server.CreateObject("ADODB.connection")
ConnStr= "Driver=Microsoft Visual Foxpro Driver;SourceType=DBC;SourceDB="&server.mapPath("D:\Publish\Air\DB\ribao\ribao200201.dbf")
Conn.Open ConnStr
if err.number<>0 then
Response.Write "数据库连接出错！"
Response.End
else
set openDB1=conn
end if
end function

我在调用的时候是这样写的：
<%
on error resume next
set conn=openDB1()
sql="SELECT * from rhz0101.dbf"
response.Write(sql)
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open rs,Conn,1,3
response.Write rs.recordcount
response.Write(err.description)

%>
系统提示：
SELECT * from rhz0101.dbf

对象关闭时，不允许操作。

我什么时候关闭了对象？？？

[RichWcz]

dbc是一个数据库，而dbf是其中的一个表是吗？？
我这个数据库没有dbc的，直接是dbf的，该如何调用？？
直接用dbf代替dbc吗？？

[yyy159]

如果要是表的话就用DBASE数据源吧，DBF在这里的概念是表