asp中将相对路径转换为绝对路径的函数代码

作者: 腰力很好但没用
来源: 51数据库
2020-08-07

一个将绝对路径转换为相对路径的asp函数，需要的朋友可以收藏下。

复制代码代码如下:

'================================================ 
' 函数名：ChkMapPath 
' 作 用：相对路径转换为绝对路径 
' 参 数：strPath ----原路径 
' 返回值：绝对路径 
'================================================ 
Function ChkMapPath(ByVal strPath) 
Dim fullPath 
strPath = Replace(Replace(Trim(strPath), "/", ""), "\", "") 

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 