Как я могу получить текущий домен в 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

Answer 2

Одна из переменных сервера запросов (имя_сервера?)

http://www.w3schools.com/asp/coll_servervariables.asp

Answer 3

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

Это даст вам такие результаты со всеми Request.ServerVariables

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

Answer 4

Поместите это перед концом вашей функции, чтобы удалить ?, когда нет элемента строки запроса, так как случайный ? в конце может не соответствовать вашему желанию:

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