J'ai écrit le code d'ASP pour prendre la vraie propriété intellectuelle, et il n'y a pas d'agent, d'agent de premier niveau ou multi-niveaux avec des tests environnementaux.
Fonction Checkip (CheckSTring) 'Utiliser régulièrement pour déterminer si l'IP est légal
DIM RE1
Définir RE1 = New Regexp
RE1.Pattern = ^ [0-9] {1,3}.
Re1.global = false
Re1.ignorecase = false
Checkip = re1.test (vérification)
Définir RE1 = rien
fonction finale
Fonction get_cli_ip () 'Pour prendre la fonction IP réelle, d'abord http_client_ip puis http_x_forwarded_for puis distant_addr
DIM CLIENT_IP
si Checkip (request.servervariables (http_client_ip)) = true alors
get_cli_ip = checkip (request.servervariables (http_client_ip))
autre
MyArray = Split (request.servervariables (http_x_forwarded_for) ,,)
Si ubound (MyArray)> = 0 alors
client_ip = trim (MyArray (0))
Si Checkip (client_ip) = true alors
get_cli_ip = client_ip
fonction de sortie
terminer si
terminer si
get_cli_ip = request.servervariables (redret_addr)
terminer si
fonction finale