<%   
    Response.charset="gb2312"
    dim conn,connstr,Data
    if SqlNo =1 then
    On error resume next
    Set Conn=Server.CreateObject("Adodb.Connection")
    ConnStr="PROVIDER=SQLOLEDB;DATA SOURCE=3325A06D8;UID=sa;PWD=;DATABASE=ZhiRui"
    Conn.open ConnStr
    else
    Data=""&SitePath&"DataBase/"&DataName&""
    on error resume next
    Set conn = Server.CreateObject("ADODB.Connection")
    connstr="dbq="+server.mappath(Data)+";defaultdir=;driver={microsoft access driver  
(*.mdb)};uid=;password="&Psd()&";"
    conn.Open connstr
    end if

    If Err Then
    err.Clear
    Set Conn = Nothing
    Response.Write "<div style='margin:100px;font-size:14px;text-align:center'>数据库连接出错，请检查数据库名称
及路径是否正确。</div>"
    Response.End
    End If
%>
 

为什么运行的时候老提示“数据库连接出错，请检查数据库名称
及路径是否正确”
请大家指点。

我也不知道，别人写的代码