转化ip地址为长整型数字

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

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. lnResultslnResults = lnResults + lnIpAry(lnIndex) 
12. Next 
13. CLngIP = lnResults 
14. End Function 
15. %> 

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>