Jak uzyskać adres URL roota za pomocą ASP, nie ASP.net

Question

Jak uzyskać adres URL roota za pomocą ASP, a nie ASP.net? Znalazłem to pytanie ( How do I get the site root URL? )

ale jest to związane z ASP.NET.

=====================================

odpowiedź Abbasa zapewnić mi

rodzic korzeń site url

ale nie daje mi głównego adresu URL podstrony

========================= ============

Answer 1

Klasyczna ASP miała kolekcję Request.ServerVariables, która zawierała wszystkie detai serwera i środowiska ls. Oto przykład klasycznej wersji ASP przykładowego kodu .NET:

function getSiteRootUrl() 
    dim siteRootUrl, protocol, hostname, port 

    if Request.ServerVariables("HTTPS") = "off" then 
     protocol = "http" 
    else 
     protocol = "https" 
    end if 
    siteRootUrl = protocol & "://" 

    hostname = Request.ServerVariables("HTTP_HOST") 
    siteRootUrl = siteRootUrl & hostname   

    port = Request.ServerVariables("SERVER_PORT") 
    if port <> 80 and port <> 443 then 
     siteRootUrl = siteRootUrl & ":" & port 
    end if 

    getSiteRootUrl = siteRootUrl 
end function 

Answer 2

To powinno Ci dać to, czego chcesz.

getSiteURL() 

Function getSiteURL() 
    port = "http" 
    https = lcase(request.ServerVariables("HTTPS")) 
    if https <> "off" then prot = "https" 
    domainname = Request.ServerVariables("SERVER_NAME") 
    filename = Request.ServerVariables("SCRIPT_NAME") 
    querystring = Request.ServerVariables("QUERY_STRING") 
    fullpath = port & "://" & domainname & Request.ServerVariables("SCRIPT_NAME") 
    filename = right(fullpath, InStr(StrReverse(fullpath), StrReverse("/"))) 

    url = Replace(fullpath, filename, "/") 

    response.write url & "<br>" 
end Function