顯示絕對路徑的ASP實例代碼分享

本文跟大家一起學(xué)習(xí)分享的是關(guān)于顯示絕對路徑的ASP實例代碼分享，希望能夠給大家?guī)�來幫助或啟發(fā)。

<%
 ' 轉(zhuǎn)為根路徑格式
 Dim sTempUrl
 sTempUrl = url
 If Left(sTempUrl, 1) = "/" Then
  RelativePath2RootPath = sTempUrl
 End If
 Dim sWebEditorPath
 sWebEditorPath = Request.ServerVariables("SCRIPT_NAME")
 sWebEditorPath = Left(sWebEditorPath, InstrRev(sWebEditorPath, "/") - 1)
 Do While Left(sTempUrl, 3) = "../"
  sTempUrl = Mid(sTempUrl, 4)
  sWebEditorPath = Left(sWebEditorPath, InstrRev(sWebEditorPath, "/") - 1)
 Loop
 RelativePath2RootPath = sWebEditorPath & "/" & sTempUrl
 ' 根路徑轉(zhuǎn)為帶域名全路徑格式
 Dim sHost, sPort
 sHost = Split(Request.ServerVariables("SERVER_PROTOCOL"), "/")(0) & "://" & Request.ServerVariables("HTTP_HOST")
 sPort = Request.ServerVariables("SERVER_PORT")
 If sPort <> "80" Then
  sHost = sHost & ":" & sPort
 End If
 RootPath2DomainPath = sHost & url
 %>
<%=RootPath2DomainPath%><%=RelativePath2RootPath%>