asp access conn文件，支持主域名，2级域名，n级目录

Dim comp_user,comp_lvl,comp_userid,filepath
     On Error Resume next
        Set conn=server.CreateObject("adodb.connection")
    
  
  rootpath=request.serverVariables("APPL_PHYSICAL_PATH")
  
        dpath=rootpath&"/dataware/dataware.mdb"
        strconn="provider=microsoft.jet.oledb.4.0;data source="&dpath

     conn.open strconn
     If Err Then
        response.write "Err"&Err.description
     Err.clear
     response.End
     End if