========= Obtenez l'URL avec le port, il est recommandé d'utiliser ====================.
Functionget_scriptNameUrl ()
Ifrequest.servervariables ("server_port") = "80" puis
Get_scriptNameUrl = "http: //" & request.servervariables ("server_name") & lcase (request.servervariables ("script_name"))
Autre
Get_scriptNameUrl = "http: //" & request.servervariables ("server_name") & ":" & request.servervariables ("server_port") & lcase (request.servervariables ("script_name")))
Endire
Finition de fin
'===================== Fonction Pour mettre en évidence les mots trouvés dans la chaîne avec des expressions régulières =============================.
FonctionBoldword (strContent, Word)
Ifword = "" alors
Boldword = StrContent
Sortie
Endire
dimobjregexp
SetObjregexp = newRegexp
objregexp.ignorecase = true
objregexp.global = true
objregexp.Pattern = "(" & word & ")"
strContent = objregexp.replace (strContent, "<fontcolor =" "# ff0000" "> <b> $ </b> </font>")
SetObjregexp = rien
Boldword = StrContent
Finition de fin
'======================= Obtenez l'adresse IP actuelle de l'utilisateur ===================
Functiongetip ()
uip = request.servervariables ("http_x_forwarded_for")
Ifuip = "" theUip = request.servervariables ("reote_addr")
Getip = uip
Finition de fin
'==================== Obtenez le chemin de script du programme actuel ===================
FunctionGetScriptName ()
ScriptAddress = CSTR (request.servervariables ("script_name")) 'Obtenez l'adresse actuelle
If (request.querystring <> "") puis
ScriptAddress = ScriptAddress & "?" & Server.htmLencode (request.querystring) 'Obtenez l'adresse avec paramètre
Endire
Iflen (ScriptAddress)> 250THENScriptAddress = Left (sciptaddress, 250) & "..." 'pour le chemin d'interception, avec un maximum de 250 caractères
GetScriptName = ScriptAddress
Finition de fin
'================= RETOUR URL avec paramètres, utilisé lors du tri de plusieurs mots clés ==================.
«Paramètre de suppression: les paramètres qui doivent être supprimés de l'URL peuvent être multiples, veuillez les séparer avec des virgules au milieu.
FonctionEneyPeurlstr (Removelist)
ScriptAddress = cstr (request.servervariables ("script_name")) & "?" "Obtenez l'adresse actuelle et ajoutez le"? " symbole
M_itemurl = ""
Foreachm_itemInRequest.Querystring
IFinstr (Removelist, m_item) = 0Then
M_itemurl = m_itemurl & m_item & "=" & server.urlencode (request.querystring ("" & m_item & "")) & "&"
Endire