纯真ip数据库转换为(access)使用图文教程
发布时间:2010-04-20 09:42:25 作者:佚名 我要评论
有时候默认的纯真ip数据库因为程序问题,需要转换格式等,这里就简单的给大家演示一下,转换方法。
(福利推荐:你还在原价购买阿里云服务器?现在阿里云0.8折限时抢购活动来啦!4核8G企业云服务器仅2998元/3年,立即抢购>>>:9i0i.cn/aliyun)
第一步:其实制作查询IP工具的时候,已经有PHP可以完美直接读取QQWry.Dat文件了,演示地址:http://tools.jb51.net/ip/index.php
源码下载地址 PHP IP查询系统(纯真IP数据库) v2.1
第二步:IPLook 1.5.exe就是可以将 QQWry.Dat 文件,转出txt文件的软件。(如果是看了程序员之家的文章来的朋友,下面的输出格式,需要选择IP以无符号整数表示)
第三步:将刚导出的txt文件转成数据库的工具
其它的就很方便修改了
下面是asp读取access的代码,注意字段的名称需要简单的修改下
<%'IP
Public Function address(sip)
Dim aConnStr,aConn,adb
Dim str1,str2,str3,str4
Dim num
Dim country,city
Dim irs,SQL
If IsNumeric(Left(sip,2)) Then
If sip="127.0.0.1" Then sip="192.168.0.1"
str1=Left(sip,InStr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str2=Left(sip,instr(sip,".")-1)
sip=Mid(sip,InStr(sip,".")+1)
str3=Left(sip,instr(sip,".")-1)
str4=Mid(sip,instr(sip,".")+1)
If isNumeric(str1)=0 or isNumeric(str2)=0 or isNumeric(str3)=0 or isNumeric(str4)=0 Then
Else
num=CLng(str1)*16777216+CLng(str2)*65536+CLng(str3)*256+CLng(str4)-1
adb = "ip.mdb"
aConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(adb)
Set AConn = Server.CreateObject("ADODB.Connection")
aConn.Open aConnStr
sql="select * from ip where startip <="&num&" and endip >="&num&""
Set irs=aConn.execute(sql)
If irs.EOF And irs.bof Then
local="尚未收录"
Else
local=irs("country")&irs("local")
End If
Set irs=Nothing
Set aConn = Nothing
SqlQueryNum = SqlQueryNum+1
End If
address=local
Else
address="未知"
End If
End Function
linkip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If linkip = "" Then linkip = Request.ServerVariables("REMOTE_ADDR")
ip=request.form("ip")
%>
<dd style="text-align:center"><span class="bot">+ + 您 的 IP : [ <%=linkip%> ] 来 自 : <%=address(linkip)%> + +
<%=Request.ServerVariables("HTTP_USER_AGENT")%></span>
<form method="post" target="_top" action="ip.asp" name="ipform" onsubmit="return checkIP();">
请输入要查询的IP:
<input type="text" name="ip" size="36" value="<%=ip%>" class=input> <input type="submit" value="点击查询" class=but></form>
<%
if request.ServerVariables("REQUEST_METHOD")="POST" then%>
<font color="#ff0000"><strong>查询结果 : <%=ip%> ==>> <%=ip%> ==>> <%=address(ip)%></strong></font>
上面四项依次显示的是 : 原始输入内容 <strong>==>></strong> 获取的IP地址 <strong>==>></strong> IP的物理位置
<%end if%>
文中所用工具打包下载 QQ IP数据库 纯真版 access(ip双精度)数据库制作工具
源码下载地址 PHP IP查询系统(纯真IP数据库) v2.1
第二步:IPLook 1.5.exe就是可以将 QQWry.Dat 文件,转出txt文件的软件。(如果是看了程序员之家的文章来的朋友,下面的输出格式,需要选择IP以无符号整数表示)
第三步:将刚导出的txt文件转成数据库的工具
其它的就很方便修改了
下面是asp读取access的代码,注意字段的名称需要简单的修改下
复制代码
代码如下:<%'IP
Public Function address(sip)
Dim aConnStr,aConn,adb
Dim str1,str2,str3,str4
Dim num
Dim country,city
Dim irs,SQL
If IsNumeric(Left(sip,2)) Then
If sip="127.0.0.1" Then sip="192.168.0.1"
str1=Left(sip,InStr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str2=Left(sip,instr(sip,".")-1)
sip=Mid(sip,InStr(sip,".")+1)
str3=Left(sip,instr(sip,".")-1)
str4=Mid(sip,instr(sip,".")+1)
If isNumeric(str1)=0 or isNumeric(str2)=0 or isNumeric(str3)=0 or isNumeric(str4)=0 Then
Else
num=CLng(str1)*16777216+CLng(str2)*65536+CLng(str3)*256+CLng(str4)-1
adb = "ip.mdb"
aConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(adb)
Set AConn = Server.CreateObject("ADODB.Connection")
aConn.Open aConnStr
sql="select * from ip where startip <="&num&" and endip >="&num&""
Set irs=aConn.execute(sql)
If irs.EOF And irs.bof Then
local="尚未收录"
Else
local=irs("country")&irs("local")
End If
Set irs=Nothing
Set aConn = Nothing
SqlQueryNum = SqlQueryNum+1
End If
address=local
Else
address="未知"
End If
End Function
linkip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If linkip = "" Then linkip = Request.ServerVariables("REMOTE_ADDR")
ip=request.form("ip")
%>
<dd style="text-align:center"><span class="bot">+ + 您 的 IP : [ <%=linkip%> ] 来 自 : <%=address(linkip)%> + +
<%=Request.ServerVariables("HTTP_USER_AGENT")%></span>
<form method="post" target="_top" action="ip.asp" name="ipform" onsubmit="return checkIP();">
请输入要查询的IP:
<input type="text" name="ip" size="36" value="<%=ip%>" class=input> <input type="submit" value="点击查询" class=but></form>
<%
if request.ServerVariables("REQUEST_METHOD")="POST" then%>
<font color="#ff0000"><strong>查询结果 : <%=ip%> ==>> <%=ip%> ==>> <%=address(ip)%></strong></font>
上面四项依次显示的是 : 原始输入内容 <strong>==>></strong> 获取的IP地址 <strong>==>></strong> IP的物理位置
<%end if%>
文中所用工具打包下载 QQ IP数据库 纯真版 access(ip双精度)数据库制作工具
相关文章
如何安装Yellow Leads Extractor免费版?网页抓取工具使用教程
Yellow Leads Extractor免费版安装教程!Yellow Leads Extractor 允许用户在浏览器中进行 100% 可定制的搜索,当您拥有此程序后,您无需做大量工作即可从黄页获取信息,您只2024-03-29怎么安装WordRake for Outlook免费版?WordRake安装步骤
如何免费安装WordRake?WordRake 提供超过 35,000 种编辑算法,以提高简洁性,WordRake专为法律、商业和政府作家设计,尊重合法有效的短语并将写作转换为简单的英语2024-03-22如何安装PDF Shaper Ultimate免费版?PDF工具箱免费版安装教程
怎么安装PDF Shaper Ultimate免费版?PDF Shaper Ultimate是一个强大的 PDF 编辑软件,它提供了一整套的 PDF 工具和实用程序,您可以很容易地分割和合并的PDF文件;提取PDF2024-03-21如何安装Splunk Enterprise Mac免费版?Splunk数据可视化分析软件安装教
如何免费安装Splunk Enterprise数据分析软件?Splunk Enterprise是一款简单好用的数据收集软件,Splunk mac最新版可收集、索引和利用所有应用程序、服务器和设备(物理、虚2024-03-20怎么安装TopoGrafix ExpertGPS免费版?ExpertGPS安装教程
TopoGrafix ExpertGPS是领先的GPS地图软件,可帮助大家下载全球航空照片和街道地图,USGS地形图和NOAA海图,保存地图 到您的硬盘驱动器以供离线使用,断开笔记本电脑的连接2024-03-19- 如何安装GERMES免费版?Astroprocessor GERMES旨在执行占星计算并表达结果分析,对于专业人士而言,该计划提供灵活且易于定制的工具,用于解决各种占星术,例如整改,长期和2024-03-15
如何设置Typora显示代码行号? Typora代码显示行号的设置技巧
刚用Typora的时候,发现居然不显示行号,如果代码很多不显示代码行号,看上去很乱,我们显示行号就行,详细请看下文介绍2024-03-12- 作为前端开发人员,我们经常需要为网站和应用程序添加文本内容,与传统的文本编辑器不同,富文本编辑器可让您轻松创建各种类型的文本内容,包括加粗字体、斜体字、框架、列2024-02-21
- Typora 是一款由 Abner Lee 开发的轻量级 Markdown 编辑器,该怎么安装Typora呢?下面我们就来看看详细的图文教程2024-02-21
如何用mathtype7? MathType7数学公式编辑器使用图文教程2024最新
在我们的日常工作中,经常会使用和编辑到数学公式,那么我们该怎么编辑数学公式呢?今天我们就来看看 MathType7的使用方法2024-02-21
最新评论