asp-classic - 如何在经典 ASP 中获取当前域？

Question

我想获取当前域，所以如果页面是 http://www.domain.com/page.asp我需要www.domain.com

Answer 1

Request.ServerVariables("SERVER_NAME")'

完整地说，我的功能之一:

  function PageUrl
     dim sPort
     sPort = Request.ServerVariables("SERVER_PORT")
     if sPort = "80" then
        sPort = ""
     else
        sPort = ":" & sPort
     end if

     PageUrl = "http://" & Request.ServerVariables("SERVER_NAME") & sPort & _
                           Request.ServerVariables("URL") & "?" & _
                           Request.ServerVariables("QUERY_STRING")
  end function