如何从IP获知其所在地?
来源:asp之家 发布时间:2009-11-15 19:54:00
程序开始:
<%
Server.ScriptTimeout = &HE10 '&H3C
Response.Buffer = ("S.F." = "S.F.")
Dim IpSearch
Set IpSearch = New clsIpSearch
' 建立类对象
IpSearch.ConnectionString="DRIVER={SQLServer};SERVER=hostname:UID=sa;PWD=;DATABASE=Ip"
' 建立SQL Server的IP地址库的连接,可用默认连接,但要保证wry.mdb(为什么用这个数据库,见后)数据库在同级目录
IpSearch.IpAddress = &H7F & "." & &H00 & "." & &H00 & "." & &H01
' 设置要查询的IP,默认为当前来访者,此处是127.0.0.1
If Request.QueryString("IP")<>"" Then
If IpSearch.Valid_IP(Request.QueryString("IP")) Then
IpSearch.IpAddress = Trim(Request.QueryString("IP"))
End If
End If
Response.Write ("所在地:" & IpSearch.GetIpAddrInfo() & "<br>")
' 取得IP所在地, 三个反馈值以逗号分割.格式:所在国家或地区,当地上网地区,提供正确IP地址信息的用户名
Response.Write ("IP:" & IpSearch.IpAddress & "<br>")
' 取出IP地址
Response.Write ("IP转换为数值:" & IpSearch.CLongIP(IpSearch.IpAddress) & "<br>")
' 将IP地址转换为长整型数值
Response.Write ("数值还原成IP:" & IpSearch.CStringIP(IpSearch.CLongIP(IpSearch.IpAddress)) & "<br>")
' 将IP地址转换为长整型数值后还原成IP字符串
Response.Write ("<hr>")
%>
<%
Class clsIpSearch
' 类Public ConnectionString
Public IpAddress
Private DBConn
' 连接对象,模块级声明
Private Sub Class_initialize()
' 类初始化
ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("wry.mdb")
' 这里建立的是通过“数据转换方法一”生成的mdb 库文件
IpAddress = GetClientIP()
' 取访问者的IP
Set DBConn = OpenConnection()
End Sub
Private Sub Class_Terminate()
ConnectionString = Null
' ADO访问数据库连接说明
IpAddress = Null
DBConn.Close
Set DBConn = Nothing
' 类注销
End Sub
Private Function OpenConnection()
Dim tmpConn
Set tmpConn=Server.CreateObject("ADODB.Connection")
tmpConn.Open ConnectionString
Set OpenConnection=tmpConn
Set tmpConn=nothing
' 建立一个连接
End Function
Private Function SQLExeCute(strSql)
Dim Rs
Set Rs=DBConn.ExeCute(strSQL)
Set SQLExeCute = Rs
Set Rs=nothing
' 执行一个SQL命令,并返回一个数据集对象
End Function
Public Function Valid_IP(ByVal IP)
' IP地址效验, IP为数值或字符串
Dim i
Dim dot_count
Dim test_octet
Dim byte_check
IP = Trim(IP)
If Len(IP) < &H08 Then
' 确认IP长度
Valid_IP = False
' 显示错误提示
Exit Function
End If
i = &H01
dot_count = &H00
For i = 1 To Len(IP)
If Mid(IP, i, &H01) = "." Then
' 增加点的记数值,并且设置text_octet 值为空
dot_count = dot_count + &H01
test_octet = ""
If i = Len(IP) Then
Valid_IP = False
' 如果点在结尾则IP效验失败,显示错误提示
Exit Function
End If
Else
test_octet = test_octet & Mid(IP, i, &H01)
On Error Resume Next
' 使用错误屏蔽检查数据段值是否正确
byte_check = CByte(test_octet)
' 强制类型转换,
If (Err) Then
' 如转换失败就通过检查Err是否为真来确认
Valid_IP = False
' 强制类型转换产生错误,如果所取段值的数据是数值或数据长度大于&HFF,则其类型不为byte,IP地址为假
Exit Function
End If
End If
Next
If dot_count <> &H03 Then
' 检查是否有3个小数点
Valid_IP = False
Exit Function
End If
' 全部通过,则该IP正确
Valid_IP = True
End Function
Public Function CStringIP(ByVal anNewIP)
' 转换一个数值为IP ,anNewI为要还原为IP地址的数值
Dim lsResults
Dim lnTemp
Dim lnIndex
For lnIndex = &H03 To &H00 Step -&H01
lnTemp = Int(anNewIP / (&H100 ^ lnIndex))
lsResults = lsResults & lnTemp & "."
anNewIP = anNewIP - (lnTemp * (&H100 ^ lnIndex))
Next
lsResults = Left(lsResults, Len(lsResults) - &H01)
CStringIP = lsResults
End function
Public Function CLongIP(ByVal asNewIP)
' 转换IP地址字符串到数值
Dim lnResults
Dim lnIndex
Dim lnIpAry
lnIpAry = Split(asNewIP, ".", &H04)
For lnIndex = &H00 To &H03
if Not lnIndex = &H03 Then
lnIpAry(lnIndex) = lnIpAry(lnIndex) * (&H100 ^ (&H03 - lnIndex))
End if
lnResults = lnResults + lnIpAry(lnIndex)
Next
CLongIP = lnResults
End function
Public Function GetClientIP()
' 取Client IP函数
dim uIpAddr
uIpAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If uIpAddr = "" Then uIpAddr = Request.ServerVariables("REMOTE_ADDR")
GetClientIP = uIpAddr
uIpAddr = ""
End function
Public function GetIpAddrInfo()
' 读取IP所在地的信息
Dim tmpIpAddr
Dim IpAddrVal
Dim ic,charSpace
Dim tmpSQL
charSpace = ""
IpAddrVal = IpAddress
If Not Valid_IP(IpAddrVal) Then
GetIpAddrInfo =NULL
Exit Function
End If
' 将IP字符串分成数组进行处理
tmpIpAddr = Split(IpAddrVal,".",-1,1)
For ic = &H00 To Ubound(tmpIpAddr)
' 补位,保证每间隔3个字符
Select Case Len(tmpIpAddr(ic))
Case &H01 :charSpace = "00"
Case &H02 :charSpace = "0"
Case Else :charSpace = ""
End Select
tmpIpAddr(ic) = charSpace & tmpIpAddr(ic)
Next
IpAddrVal = tmpIpAddr(&H00) & "." & tmpIpAddr(&H01) & "." & tmpIpAddr(&H02) & "." & tmpIpAddr(&H03)
' 针对追捕软件数据库中的数据存放结构,具体查询过程如下:
tmpSQL = "select * from wry where (startIP<='" & IpAddrVal & "') and (ENDIP>='" & IpAddrVal & "') " & _
" and left(startIP," & Len(tmpIpAddr(&H00)) & ") = '" & tmpIpAddr(&H00) & "'" & _
" and left(endip," & Len(tmpIpAddr(&H00)) & ")='" & tmpIpAddr(&H00) & "'"
charSpace = GetDbIpInfo(tmpSQL)
If Len(charSpace)=&H00 Then
GetIpAddrInfo = NULL
Else
GetIpAddrInfo = charSpace
End If
charSpace = Null
tmpSQL = Null
end function
Private function GetDbIpInfo(byVal sql)
' 返回数据查询的字符串
Dim OpenIpSearchRs
Dim result
Set OpenIpSearchRs = SQLExeCute(sql)
If Not OpenIpSearchRs.Eof Then
result = NullToSpace(OpenIpSearchRs("COUNTRY")) & "," & NullToSpace(OpenIpSearchRs("LOCAL")) & "," &
NullToSpace(OpenIpSearchRs("THANK"))
Else
result = NULL
End If
OpenIpSearchRs.Close
Set OpenIpSearchRs=Nothing
GetDbIpInfo = result
End function
Private function NullToSpace(byVal rsStr)
' 将数据库空记录转换为空字符
If isNull(rsStr) Then
NullToSpace = ""
Else
NullToSpace = Trim(rsStr)
End If
End Function
End Class
%>
好了,长出一口气,让我们轻松轻松,欣赏成功吧。
追捕软件IP数据库转换方法:
先把wry.dll 文件名称改为wry.dbf,再用下列方法转换:
方法一:
1、在Access打开菜单中选择打开的文件类型为dBASE 5(*.dbf);
2、打开wry.dbf,选择工具菜单下的数据库实用工具/转换数据库;
3、选择转换为Access 97格式,保存文件,即可转换为MDB数据库格式。
方法二:
1、使用SQL Server。在ODBC 控制面板中设置指向wry.dbf的DSN。;
2、使用导入和导出数据向导,选择其正确的驱动程序和要导入的库即可。
猜你喜欢
- 要读懂这些代码主要是要了解ASP中操作二进制数据的对象ADODB.Stream!本程序主要用的就是Adodb.Stream,如果你有这个基础
- 大家在写按钮(input、button)的时候会发现在 IE 下:随着字数的增多,两边的间距也会越来越大。在 WIN 的XP 风格下,当字数
- 有很多种方法来实现图片的预加载,通常大部分使用Javascript让事情滚动。不要再受Javascript预载的束缚了吧,用CSS你就可以毫
- 作者:Henny Swan / co-lead of WaSP ILG译者:JunChen / member of WaSP ILG原文:h
- 网页路径问题可以说是在页面设计或程序中比较典型的问题,处理得不好会给你的带来很大的麻烦,如何才能彻底解决路径问题呢!asp之家为你特别准备了
- 导航标签彼此互斥、完全穷尽。导航标签其实就是一种文字表达形式,我们用标签来代表网站上的各种分类信息。比如“联系我们”这个标签,代表的内容通
- cooper谈到用户的视觉路径一般是:从上到下,从左到右。好的视觉设计路径应该是顺应这样的用户习惯,糟糕的设计会让用户无所适从,焦点到处都是
- 代码如下:---这是一个人事系统中的示例,要求记录一下员工的缺勤情况 ---1.要在表中记录一下缺勤计分,是对经常缺勤者的一种处
- 生成静态页的方法有很多种,我比较喜欢用xmlhttp的方法生成,因为我不用考虑很多东西,我只要把动态的asp页面编写好就行了。<% s
- 在ASP编程中,身份认证可以说是常要用到的。但怎么样才能做到认证的安全呢?表单提交页面:sub.htm  
- Microsoft SQL Server 2000 能提供超大型系统所需的数据库服务。大型服务器可能有成千上万的用户同时连接到 SQL Se
- 看了一个月的文档和资料以后,终于让我参与到项目中来了,哈哈,痛快!虽然只是让我解决一个小问题,不过有活干就是好。在写代码的过程中遇到了一个小
- 这份代码不是那种时间没有改变也输出innerHTML的高消耗代码。innerHTML和style的改变是非常消耗游览器性能的,如果你将来希望
- 用Dreamweaver制作网页时,如果插入的图片、GIF动画、声音、视频或链接的网页是用中文命名的,在用IE浏览器浏览时可能显示不出来。以
- 最近一直在研究 Javascript 相关的技术。在《Javascript 高级程序设计》有篇章节着重阐述了优化 Javascri
- 在线阅读与印刷品阅读有着很大的不同,原因之一是屏幕会导致注意力问题。文字很难成为重点,而闪烁的横幅、明亮的图片又更加会转移对实际的博客内容的
- 中文字体设计发展到现在,风格越来越多样化,特别是在广告(美术)字体方面,因为字数少 局限小,优秀的作品层出不穷,比较突出的应用在标志设计唱片
- 首先在我们进行信息系统的开发的时候,数据库的应用必不可少,对于一个企业级别的数据库应用很少是只使用一块磁盘的,很多都是使用RAID磁盘阵列,
- 区别IE6与FF:background:orange;*background:blue;区别IE6与IE7:background:green
- 最近要做一个网站需要用到天气预报,本来是想找到API,自己写一个自己的天气预报小程序的,没有成功,只好去找现成的代码调用。经过测