ASP получает сводную информацию о функции URL. Друзья, которым она нужна, могут обратиться к ней. Способ 1: простой, без параметров, только виртуальный путь.
Скопируйте код кода следующим образом:
GetUrl = запрос (URL)
Например: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Получено как: shiyan.asp
Скопируйте код кода следующим образом:
<%
Дим Чанду,url,конец,wurl
changdu = len (request.ServerVariables (URL))
url=instrrev(request.ServerVariables(URL),/)
URL=URL+1
концы = Чанду + 1-url
wurl=mid(request.ServerVariables(URL),url,ends)
%>
Способ 2: получить весь URL-адрес и получить параметры
Скопируйте код кода следующим образом:
'Получаем адрес текущей страницы
Функция ПолучитьUrl()
При ошибке Возобновить Далее
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)
Если Trim(Request.QueryString) <> Тогда strTemp = strTemp & ? & Trim(Request.QueryString)
GetUrl = стрТемп
Конечная функция
Например: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Получено как: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd.
Способ 3. Получите виртуальный путь и параметры.
Скопируйте код кода следующим образом:
Частная функция GetUrl()
Тусклый адрес сценария, M_ItemUrl, M_item
ScriptAddress = CStr(Request.ServerVariables(SCRIPT_NAME)) 'Получить текущий адрес
M_ItemUrl=
Если (Request.QueryString <>) Тогда
ScriptAddress = ScriptAddress & ?
Для каждого M_item в Request.QueryString
Если M_item = page_num, то выход для 'Функция здесь предназначена для фильтрации параметров Page_num (этот параметр задается сам по себе в page_turn.asp и изменяется в соответствии с личными настройками), в противном случае он будет накладываться каждый раз при перелистывании страницы. Параметры, хотя и не влияют на функцию, все равно не очень хороши~~
Если InStr(page,M_Item)=0 Тогда
M_ItemUrl = M_ItemUrl & M_Item &=& Server.URLEncode(Request.QueryString(&M_Item&))
еще
M_ItemUrl = M_ItemUrl & M_Item &=& Server.URLEncode(Request.QueryString(&M_Item&)) & &
Конец, если
Следующий
Еще
ScriptAddress = ScriptAddress & ?
конец, если
GetUrl = Адрес сценария и M_ItemUrl
Конечная функция
Например: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Получено как:/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Способ 4: получить только строку параметра
Скопируйте код кода следующим образом:
Функция ПолучитьUrl()
При ошибке Возобновить Далее
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)
Если Trim(Request.QueryString) <> Тогда strTemp = strTemp & ? & Trim(Request.QueryString)
GetUrl = стрТемп
geturl=mid(geturl,instr(geturl,?)+1)
Конечная функция
Например: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Получено как: dfsdfsf=dsfsdfd&aa=dddd