最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp相对路径转换成绝对路径
时间：2022-07-02 23:14:31 编辑：袖梨 来源：一聚教程网
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
相关文章
- 韩漫原著无删减入口链接-最新地址获取及在线阅读指南 04-17
- 朋友收集梦想生活初音未来捏脸一览 04-17
- 暗黑挂机使者手游好玩吗 暗黑挂机使者手游核心玩法与挂机养成机制详解 04-17
- 三角洲行动官网直达-三角洲行动官网入口 04-17
- 这是谐音梗手游好玩吗 这是谐音梗手游核心玩法与趣味性解析 04-17
- 夸克入口-夸克浏览器网页版 04-17