当前位置：主页 > 查看内容

asp中将相对路径转换为绝对路径的函数代码

发布时间：2021-05-08 00:00| 有 位朋友查看

简介：复制代码 代码如下: '================================================ ' 函数名：ChkMapPath ' 作 用：相对路径转换为绝对路径 ' 参 数：strPath ----原路径 ' 返回值：绝对路径 '================================================ Function ChkMapPath(……
复制代码 代码如下:

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

原文链接：https://m.jb51.net/article/27250.htm
本站部分内容转载于网络，版权归原作者所有，转载之目的在于传播更多优秀技术内容，如有侵权请联系QQ/微信：153890879删除，谢谢！
上一篇：用JS实现购物网站商品放大镜效果 下一篇：.NET CORE中使用AutoMapper进行对象映射的方法

推荐图文

  • 周排行
  • 月排行
  • 总排行

随机推荐