當(dāng)前位置:首頁文章首頁 IT學(xué)院 IT技術(shù)

顯示絕對(duì)路徑的ASP實(shí)例代碼分享

作者:  來源:  發(fā)布時(shí)間:2011-6-17 15:10:12  點(diǎn)擊:

本文跟大家一起學(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%>

相關(guān)軟件

相關(guān)文章

文章評(píng)論

軟件按字母排列: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z