ASP相對路徑嵌套子根

Question

我使用ASP腳本的虛擬目錄中，而不是頂（根）級的應用和我已經不寫腳本給每個頁面的CSS和其他適當的路徑包含直接存在於根目錄下的文件。因此，一些兩層深將不得不在「.... \」

這弄亂我包括頁眉和頁腳模板。

是否有管理嵌套子文件夾，其中包括標題中的相對路徑更簡單的方法？

使用WIN2K3服務器與IIS6 ASP 3.5的32位在64位進程中運行

Answer 1

如果你有一個標準的包含文件，您包括每一個頁面，您可以做類似的事情，以我們w當沒有我在工作的webfodder。

每個頁面都包含一個我們稱爲info.asp的文件。在info.asp裏面，我們Dim'd並設置了我們需要的所有網站全局變量。我們Dim'd一個變量，我們稱之爲strRelativePath，並將其設置爲info.asp中的空字符串。

然後在每個頁面上之前，我們稱之爲CSS，頁眉，頁腳和包括（這也是xxxx.asp文件），我們適當地設置strRelativePath。

strRelativePath = 「.. \」
strRelativePath = 「.. \ .. \」

我們便要確保所有圖像的參考和使用何種strRelativePath變量。例如：

< IMG SRC = 「<％= strRelativePath％>影像\ myImage.jpg」 這個參數>

編輯：在OP的請求 - info.asp文件中添加的內容

<% 
Option Explicit 
Response.Buffer = true 
Response.charset="ISO-8859-1"
 

'============================================================== '=== Declarations '============================================================== Dim strBodyTag Dim strRelativePath Dim strFqurl Dim strSFqurl Dim strReferer Dim strServerName Dim strMailServer Dim strWebDSN
 

'============================================================== '=== Initilization '============================================================== strBodyTag = "bgcolor='#FFFFFF' topmargin='4' leftmargin='4' rightmargin='4' bottommargin='4' marginheight='0' marginwidth='0'" strRelativePath = "" strReferer = trim(lcase(Request.ServerVariables("HTTP_REFERER"))) strServerName = lcase(Request.ServerVariables("SERVER_NAME")) strMailServer = "localhost" 'DO NOT CHANGE FROM "localhost"
 

Select Case strServerName Case "dev" strFqurl = "http://dev/websitegoeshere/" 'INCLUDE TRAILING SLASH strSFqurl = "https://dev/websitegoeshere/" 'INCLUDE TRAILING SLASH strWebDSN = "Provider=SQLOLEDB;server=DEV\SQLEXPRESS;uid=DBUserId;pwd=DBPassword;database=DBName" Case Else 'PRODUCTION strFqurl = "http://www.websitegoeshere.com/" 'INCLUDE TRAILING SLASH strSFqurl = "https://www./websitegoeshere.com/" 'INCLUDE TRAILING SLASH strWebDSN = "Provider=SQLOLEDB;server=xxx.xxx.xxx.xxx;uid=DBUserId;pwd=DBPassword;database=DBName" 'Note: xxx.xxx.xxx.xxx = IP Address for Database End Select
 

'============================================================== '=== Assigns a name to each page to determin title, etc. '============================================================== Dim strScriptName Dim strPageTitle Dim strMetaDescription Dim strMetaKeyWords Dim strHeaderText
 

strScriptName = Request.ServerVariables("Script_Name") strScriptName = LCase(Mid(strScriptName,InStrRev(strScriptName,"/")+1)) strPageTitle = "Default Page Title Goes Here" strMetaDescription = "Default Meta Description Goes Here" strMetaKeyWords = "Default Keywords Go Here" strHeaderText = "Default Header Text Goes Here"
 

%>