Tc711Com提示：ASP获取地址栏的URL地址

如果要想获取这样的地址：http://192.168.0.5/super/super_article.asp?id=4
     
    那么我们就只要获取：


     192.168.0.5--->
        <%=Request.ServerVariables("HTTP_HOST")%>


     /super/super_article.asp----->

         <%=Request.ServerVariables("URL")%>


     id=4---->
        <%=Request.ServerVariables("QUERY_STRING")%>
     
    那么我们把上面的地址合起来就可以完成任务了：

     http://192.168.0.5/super/super_article.asp?id=4----->

     http://<%=Request.ServerVariables("HTTP_HOST")&request.ServerVariables("URL")

&"?"&Request.ServerVariables("QUERY_STRING") %>

ASP中获取当前服务器的域名和当前的文件名

<% Response.Write   "域名: "   &   Request.ServerVariables( "SERVER_NAME ") Response.Write   "文件名: "   &   Request.ServerVariables( "SCRIPT_NAME ") %>

ASP获取当前域名

<%
Function GetUrl()
dim url
url=Request.ServerVariables("SERVER_NAME")
Set reg = New RegExp
reg.Pattern = "^(?:http)?s?(?::\/\/)?(?:www.|\*.|\.)?(.*)$"
reg.Global = True
reg.IgnoreCase = True
GetUrl = reg.Replace(url,"$1")
End Function
%>


<%=GetUrl%>