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

我想获取当前域，因此如果页面是，我需要一个请求服务器变量（服务器名称？）

完整地说，我的一项职能是：

  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

---

在没有querystring元素时，将此项放在函数末尾以删除

？

，因为末尾的随机

？

可能不是您想要的：

If right(PageUrl,1)="?" then PageUrl = left(PageUrl,len(PageUrl)-1)

---

请添加一些解释。添加的解释：）

If right(PageUrl,1)="?" then PageUrl = left(PageUrl,len(PageUrl)-1)

<%
for each x in Request.ServerVariables
response.write(x&"="&Request.ServerVariables(x)&"<br>")
next
%>

REMOTE_ADDR = 40.20.170.160
REMOTE_HOST = 40.20.170.160
REMOTE_USER = 
REQUEST_METHOD = GET
SCRIPT_NAME = /xyz/get.asp
SERVER_NAME = www.xyz.com
SERVER_PORT = 80