Function Code for converting relative paths to absolute paths in asp

Copy codeThe Code is as follows: '================================================ ==========
'Function name: ChkMapPath
'For use: Convert relative paths to absolute paths
'Parameter: strPath ---- original path
'Return value: absolute path
'================================================ ==========
Function ChkMapPath (ByVal strPath)
Dim fullPath
StrPath = 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