ASP.netではなくASPを使用してルートURLを取得するには

Question

ASP.netではなくASPを使用してルートURLを取得するにはどうすればよいですか？私はこの質問（ How do I get the site root URL? ）

を発見したが、それはASP.netに関連している 。

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

アッバスの答えは私に提供します

親サイトのルートURL

が、私にサブサイトのルートURLを提供していません

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

Answer 1

従来のASPには、すべてのサーバーと環境を含むRequest.ServerVariablesコレクションがありましたls。サンプル.NETコードの古典的なASPバージョンは次のようになります。

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

これはあなたに必要なものを提供します。

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