顯示絕對(duì)路徑的ASP實(shí)例代碼分享
本文跟大家一起學(xué)習(xí)分享的是關(guān)于顯示絕對(duì)路徑的ASP實(shí)例代碼分享，希望能夠給大家?guī)韼椭騿l(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%>
