ASP路径格式的转换函数及示例
作者:互联网 文章来源:互联网 更新时间:2013-7-23

 

   <%
转为根路径格式
Function RelativePath2RootPath(url)
  Dim sTempUrl
  sTempUrl = url
  If Left(sTempUrl, 1) = "/" Then
    RelativePath2RootPath = sTempUrl
    Exit Function
  End If

  Dim sWebEditorPath
  sWebEditorPath = Request.ServerVariables("SCRIPT_NAME")
  sWebEditorPath = Left(sWebEditorPath, InstrRev(sWebEditorPath, "/") - 1)
  Do While Left(sTempUrl, 3) = "../"
    sTempUrl = Mid(sTempUrl, 4)
    sWebEditorPath = Left(sWebEditorPath, InstrRev(sWebEditorPath, "/") - 1)
  Loop
  RelativePath2RootPath = sWebEditorPath & "/" & sTempUrl
End Function

根路径转为带域名全路径格式
Function RootPath2DomainPath(url)
  Dim sHost, sPort
  sHost = Split(Request.ServerVariables("SERVER_PROTOCOL"), "/")(0) & "://" & Request.ServerVariables("HTTP_HOST")
  sPort = Request.ServerVariables("SERVER_PORT")
  If sPort <> "80" Then
    sHost = sHost & ":" & sPort
  End If
  RootPath2DomainPath = sHost & url
End Function


response.Write("TestEx.<br />")
response.Write("转为根路径格式:"&RelativePath2RootPath("myfolder/ggg.gif"))
response.Write("<br />")
response.Write("根路径转为带域名全路径格式:"&RootPath2DomainPath("/myfolder/ggg.gif"))
response.Write("输出当前程序所在的目录:"&RelativePath2RootPath(""))
%>

 

收藏 】 【打印】 【关闭
  最新文章
  点击排行
盛世互联(中国)网络技术有限公司 深圳市及时网络技术有限公司 联合版权 中国市场授予<<中国服务品牌企业>>
客服热线:0755-8376 8888(120线) 免费热线:800-830-9577 800-830-9377 ICP经营许可证: 粤B2-20064003号
北京客服:010-51663652 珠海客服:0756-6171956 深圳客服:0755-83765888
广州客服:020-61139366 彩文传真:0755-83765599
商务地址:中国.深圳经济特区.罗湖区人民南路深圳发展中心大厦10层