手机
当前位置:查字典教程网 >软件教程 >其他软件工具 >纯真ip数据库转换为(access)使用图文教程
纯真ip数据库转换为(access)使用图文教程
摘要:第一步:其实制作查询IP工具的时候,已经有PHP可以完美直接读取QQWry.Dat文件了,演示地址:http://tools.jb51.ne...

第一步:其实制作查询IP工具的时候,已经有PHP可以完美直接读取QQWry.Dat文件了,演示地址:http://tools.jb51.net/ip/index.php

源码下载地址 PHP IP查询系统(纯真IP数据库) v2.1

第二步:IPLook 1.5.exe就是可以将 QQWry.Dat 文件,转出txt文件的软件。(如果是看了查字典教程网的文章来的朋友,下面的输出格式,需要选择IP以无符号整数表示)

纯真ip数据库转换为(access)使用图文教程1

第三步:将刚导出的txt文件转成数据库的工具

纯真ip数据库转换为(access)使用图文教程2

其它的就很方便修改了

下面是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><span>+ + 您 的 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>&nbsp;<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双精度)数据库制作工具

【纯真ip数据库转换为(access)使用图文教程】相关文章:

Tiled怎么使用 Tiled Map Editor瓦片地图编辑器使用教程

网络限速软件p2p终结者怎么用?p2p终结者使用图文教程

荣耀立方WS860s路由器完整刷机包怎么使用?荣耀立方刷机图文教程

巷道模拟驾驶系统怎么使用 巷道模拟驾驶系统使用图文教程

人生日历整点报时/定时关机功能使用教程

骨头百度相关搜索采集器图文使用教程

gsitecrawler 网站地图sitemap 生成 使用图文教程

VMware虚拟机winXP系统安装图文教程

建筑CAD的首选软件 天正建筑8.5安装破解图文教程

如何巧妙使用智能ABC输入法教程(附下载)

精品推荐
分类导航