'================================================ ' 函数名：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