Discuz教程网

1314学习网»站长论坛 › 站长交流区 › 技术杂谈 › asp中将相对路径转换为绝对路径的函数代码
返回列表 发新帖

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

[复制链接]
authicon dly 发表于 2011-9-7 12:36:51 | 显示全部楼层 |阅读模式

  2. '================================================
  3. ' 函数名：ChkMapPath
  4. ' 作 用：相对路径转换为绝对路径
  5. ' 参 数：strPath ----原路径
  6. ' 返回值：绝对路径
  7. '================================================
  8. Function ChkMapPath(ByVal strPath)
  9. Dim fullPath
  10. strPath = Replace(Replace(Trim(strPath), "/", ""), "\", "")

  12. If strPath = "" Then strPath = "."
  13. If InStr(strPath,":") = 0 Then
  14. fullPath = Server.MapPath(strPath)
  15. Else
  16. strPath = Replace(strPath,"..","")
  17. fullPath = Trim(strPath)
  18. If Right(fullPath, 1) = "" Then
  19. fullPath = Left(fullPath, Len(fullPath) - 1)
  20. End If
  21. End If
  22. ChkMapPath = fullPath
  23. End Function
复制代码




上一篇：asp统计信息实现代码/文章每日、每周、每月、总访问量的方法
下一篇：PHP性能优化贴士——产生高度优化代码
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

1314学习网 ( 浙ICP备10214163号 )

GMT+8, 2025-5-2 08:46

Powered by Discuz! X3.4

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表