<%
'*******************************
'Fonction: userIp ()
'Paramètres: aucun
'Auteur: Alixi
'Date: 2007/7/12
'Description: Obtenez l'adresse IP du client
'Exemple: <% = userIp ()%>
'*******************************
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 la fonction d'adresse IP
La copie de code est la suivante:
<%
'*******************************
'Fonction: CIP (SIP)
'Paramètres: SIP, adresse IP
'Auteur: Alixi
'Date: 2007/7/12
'Description: Convertir la fonction d'adresse IP
'Exemple: <% = CIP ("219.16.73.120")%>
'*******************************
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
%>