win 主机 access数据库连接出错，大家帮我看一下是什么问题

vforme

win 主机 access数据库连接出错，大家帮我看一下是什么问题

我用的是二级域名，比如说是：0001.xxxxx.com

程序上传到0001的目录。数据库文件为: data/xxxx.asa

access数据库连接文件如下：

<%
Const InstallDir = "/"                '网站目录,务必认真填写,放在根目录的话就填“/”
SystemDatabaseType= "ACCESS"             'ACCESS为ACCESS数据库
db = InstallDir & "data/xxxx.asa"      '主数据库名称和路径

%>


打开页面显示数据库连接错误，这是怎么回事

add.c

<%
Const InstallDir = "/0001"                '网站目录,务必认真填写,放在根目录的话就填“/”
SystemDatabaseType= "ACCESS"             'ACCESS为ACCESS数据库
db = InstallDir & "data/xxxx.asa"      '主数据库名称和路径

%>

vforme

还是连不上数据库
conn.asp文件代码：
<!--#include file="config.asp"-->
<!--#include file="Inc/function.asp"-->
<%
Dim YlmvPath
Dim SystemDatabaseType
Dim db, SqlDatabaseName, SqlPassword, SqlUsername, SqlHostIP,UserTrueIP,ConnStr,conn
YlmvPath = request.servervariables("path_info")
YlmvPath = left(YlmvPath,instrrev(YlmvPath, "/"))'获取安装目录
UserTrueIP=Replace(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),"'","")  
If UserTrueIP="" or isnull(UserTrueIP) Then UserTrueIP=Replace(Request.ServerVariables ("REMOTE_ADDR"),"'","")  
function valid_ip(guest_ip)
    valid_ip=true
    dim ti,tdim,hn,aabb,ccdd
    hn=guest_ip
    tdim=split(bad_ip,"|")
    aabb=split(hn,".")
    for ti=0 to ubound(tdim)
    ccdd=split(tdim(ti),".")
    if ccdd(3)="*" then
        if ccdd(2)="*" and ccdd(3)="*" then
            if ccdd(1)="*" and ccdd(2)="*" and ccdd(3)="*" then
                hn=aabb(0)&".*.*.*"
                if instr(hn,tdim(ti))>0 then valid_ip=false:erase tdim:exit function
            else
                hn=aabb(0)&"."&aabb(1)&".*.*"
                if instr(hn,tdim(ti))>0 then valid_ip=false:erase tdim:exit function
            end if
        else
            hn=aabb(0)&"."&aabb(1)&"."&aabb(2)&".*"
            if instr(hn,tdim(ti))>0 then valid_ip=false:erase tdim:exit function
        end if
    else
        hn=aabb(0)&"."&aabb(1)&"."&aabb(2)&"."&aabb(3)
        if instr(hn,tdim(ti))>0 then valid_ip=false:erase tdim:exit function
    end if
    next
    erase tdim
end function

on error resume next
               
'数据库链接字段请不需要修改------------------------------------------------------------------------------
If SystemDatabaseType = "SQL" Then
        ConnStr = "rovider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlHostIP & ";"
Else
        ConnStr = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
End If
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open ConnStr
If Err Then
        Err.Clear
        Set Conn = Nothing
        Response.Write "数据库连接出错，请检查Config.asp文件中的数据库参数设置。"
        Response.End
End If

'数据库关闭--------------------------------------------------------------------------------------
Sub CloseConn()
    On Error Resume Next
    If IsObject(Conn) Then
        Conn.Close
        Set Conn = Nothing
    End If
End Sub
%>



config.asp 代码：
<%
Const InstallDir = "/0001"                '网站目录,务必认真填写,放在根目录的话就填“/”
SystemDatabaseType= "ACCESS"             'ACCESS为ACCESS数据库，SQL为SQL数据库
db = InstallDir & "Data/xxxx.asa"      '主数据库名称和路径
SqlHostIP = "(local)"                    'SQL数据库IP
SqlDatabaseName = ""              'SQL数据库名
SqlUsername = ""              'SQL数据库用户名
SqlPassword = ""            'SQL数据库用户密码
%>



结果显示：数据库连接出错，请检查Config.asp文件中的数据库参数设置。

add.c

如果网站在根目录下的0001目录
<%
Const InstallDir = "/0001"                '网站目录,务必认真填写,放在根目录的话就填“/”
SystemDatabaseType= "ACCESS"             'ACCESS为ACCESS数据库
db = InstallDir & "/0001/data/xxxx.asa"      '主数据库名称和路径

%>
不行就把0001前面的/去掉
这里提醒，access数据库所在的目录要设置读写权限