<%   
    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
%>
 

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

你的SqlNo=1吗？

为什么连接SQL数据库后又要连接Access?

    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

人家有做判断的

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

可能因为你的sqlno没有赋值
如果你的数据库为sqlserver，则将
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

直接替换为
On error resume next
    Set Conn=Server.CreateObject("Adodb.Connection")
    ConnStr="PROVIDER=SQLOLEDB;DATA SOURCE=3325A06D8;UID=sa;PWD=;DATABASE=ZhiRui"
    Conn.open ConnStr

同时检查你的数据库名称，用户名和密码是否正确，如果不正确，设置成对应的



若你的数据库为access则将
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
直接替换为
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
同时找到dataname的值