関数：IPアドレスを長い整数に変換します
<％
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）
次
clngip = lnresults
エンド機能
％>