ASP路径格式的转换函数及示例-先飞网电脑教程文章

>> 我们从网络和杂志上收集了近100000余篇各类电脑技术、网络技术、软件技术等方面的文章教程,我们的收录原则:不是精华拒不收录!

ASP路径格式的转换函数及示例

［作者：佚名转贴自：网络转载阅读次数：31 更新时间：2007-6-20 17:49:00 录入：刘光勇］

    <%
' 转为根路径格式
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(""))
%>

上一篇:四步讲解ASP中正则表达式的应用下一篇: ASP中FSO组件对文件操作实例详解