功能：将IP地址转换为一个长整数。

<
函数的CLngIP（ByVal asnewip）
昏暗的lnresults
昏暗的lnindex
昏暗的lnipary
lnipary =分裂（asnewip，，
对于lnindex = 0到3
如果不lnindex = 3
LnIpAry（lnindex）= lnipary（lnindex）*（256 ^（3 lnindex））
最后如果
lnresults = lnresults + lnipary（lnindex）
下一个
clngip = lnresults
端功能
%>