Fonction: convertir l'adresse IP en entier long
<%
FunctionClNGIP (ByValasNewip)
Diminueux
Dimlnindex
Divorant
Lnipary = Split (asnewip, ".", 4)
ForlNindex = 0to3
IfnotlNindex = 3Then
lnipary (lnindex) = lnipary (lnindex) * (256 ^ (3-lnindex))
Endire
lnresults = lnresults + lnipary (lnindex)
Suivant
Clngip = lnresults
Finition de fin
%>