• 首页
• 域名注册
• 虚拟主机
• 网站建设
• 企业邮局
• 网站优化
• 网站备案
• 服务器租用
• 其它服务

域名注册

• 域名相关知识及购买
• 中文域名问题
• 网址URL转发
• 转入转出及过户
• 域名交易

虚拟主机

• 虚拟主机相关知识
• 域名解析
• 网址URL转发
• 转入转出及过户
• 域名交易

网站建设

• 网站建设相关知识
• 域名解析
• 网址URL转发
• 转入转出及过户
• 域名交易

企业邮局

• 域名相关知识及购买
• 域名解析
• 网址URL转发
• 转入转出及过户
• 域名交易

网络营销

• 百度竟价排名
• 网站制作知识
• 网址URL转发
• 转入转出及过户
• 域名交易

网站备案

• 域名相关知识及购买
• 域名解析
• 网址URL转发
• 转入转出及过户
• 域名交易

服务器租用

• 服务器相关知识
• 域名解析
• 网址URL转发
• 转入转出及过户
• 域名交易

• 您的位置：创新互联 >> 网站建设 >> 虚拟主机 >> asp中相对路径转换为绝对路径函数
  

asp中相对路径转换为绝对路径函数

• 作者：谭孝梅 文章来源：网站设计制作 点击数：924 更新时间：2009-9-07
• ' 函数名：ChkMapPath
  ' 作 用：相对路径转换为绝对路径
  ' 参 数：strPath ----原路径
  ' 返回值：绝对路径
  '------------------------------------------------------------------------------------
  Function ChkMapPath(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
  '------------------------------------------------------------------------------------
  以上为将绝对路径转换为相对路径的asp函数！
• 上一篇文章：Asp中Server.ScriptTimeOut注意点
  下一篇文章：FSO组件介绍