Как мне получить root URL-адрес с использованием ASP, а не ASP.net? Я нашел этот вопрос ( Как получить корневой URL сайта? )
, но это связано с ASP.net.
=====================================
Ответ Аббаса предоставил мне
корневой URL-адрес родительского сайта
, но не предоставляет мне корневой URL-адрес дочернего сайта
============================== =======
Хотя это - очень старый вопрос, я подозреваю то, что просит Hoque, все перед страницей. Например, если бы URL http://www.example.com/subsite/default.asp?a=1&b=2
, значение ожидаемого дохода было бы http://www.example.com/subsite
.
Function GetSitePath()
Dim address, port, url
address = "http://"
If LCase(Request.ServerVariables("HTTPS")) = "off" Then address = "https://"
address = address & Request.ServerVariables("SERVER_NAME")
port = Request.ServerVariables("SERVER_PORT")
If port <> 80 And port <> 443 Then address = address & ":" & port
url = Request.ServerVariables("URL")
address = address & Left(url, InstrRev(url, "/"))
GetSitePath = address
End Function
Примечание, что я не включал проверки ошибок здесь, для предотвращения плохих URL, но если бы это вызывает ошибку, я подозревал бы, что существует что-то немного более отчаянное продолжение!