Làm cách nào để có được url gốc bằng ASP chứ không phải ASP.net

Question

Làm cách nào để có được url gốc bằng ASP chứ không phải ASP.net? Tôi đã tìm thấy câu hỏi này ( How do I get the site root URL? )

nhưng nó có liên quan đến ASP.net.

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

câu trả lời của Abbas cung cấp cho tôi

mẹ url trang web gốc

nhưng không cung cấp cho tôi những url gốc subsite

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

Answer 1

ASP cổ điển có bộ sưu tập Request.ServerVariables chứa tất cả máy chủ và môi trường detai ls. Dưới đây là những gì phiên bản ASP cổ điển của ví dụ mã .NET trông giống như:

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

Điều này sẽ giúp bạn có được những gì bạn muốn.

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