ASP常用函数:CLngIP()

作用:把IP地址转为长整型

1. <%  
2. Function CLngIP(ByVal asNewIP)  
3.     Dim lnResults  
4.     Dim lnIndex  
5.     Dim lnIpAry  
6.     lnIpAry = Split(asNewIP, ".", 4)  
7.     For lnIndex = 0 To 3  
8.         If Not lnIndex = 3 Then  
9.             lnIpAry(lnIndex) = lnIpAry(lnIndex) * (256 ^ (3 - lnIndex))  
10.         End If  
11.         lnResults = lnResults + lnIpAry(lnIndex)  
12.     Next  
13.     CLngIP = lnResults  
14. End Function  
15. %>