折叠ASP/Visual Basic Code复制内容到剪贴板
- '================================================
- ' 函数名：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