Función: Convierta la dirección IP en entero largo
<%
FunctClngip (byvalasnewip)
Dimlnresults
Dimlnindex
Dimlnipary
lnipary = split (asnewip, ".", 4)
Forlnindex = 0to3
Ifnotlnindex = 3
lnipary (lnindex) = lnipary (lnindex)*(256^(3-lnindex))
Endif
lnResults = lnResults+lnipary (lnindex)
Próximo
Clngip = lnResults
Función final
%>