ASP 包含檔案中的路徑問題和使用單一資料庫串連檔案的解決方案

來源:互聯網
上載者:User

啥都不說了,直接奉獻原代碼 複製代碼 代碼如下:'==========注意===============================================
' 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資料庫解決的包含路徑不對的問題,使網站能公用一個資料庫連接檔案,任意一個檔案包含它,資料庫都能正常開啟,並且不必理會網站是怎麼啟動並執行(根目錄下運行,虛擬路徑下運行,根目錄+網站所在目錄下運行)。

相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.