Filtrer et restreindre les fonctions pour IP dans asp

J'ai examiné certaines fonctions de restriction IP et je les ai trouvées trop compliquées. J’ai donc essayé d’en écrire un, qui est relativement simple. Internautes, veuillez vous référer à ce guide. Merci! ~

Boîte de copie de code
<% '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.255allowip1="10.0.0.0"allowip2="10.68.10.71"response.write checkip ( " .") if cint(allow1(0))>cint(allow2(0)) then 'Juge si le segment d'adresse IP est une réponse légale. écrivez "Le segment d'adresse IP est erroné !" quittez la fonction si pour i=0 à ubound(ipstr ) si cint(allow1(i))<cint(allow2(i)) alors si cint(allow1(i))=cint(ipstr(i)) alors check(i)=true checkip=true quittez pour else si cint( ipstr(i))<cint(allow2(i)) alors check(i)=true checkip=true exit pour sinon si cint(ipstr(i))>cint(allow2(i)) alors check(i) =false checkip =faux sortie pour else check(i)=true checkip=true end if end if end if else if cint(allow1(i))>cint(ipstr(i)) ou cint(allow1(i))<cint (ipstr( i)) then check(i)=false checkip=false if i<>ubound(ipstr) then exit for end if else check(i)=true end if end if next if (check(0)=true et check(1 )=true et check(2)=true et check(3)=false) et (cint(allow2(2))>cint(ipstr(2))) alors checkip=true end if end function %>