Часто нужен код функции для получения адреса и параметров текущей страницы в asp. Он специально организован для удобства друзей, которым он нужен. Скопируйте код кода следующим образом:
Функция getCurrentUrl()
При ошибке Возобновить Далее
Dim strTemp
Если LCase(Request.ServerVariables(HTTPS)) = выключено Тогда
стрТемп = http://
Еще
стрТемп = https://
Конец, если
strTemp = strTemp & Request.ServerVariables(SERVER_NAME)
Если Request.ServerVariables(SERVER_PORT) <> 80 Тогда
strTemp = strTemp & : & Request.ServerVariables(SERVER_PORT)
конец, если
strTemp = strTemp & Request.ServerVariables(URL)
getCurrentUrl = стрТемп
Конечная функция
Функция getUrlWithParams()
Тусклый адрес сценария, имя сервера, qs
ScriptAddress = CStr(Request.ServerVariables(SCRIPT_NAME))
Имя сервера = CStr(Request.ServerVariables(Server_Name))
qs=Request.QueryString
Если Request.ServerVariables(SERVER_PORT) <> 80 Тогда
Имя сервера = Имя сервера &: & Request.ServerVariables(SERVER_PORT)
конец, если
если qs<> тогда
getUrlWithParams =http://& Имя сервера и адрес сценария &?&qs
еще
getUrlWithParams =http://& Имя сервера и адрес сценария
конец, если
Конечная функция