========= Obtenha o URL com porta, é recomendável usar ========================
FunctionGet_scriptNameurl ()
IfRequest.ServerVariables ("server_port") = "80" então
Get_scriptNameurl = "http: //" & request.servervariables ("server_name") & lcase (request.servervariables ("script_name")))
Outro
Get_scriptNameurl = "http: //" & request.servervariables ("server_name") & ":" & request.servervariables ("server_port") & lcase (request.servervariables ("script_name")) e
Endif
Função final
'====================== Função para destacar as palavras encontradas na string com expressões regulares ==================================================================================================================
FunctionBoldword (strContent, Word)
Ifword = "" então
Boldword = strContent
Saída de saída
Endif
DIMOBJREGEXP
SetObjregexp = newRegexp
objregexp.ignorecase = true
objregexp.global = true
objregexp.pattern = "(" & word & ")"
strContent = objregexp.replace (strContent, "<fontcolor =" "#ff0000" "> <b> $ 1 </b> </font>")
SetObjregexp = nada
Boldword = strContent
Função final
'======================== Obtenha o endereço IP atual do usuário ====================
FunctionGetIP ()
uip = request.servervariables ("http_x_forwarded_for")
Ifuip = "" thenuip = request.servervariables ("remote_addr")
Getip = uip
Função final
'===================== Obtenha o caminho de script do programa atual =======================
FunctionGetScriptName ()
Scriptaddress = cstr (request.Servervariables ("script_name")) 'Obtenha o endereço atual
If (request.QueryString <> "") então
Scriptaddress = scriptaddress & "?" & Server.htmlencode (request.querystring) 'Obtenha o endereço com o parâmetro
Endif
Iflen (scriptaddress)> 250ThenscriptAddress = esquerda (sciptaddress, 250) & "..." 'para interceptação de caminho, com um máximo de 250 caracteres
GetScriptName = scriptAddress
Função final
'================= Retornar URL com parâmetros, usado ao classificar várias palavras -chave ======================
'Parâmetro removelista: os parâmetros que precisam ser removidos do URL podem ser múltiplos, separe -os com vírgulas no meio.
Functionkeepurlstr (removelista)
Scriptaddress = cstr (request.Servervariables ("script_name")) & "?" 'Obtenha o endereço atual e adicione o "?" símbolo
M_itemurl = ""
Foreachm_iteminRequest.QueryString
IfInstr (removelista, m_item) = 0hen
M_itemurl = m_itemurl & m_item & "=" & server.urlencode (request.querystring ("" e m_item & "") & "
Endif