<%
''Obtenir l'adresse du visiteur
ip=Request.ServerVariables(REMOTE_ADDR)
''La plage d'adresses IP autorisée est 10.0.0.0~10.68.63.255
permitip1=10.0.0.0
permitip2=10.68.10.71
réponse.writecheckip(ip,allowip1,allowip2)
fonctioncheckip(ip,allowip1,allowip2)
dimcheck(4)
checkip = faux
ipstr=split(ip,.)
allow1=split(allowip1,.)
allow2=split(allowip2,.)
ifcint(allow1(0))>cint(allow2(0))then'' détermine si le segment d'adresse IP est légal
réponse.writeAccès interdit
fonction de sortie
fin
fori=0toubound(ipstr)
ifcint(allow1(i))<cint(allow2(i))alors
ifcint(allow1(i))=cint(ipstr(i))alors
vérifier(i)=vrai
checkip = vrai
sortiepour
autre
ifcint(ipstr(i))<cint(allow2(i))alors
vérifier(i)=vrai
checkip = vrai
sortiepour
autre
ifcint(ipstr(i))>cint(allow2(i))puis
vérifier(i)=faux
checkip = faux
sortiepour
autre
vérifier(i)=vrai
checkip = vrai
fin
fin
fin
autre
ifcint(allow1(i))>cint(ipstr(i))orcint(allow1(i))<cint(ipstr(i))then
vérifier(i)=faux
checkip = faux
ifi<>ubound(ipstr)alors
sortiepour
fin
autre
vérifier(i)=vrai
fin
fin
suivant
if(check(0)=trueandcheck(1)=trueandcheck(2)=trueandcheck(3)=false)and(cint(allow2(2))>cint(ipstr(2)))then
checkip = vrai
fin
fonction finale
%>
Extrait du blog de WebShell