全站只需要用一個資料庫連接檔案的實作函數程式碼啥都不說了，直接奉獻原始程式碼
複製代碼代碼如下:
'==========注意======================================== =========
' 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資料庫解決的包含路徑不對的問題，使站點能公用一個資料庫連接文件，任意一個文件包含它，資料庫都能正常打開，並且不必理會網站是怎麼運行的（根目錄下運行，虛擬路徑下運行，根目錄+網站所在目錄下運行）。