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