asp相对路径转换成绝对路径

asp相对路径转换成绝对路径

Public Function ChkMapPath(ByVal strPath)
 On Error Resume Next
 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