ASP常用函数:CStrIP()

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

1. <%  
2. Function CStrIP(ByVal anNewIP)  
3.     Dim lsResults  
4.     Dim lnTemp  
5.     Dim lnIndex  
6.     For lnIndex = 3 To 0 Step -1  
7.         lnTemp = Int(anNewIP / (256 ^ lnIndex))  
8.         lsResults = lsResults & lnTemp & "."  
9.         anNewIP = anNewIP - (lnTemp * (256 ^ lnIndex))  
10.     Next  
11.     lsResults = Left(lsResults, Len(lsResults) - 1)  
12.     CStrIP = lsResults  
13. End Function  
14. %>