ASP轉化ip地址為長整型數字

有時候我們會在頁面上顯示用戶的所在地區，這個原理是：先得到用戶的IP，然後去查詢將IP轉換成一個數值，最後去查這個數值所在的范圍，來得到用戶所在的地方。
IP轉換成數值的方法：
假設IP是192.168.0.1
192*255*255*255+168*255*255+0*255+1
結果就是要得到的數值。

將ip地址轉換為長整型

<% 
Function CLngIP(ByVal asNewIP) 
Dim lnResults 
Dim lnIndex 
Dim lnIpAry 
lnIpAry = Split(asNewIP, ".", 4) 
For lnIndex = 0 To 3 
If Not lnIndex = 3 Then 
lnIpAry(lnIndex) = lnIpAry(lnIndex) * (256 ^ (3 - lnIndex)) 
End If 
lnResults = lnResults + lnIpAry(lnIndex) 
Next 
CLngIP = lnResults 
End Function 
%>


逆函數

<% 
Function CStrIP(ByVal anNewIP) 
Dim lsResults 
Dim lnTemp 
Dim lnIndex 
For lnIndex = 3 To 0 Step -1 
lnTemp = Int(anNewIP / (256 ^ lnIndex)) 
lsResults = lsResults &#38; lnTemp &#38; "." 
anNewIP = anNewIP - (lnTemp * (256 ^ lnIndex)) 
Next 
lsResults = Left(lsResults, Len(lsResults) - 1) 
CStrIP = lsResults 
End Function 
%>