Função: converta o endereço IP em inteiro longo
<%
Functionclngip (byvalasnewip)
DIMLNRESULTS
DIMLNIndex
DIMLNIPARY
lnipary = split (asnewip, ".", 4)
Forlnindex = 0to3
Ifnotlnindex = 3then
lnipary (lnindex) = lnipary (lnindex)*(256^(3-lnindex))
Endif
lnResults = lnResults+lnipary (lnindex)
Próximo
Clngip = lnResults
Função final
%>