ASP转化ip地址为长整型数字
来源:互联网 发布:windows平板不好用 编辑:程序博客网 时间:2024/04/26 09:22
<script type="text/javascript"><!--google_ad_client = "pub-4490194096475053";/* 内容页,300x250,第一屏 */google_ad_slot = "3685991503";google_ad_width = 300;google_ad_height = 250;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
先得到用户的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
%>
- ASP转化ip地址为长整型数字
- 转化ip地址为长整型数字
- 将长整型的数转化为ip地址形式
- 朝花夕拾:JAVA长整型转化为IP地址的方法
- uboot里将字符串IP转化为长整型类型
- unsigned long整型数字转化成IP地址的实现
- 长整型转化为字符串
- IP地址转换为整型数字的PHP方法、Asp方法和MsSQL方法、MySQL方法
- 位运算转换IP地址为长整型
- JAVA 长整型转换为IP地址的方法
- IP地址转化为数字表示
- 将IP地址转成长整型函数
- JAVA IP地址转成长整型方法
- 将IP地址转化为数字的形式的好处
- 用strtok函数将ip地址转化为数字
- ip地址转化为整数 整数转化为IP地址
- IP地址转化为文本
- 如何转换IP地址为整型
- asp数组随机排序
- 一天三面
- Ubuntu8.04系列三-系统安全篇
- fso删除当前文件夹下所有的内容
- 关于script的dictionary对象的用法
- ASP转化ip地址为长整型数字
- InStr() asp中的函数
- 郁闷,腰不行了
- asp生成某一范围内的随机数
- 使用 D-BUS 连接桌面应用程序
- ASP截取字符串函数
- 搭建广域网模拟器nistnet.2.0.12步骤
- 根据IP地址自动判断转向分站的代码
- csdn也sns了