========= Obtén la URL con el puerto, se recomienda usar =======================
Functet_scriptNameUrl ()
Ifrequest.servervariables ("server_port") = "80" entonces
Get_scriptnameUrl = "http: //" & request.ServerVariAbles ("server_name") & lcase (request.ServerVariAbles ("script_name"))
Demás
Get_scriptnameUrl = "http: //" & request.servervariAnbles ("server_name") & ":" & request.serverVariAnbles ("server_port") & lcase (request.servervariables ("script_name"))
Endif
Función final
'===================.
FunctionBoldword (strContent, Word)
Ifword = "" entonces
Boldword = strContent
Extinción
Endif
dimobjegexp
Setobjregexp = newregexp
objegexp.ignorecase = True
objregexp.global = verdadero
objregexp.pattern = "(" & word & ")"
strContent = objregExp.replace (strContent, "<fontcolor =" "#ff0000" "> <b> $ 1 </b> </font>")
Setobjregexp = nada
Boldword = strContent
Función final
'======================== Obtenga la dirección IP actual del usuario =====================
FunctetIP ()
uip = request.serverVariAnbles ("http_x_forwarded_for")
Ifuip = "" entoncesuip = request.ServerVariAbles ("Remote_addr")
Getip = UIP
Función final
'==================== ¡Obtenga la ruta actual del script del programa ======================
FunctetScriptName ()
Scriptaddress = cstr (request.serverVariables ("script_name")) 'Obtenga la dirección actual
If (request.querystring <> "") entonces
Scriptaddress = scriptaddress & "?" & Server.htmlencode (request.queryString) 'Obtenga la dirección con el parámetro
Endif
Iflen (scriptaddress)> 250ThenscriptAddress = Left (sciptaddress, 250) y "..." 'para la interceptación de ruta, con un máximo de 250 caracteres
GetScriptName = scriptaddress
Función final
'================= URL de retorno con parámetros, utilizados al clasificar múltiples palabras clave =====================
'Parámetro de eliminación: los parámetros que deben eliminarse de la URL pueden ser múltiples, por favor, separarlos con comas en el medio.
FunctionEweSecureRLSTR (RemoVelist)
Scriptaddress = cstr (request.serverVariables ("script_name")) y "?" 'Obtenga la dirección actual y agregue el "?" símbolo
M_itemurl = ""
Foreachm_iteminRequest.Querystring
Ifinstr (removeList, m_item) = 0then
M_itemurl = m_itemurl & m_item & "=" & server.urlencode (request.QueryString ("" & m_item & "")) & "&"
Endif