========= Получите URL с портом, рекомендуется использовать ==============================================
Functionget_scriptnameurl ()
Ifrequest.servervariables ("server_port") = "80" Then
Get_scriptnameurl = "http: //" & request.servervariables ("server_name") & lcase (request.servervariables ("script_name")))))
Еще
Get_scriptnameurl = "http: //" & request.servervariables ("server_name") & ":" & request.servervariables ("server_port") & lcase (request.servervariables ("script_name")))
Эндиф
Конечная функция
'====================== Функция, чтобы выделить слова, найденные в строке с регулярными выражениями ==========================================================
FunctionBoldWord (strContent, Word)
Ifword = "" then
BOLDWORD = strContent
Выходная функция
Эндиф
dimobjregexp
Setobjregexp = newRegexp
objregexp.ignorecase = true
objregexp.global = true
objregexp.pattern = "(" & word & ")"
strcontent = objregexp.replace (strcontent, "<fontcolor =" "#ff0000" "> <b> $ 1 </b> </font>")
Setobjregexp = ничего
BOLDWORD = strContent
Конечная функция
'====================== Получите текущий IP -адрес пользователя ==================
FunctionGetip ()
uip = request.servervariables ("http_x_forwarded_for")
Ifuip = "" thenuip = request.servervariables ("remote_addr")
Getip = uip
Конечная функция
'=================== Получите текущий путь сценария программы ========================
Functiongetscriptname ()
ScriptAddress = cstr (request.servervariables ("script_name")) 'Получите текущий адрес
If (request.querystring <> "") затем
ScriptAddress = scriptAddress & "?" & Server.htmlencode (request.querystring) 'Получите адрес с параметром
Эндиф
Iflen (scriptAddress)> 250ThenScriptAddress = Left (SciptAddress, 250) & "..."
GetScriptName = scriptAddress
Конечная функция
'================= Верните URL с параметрами, используемые при сортировке нескольких ключевых слов ===================================================
«Параметр Removelist: параметры, которые необходимо удалить из URL -адреса, могут быть несколькими, пожалуйста, разделить их с запятыми в середине.
Functionkeepurlstr (Removelist)
ScriptAddress = cstr (request.servervariables ("script_name")) и "?" Получите текущий адрес и добавьте "?" символ
M_itemurl = ""
Foreachm_iteminrequest.querystring
Ifinstr (Removelist, m_item) = 0then
M_itemurl = m_itemurl & m_item & "=" & server.urlencode (request.querystring ("" & m_item & "")) & "&"
Эндиф