ASP转化ip地址为长整型数字

最新推荐文章于 2021-01-20 00:35:40 发布

转载最新推荐文章于 2021-01-20 00:35:40 发布 · 1.6k 阅读

文章标签：

#asp #function

ASP 专栏收录该内容

176 篇文章

订阅专栏

本文介绍了一种将IP地址转换为数值的方法，并通过该数值确定地理位置的技术。首先讲解了如何将IP地址转换成长整型数值，接着介绍了如何将长整型数值逆向转换回IP地址。这些技术对于实现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 & lnTemp & "."
anNewIP = anNewIP - (lnTemp * (256 ^ lnIndex))
Next
lsResults = Left(lsResults, Len(lsResults) - 1)
CStrIP = lsResults
End Function
%>