<%
'***********************************************************************************
'Obtenez l'adresse IP
'***********************************************************************************
FunctionUserrip ()
Diable
'Si le client utilise un serveur proxy, il doit utiliser la méthode ServerVariables ("http_x_forwarded_for")
GetClientip = request.servervariables ("http_x_forwarded_for")
IfGetClientIp = "" orisnull (getClientip) orisempty (getClientip) puis
'Si le client n'utilise pas de proxy, la méthode request.servervariables ("reote_addr") doit être utilisée
GetClientip = request.servervariables ("remise à distance")
Endire
UserIp = getClientip
Finition de fin
'***********************************************************************************
'Convertir l'adresse IP
'***********************************************************************************
Functioncip (SIP)
TIP = CSTR (SIP)
SIP1 = gauche (pointe, cint (instant (pointe, ".") - 1))
Tip = mid (pointer, cint (instr (pointer, ".") + 1))
sip2 = gauche (pointer, cint (instr (pointer, ".") - 1))
Tip = mid (pointer, cint (instr (pointer, ".") + 1))
sip3 = gauche (pointe, cint (instr (pointer, ".") - 1))
sip4 = mid (Tip, Cint (instr (point, ".") + 1))
CIP = Cint (SIP1) * 256 * 256 * 256 + Cint (SIP2) * 256 * 256 + Cint (SIP3) * 256 + Cint (SIP4)
Finition de fin
'***********************************************************************************
'La boîte de dialogue apparaît
'***********************************************************************************
Sublert (message)
Message = remplacer (message, "'", "/'")
Réponse.write ("<cript> alert ('" & message & "') </cript>")
Fin
'***********************************************************************************
'Retour à la page précédente, généralement utilisée après avoir jugé si les informations sont complètement soumises
'***********************************************************************************
Subgoback ()
Response.Write ("<Script> History.go (-1) </cript>")
Fin
'***********************************************************************************
'Rediriger une autre connexion
'***********************************************************************************
Subgo (URL)