asp操作VF数据库

asp VF

<%

dim conn
dim connstr

Set conn = Server.CreateObject(“ADODB.Connection”)
‘connstr=”Driver={SQL Server};server=.;UID=root;PWD=root;database=UserDatabase”
‘connstr=”Driver={microsoft Visual Foxpro driver};sourcetype=DBC;sourceDB=batchreport.dbf;Exclusive=No;”
connstr=”Driver=Microsoft Visual FoxPro Driver;SourceType=DBF;SourceDB=D:\web\web\batchreport.dbf;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO”;
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write “连接报表数据库失败”
Response.End
End If

%>