asp连接access 连接语句出错啦！

Answer 1

conn.asp里面的代码：
db="data\db.mdb" '你的数据库文件存放的路径，相对于conn.asp文件的位置，在data文件夹中，或者改写成你网站的绝对路径也行
const DatabaseType="ACCESS"
'On Error Resume Next
dim ConnStr
dim conn
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"
Response.End
End If
sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
conn.close
set conn=nothing
end if
end sub

同时，存放数据库文件db.mdb的文件夹data的安全权限必须设置为网络匿名浏览用户可读可写，或者everyone完全控制也行

Answer 2

Dim connstr
set conn = server.createobject("adodb.connection")
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("database.mdb")"
conn.open connstr