Funktion: Umwandeln Sie die IP -Adresse in lange Ganzzahl
<%
FunktionClngip (ByvalasNewip)
Dimlnresults
Dimlnindex
Dimlnipary
lniPary = split (Asnewip, ".", 4)
Forlnindex = 0to3
Ifnotlnindex = 3Then
lniPary (lnindex) = lnipary (lnindex)*(256^(3-lnindex))
Endif
lnresults = lnresults+lniPary (lnindex)
Nächste
Clngip = lnresults
Endfunktion
%>