関数: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
エンド機能
%>