asp获取当前完整路径(url)的函数代码

有时候我么您需要获取网址，端口、路径文件名、参数等，这里就为大家分享一下这个函数代码，需要的朋友可以参考下

函数1

%function GetUrl() on Error Resume Next Dim strTempif LCase(request.ServerVARiables("HTTPS")) = "off" ThenstrTemp = "http://"ElsestrTemp = "https://" end if strTemp = strTemp &
     Request.ServerVariables("SERVER_NAME") if Request.ServerVariables("SERVER_PORT") >
     80 Then strTemp = strTemp &
     ":" &
     Request.ServerVariables("SERVER_PORT") strTemp = strTemp &
     Request.ServerVariables("URL") if trim(request.QueryString) >
     "" Then strTemp = strTemp &
     "?" &
     Trim(Request.QueryString) GetUrl = strTempEnd Functionresponse.wrITe GetUrl()%>
    

函数2

!--获取当前页面路径-->
     % dim str,host,url,keyword,full str="http://";
     host = Request.ServerVariables("HTTP_HOST") url = Request.ServerVariables("PATH_INFO") '或url keyword = Request.ServerVariables("QUERY_STRING") if keyword >
     "" then full = str&
    host&
    url&
    "?"&
    keyword else full = str&
    host&
    url end if session("url")=full %>
    

使用的话肯定选择第一个，支持https的判断。

如果是通过404页面除非，这个是获取不到的，需要结合js来实现

例如：

js页面

script>
    var pathname = window.location.pathname;
    location.replace("/do.asp?p="+pathname);
    /script>
    

将路径传参给do.asp进行处理

strpath=Request("p")

即可获取404之前的页面，然后进行执行操作即可，注意目录权限。也可以放到404中处罚iframe进行操作。

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！