asp中將相對路徑轉換為絕對路徑的函數代碼

2024-05-04 10:59:57

字體：大中小

來源：轉載

供稿：網友

復制代碼代碼如下:
'================================================
' 函數名：ChkMapPath
' 作用：相對路徑轉換為絕對路徑
' 參數：strPath ----原路徑
' 返回值：絕對路徑
'================================================
Function ChkMapPath(ByVal strPath)
Dim fullPath
strPath = Replace(Replace(Trim(strPath), "/", "/"), "http://", "/")

If strPath = "" Then strPath = "."
If InStr(strPath,":/") = 0 Then
fullPath = Server.MapPath(strPath)
Else
strPath = Replace(strPath,"../","")
fullPath = Trim(strPath)
If Right(fullPath, 1) = "/" Then
fullPath = Left(fullPath, Len(fullPath) - 1)
End If
End If
ChkMapPath = fullPath
End Function

您可能感興趣的文章:

談談PHP中相對路徑的問題與絕對路徑的使用java區分絕對路徑和相對路徑的方法PowerShell中把相對路徑轉換為絕對路徑的2個方法javascript將相對路徑轉絕對路徑示例C#絕對路徑拼接相對路徑的實例代碼php絕對路徑與相對路徑之間關系的的分析相對路徑轉化成絕對路徑淺談網頁中的相對路徑和絕對路徑相對路徑與絕對路徑的區別相對路徑和絕對路徑的寫法總結

上一篇：用ASP創建日志文件（附源程序）

下一篇：asp中通過addnew添加內容后取得當前文章的自遞增ID的方法