Функция: преобразовать IP -адрес в длительное целое число
<%
FunctionClngip (byvalasnewip)
Dimlnresults
Dimlnindex
Dimlnipary
lnipary = split (asnewip, ".", 4)
Forlnindex = 0to3
Ifnotlnindex = 3then
lnipary (lnindex) = lnipary (lnindex)*(256^(3-lnindex)))
Эндиф
lnresults = lnresults+lnipary (lnindex)
Следующий
Clngip = lnresults
Конечная функция
%>