Fungsi: Konversi alamat IP menjadi bilangan bulat panjang
<%
Functionclngip (byvalasnewip)
DIMLNRESULTS
DIMLNINDEX
Dimlnipary
lnipary = split (asnewip, ".", 4)
Forlnindex = 0to3
IFNOTLNINDEX = 3then
lnipary (lnindex) = lnipary (lnindex)*(256^(3-lnindex)))
Endif
LnResult = lnResult+lnipary (lnindex)
Berikutnya
Clngip = lnResults
Fungsi endfungsi
%>