演出服批发市场:ACCESS连接问题,请高手解答!

'***************************************************
' 文件功能：数据库连接文件
'***************************************************
'定义数据库类别，1为SQL数据库，0为Access数据库
Dim Db,Conn,connStr
dim ServerName,UserName,DatabaseName,PassWord
Const IsSqlServer = 0
If IsSqlServer = 1 Then
'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）
ServerName="wtceo"
userName="sa"
DatabaseName="jimai"
Password=""
ConnStr="provider=sqloledb;driver={SQL SERVER};server="&ServerName&";uid="&username&";pwd="&Password&";database="&dataBaseName&";" 'SQL连接
Else
'免费用户第一次使用请修改本地数据库地址并相应修改wt_data目录中数据库名称，如将wtdata.mdb修改为wtdata.asp
Db = "@gfdet93gnkghjkal53uhre3ja 6hbt54saki6mlgdh/54v53d543slsd945jdcgo8iny54sn.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
End If
' response.write connstr
' response.end
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
%>

1.<%
set conn=server.createobject("adodb.connection")
conn="provider=microsoft.Jet.oledb.4.0;data source=" & server.mappath("db1.mdb")
Response.Write("ok!")
%>
2.<%

set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)}; dbq="&server.mappath("db1.mdb")
Response.Write("ok!")
%>

Const ZD_DataName="data/data.mdb" '程序的相对路径
set conn=server.CreateObject("adodb.connection") ‘建立数据库连接对象
DBPath = Server.MapPath(ZD_Dataname) '获得数据路绝对路径
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath ’打开数据库，建立连接