asp取得当前网址

<%
Function GetUrl()  
      On Error Resume Next  
      Dim strUrl  
     If LCase(Request.ServerVariables("HTTPS")) = "off" Then  
     strUrl = "http://"  
     Else  
    strUrl = "https://"  
      End If  
      strUrl = strUrl & Request.ServerVariables("SERVER_NAME")  
      If Request.ServerVariables("SERVER_PORT") <> 80 Then    
              strUrl = strUrl & ":" & Request.ServerVariables("SERVER_PORT")  
      end if  
      strUrl = strUrl & Request.ServerVariables("URL")  
      If Trim(Request.QueryString) <> "" Then    
            strUrl = strUrl & "?" & Trim(Request.QueryString)  
      end if  
      GetUrl = strUrl  
  End Function
  Response.Write(GetUrl())
%>

 

    由于各种原因,我们无法获知[asp取得当前网址]原创作者,如侵犯了您的版权,请您及时联系我们!