Если у вас есть стандартный файл включения, который вы включаете на каждой странице, вы можете сделать что-то похожее на то, что мы делали, когда я работал над webfodder .
На каждой странице был файл, который мы назвали info.asp.Внутри info.asp мы Dim'd и установили все глобальные переменные, которые нам нужны для сайта.Мы Dim'd переменную, которую мы назвали strRelativePath, и установили ее в пустую строку внутри info.asp.
Затем на каждой странице перед тем, как мы вызвали CSS, Header и Footer, включающие (которые также были файлами xxxx.asp) мы устанавливаем strRelativePath соответствующим образом.
strRelativePath = ".. \"
strRelativePath = ".. \ .. \"
Затем мы должны убедиться, что все ссылкик изображениям и тому, что использует переменную strRelativePath.Например:
images\myimage.jpg">
Редактировать: по запросу OP - добавлено содержимое файла info.asp <%
Option Explicit
Response.Buffer = true
Response.charset="ISO-8859-1"</p>
<p>'==============================================================
'=== Declarations
'==============================================================
Dim strBodyTag
Dim strRelativePath
Dim strFqurl
Dim strSFqurl
Dim strReferer
Dim strServerName
Dim strMailServer
Dim strWebDSN</p>
<p>'==============================================================
'=== 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"</p>
<p>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</p>
<p>'==============================================================
'=== Assigns a name to each page to determin title, etc.
'==============================================================
Dim strScriptName
Dim strPageTitle
Dim strMetaDescription
Dim strMetaKeyWords
Dim strHeaderText</p>
<p>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"</p>
<p>%>