asp url轉換函式

' 函數名：RelativePath2RootPath
' 作  用：轉為根路徑格式
' 參  數：url ----原URL
' 傳回值：轉換後的URL
'================================================
Function RelativePath2RootPath(url)
 Dim sTempUrl
 sTempUrl = url
 If Left(sTempUrl, 1) = "/" Then
  RelativePath2RootPath = sTempUrl
  Exit Function
 End If

 Dim sFilePath
 sFilePath = Request.ServerVariables("SCRIPT_NAME")
 sFilePath = Left(sFilePath, InstrRev(sFilePath, "/") - 1)
 Do While Left(sTempUrl, 3) = "../"
  sTempUrl = Mid(sTempUrl, 4)
  sFilePath = Left(sFilePath, InstrRev(sFilePath, "/") - 1)
 Loop
 RelativePath2RootPath = sFilePath & "/" & sTempUrl
End Function