Güncel alan adını Klasik ASP'de nasıl edinebilirim? Sayfa <a href="http://www.domain.com/page.asp" rel="noreferrer">http://www.domain.com/page.asp</a> ise öylesine

Question

ben Talebi ServerVariables ait www.domain.com

Answer 1

Request.ServerVariables("SERVER_NAME")' 

, biri tam olmak benim işlevleri:

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

Bir ihtiyaç geçerli etki alanını almak istiyor (server_name?)

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

Answer 3

Bunu f sonundan önce koyun. Hiçbir sorgu dizesi öğe olduğunda, sonunda rastgele ? olarak, ? kaldırmak unction istediğini olmayabilir:

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

Answer 4

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

Bu vasiyetin her Request.ServerVariables ile bu gibi sonuçlar verir

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