在 Classic ASP 中如何获取当前页面域名和完整超链接？

1. response.write Request.ServerVariables("SERVER_NAME")'
   
2. response.Write "<p>"& PageUrl &"</p>"
   
3. 
   
4.   function PageUrl
   
5.      dim sPort
   
6.      sPort = Request.ServerVariables("SERVER_PORT")
   
7.      if sPort = "80" then
   
8.         sPort = ""
   
9.      else
   
10.         sPort = ":" & sPort
    
11.      end if
    
12. 
    
13.      PageUrl = "http://" & Request.ServerVariables("SERVER_NAME") & sPort & _
    
14.                            Request.ServerVariables("URL") & "?" & _
    
15.                            Request.ServerVariables("QUERY_STRING")
    
16.   end function
    

复制代码