'==========注意=============================================== 
' 1、網(wǎng)站所在文件夾的名字不能為“root” 
' 2、網(wǎng)站所在文件夾的名字，物理路徑中不允許出現(xiàn)重復此文件夾名，如F:/t/t,t為網(wǎng)站所在文件夾名，這種情況會出錯 
'============================================================= 
Dim dbPath,dbName,Db,ConnStr,WebSiteFolderName 
on error resume next 

WebSiteFolderName="WeldSiteBuilder" 
dbPath = "_sitedata/" '注意是反斜杠，且只有末尾有 
dbName = "acteedata.mdb" '數(shù)據(jù)庫名稱 
Db=GetSitePhysicalPath(WebSiteFolderName) & dbPath & dbName 
'response.Write("當前數(shù)據(jù)庫物理路徑："&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 "數(shù)據(jù)庫連接錯誤！" 
Response.End 
End If 

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

'獲取網(wǎng)站所在目錄的絕對路徑（帶“/”號） 
Function GetSitePhysicalPath(WSFN) 
dim APPL_MD_PATH,APPL_MD_PATHArray,Path,WSPP 
WSPP=request.ServerVariables("APPL_PHYSICAL_PATH")'默認網(wǎng)站是在根目錄下運行 

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 '判斷網(wǎng)站是不是在獨立的應用程序下運行 
'再判斷網(wǎng)站是不是在某個文件夾下運行 
if InStr(WSPP,WSFN)=0 then '網(wǎng)站在根目錄下的一個文件夾下運行 
'根據(jù)受訪頁面的地址拼出網(wǎng)站所在文件夾的地址 
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 '表明網(wǎng)站是在根目錄下運行 
'什么都不必做，返回值已經初始化了 
end if 
else '表明網(wǎng)站是在虛擬目錄下運行 
'什么也不做，返回值已經初始化了 
end if 
WSPP=replace(WSPP,"//","/") 
GetSitePhysicalPath=WSPP 
End Function