繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP转化ip地址为长整型数字
- ASP
- ASP 编程中20个非常有用的例子（一）
- ASP 编程中20个非常有用的例子（二）
- ASP基础教程：ADO存取数据库时如何分页显示
- ASP基础教程：其它的ASP常用组件
- ASP基础教程：学习ASP中子程序的应用
- ASP基础教程之ASP程序对Cookie的处理
- ASP基础教程之实例学习ASP Response 对象
- ASP基础教程之ASP AdRotator 组件的使用
- ADO初学者教程：ADO 通过GetString()加速脚本
- 初学者来认识OLEDB和ODBC的区别
- ASP常见数学函数 Abs Atn Cos 等详细详解
- VBScript新手入门初学教程：VBScript简介
- 有用的无声递交表单的客户端函数
- Windows 2003 安装设置iis
- ASP技巧实例：几行代码解决防止表单重复提交
- ASP读sql数据时出现乱码问题的解决方法
- ASP技巧实例：使用ASP记录在线用户的数量
- ASP技巧实例：关于对表单操作的程序
- ASP技巧实例：ASP实现最简洁的多重查询的解决方案
- ASP实例：利用缓存提高数据显示效率
ASP转化ip地址为长整型数字
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-08-14 浏览: 72 ::
收藏到网摘: n/a
有时候我们会在页面上显示用户的所在地区，这个原理是：先得到用户的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
%>
评论 (0) All
