作用:把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)
Next
CLngIP=lnResults
EndFunction
%>