ASP 는 파일 의 경로 문제 와 단일 데이터베이스 로 파일 을 연결 하 는 솔 루 션 을 포함 합 니 다.

아무 말 도 하지 않 고 원 코드 를 직접 바 칩 니 다

'==========  =============================================== 
' 1、             “root” 
' 2、          ，                 ， F:\t\t,t         ，        
'============================================================= 
Dim dbPath,dbName,Db,ConnStr,WebSiteFolderName 
on error resume next 

WebSiteFolderName="WeldSiteBuilder" 
dbPath = "_sitedata\" '      ，       
dbName = "acteedata.mdb" '      
Db=GetSitePhysicalPath(WebSiteFolderName) & dbPath & dbName 
'response.Write("         ："&server.mappath(db)) 
'response.Write("<hr>") 
'response.Write("           ："&request.ServerVariables("URL")) 
'response.Write("<hr>") 
'response.Write("        ："&request.ServerVariables("APPL_PHYSICAL_PATH")) 
'response.Write("<hr>") 
'response.Write("         ："&request.ServerVariables("APPL_MD_PATH")) 
'response.Write(db) 
'response.End() 
'====================== 
Set conn=Server.CreateObject("ADODB.Connection") 
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Db 
Conn.Open ConnStr 
If Err Then 
Err.Clear 
Set Conn = Nothing 
Response.Write "       ！" 
Response.End 
End If 

Sub CloseConn() 
conn.close 
set conn=nothing 
end Sub 

'             （ “\” ） 
Function GetSitePhysicalPath(WSFN) 
dim APPL_MD_PATH,APPL_MD_PATHArray,Path,WSPP 
WSPP=request.ServerVariables("APPL_PHYSICAL_PATH")'             

APPL_MD_PATH=request.ServerVariables("APPL_MD_PATH") 
APPL_MD_PATHArray=split(APPL_MD_PATH,"/") 
Path=APPL_MD_PATHArray(UBound(APPL_MD_PATHArray)) 
if UCase(Path)="ROOT" then '                   
'                  
if InStr(WSPP,WSFN)=0 then '                 
'                      
dim CurrentUrl,NameArray 
CurrentUrl=request.ServerVariables("URL") 
NameArray=split(CurrentUrl,"/") 
for i=LBound(NameArray) to UBound(NameArray) 
if UCase(NameArray(i))=UCase(WSFN) then 
for j=0 to i 
WSPP=WSPP+NameArray(j)+"\" 
next 
exit for 
end if 
next 
else '             
'      ，          
end if 
else '              
'     ，          
end if 
WSPP=replace(WSPP,"\\","\") 
GetSitePhysicalPath=WSPP 
End Function 

PS:이상 은 Access 데이터 베 이 스 를 대상 으로 해결 한 경로 가 잘못된 문제 일 뿐 사이트 가 데이터베이스 연결 파일 을 공용 할 수 있 도록 합 니 다.임의의 파일 이 포함 되 어 있 고 데이터 베 이 스 는 정상적으로 열 릴 수 있 으 며 네트워크 사이트 가 어떻게 실행 되 는 지 신경 쓸 필요 가 없습니다(루트 디 렉 터 리 에서 실행 되 고 가상 경로 에서 실 행 됩 니 다.루트 디 렉 터 리+사이트 가 있 는 디 렉 터 리 에서 실행).