快速珊瑚虫IP数据库转MS SQL2005 - Clear in CNRUI
Clear in CNRUI
RUI Company 成长之路
- 首页
- 个人档案
- 留言本
- AJAX资源
- SXNA
- Tag标签
- 在线工具
- CSS在线工具
快速珊瑚虫IP数据库转MS SQL2005
作者:Clear 日期:2007-09-19
字体大小: 小 中 大
在幻想曲BLOG上看到不少朋友说，最近服务器上的IP数据好像不是很准确，于是重新做了一个新的，不少朋友可能需要这个数据库，因为文件太大的缘故，所以直接提供快速转换方法。
首先需要准备：
1.然后打开珊瑚虫IP数据库自带的 ShowIP.exe，选择解压，另存一个TXT文件：
![]()
2.用EiditPlus打开这个文本拖动到最后几行，删除多余的东西（千万别试图用默认的文本编辑器打开，内存小的话你会死的很惨）：
![]()
3.打开Access（为什么不直接到SQL里面导入数据呢？因为会出现文本格式错误，所以先曲线救国吧）：
![]()
4.选择刚才解压出来的文本文件：
![]()
5.按下面操作，不做提示的直接下一步：
![]()
![]()
![]()
7.打开MS SQL2005，新建一个数据库，名字自己定，以下代码都使用[BasName]代替你新建数据库名称。
8.继续如下操作：
![]()
![]()
完成执行下面的存储过程：
![程序代码]()
程序代码
-- 建立IP转换到十进制方法
USE [BasName]
GO
/****** 对象: UserDefinedFunction [dbo].[X16ToDe] 脚本日期: 09/19/2007 13:56:15 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author:
-- Create date:
-- Description: 转换IP为十进制
-- =============================================
Create FUNCTION [dbo].[X16ToDe]
(
@Old_IP nvarchar(15)
)
RETURNS numeric
AS
BEGIN
DECLARE
@CharIndex INT,
@CurrPoint INT,
@SingleValue NVARCHAR(5),
@Cache numeric
SET @CharIndex = 1
SET @CurrPoint = CHARINDEX('.',@Old_IP,@CharIndex)
SET @SingleValue = SUBSTRING(@Old_IP,@CharIndex,@CurrPoint - @CharIndex)
SET @Cache = cast(@SingleValue as numeric)*16777216
SET @CharIndex = @CurrPoint + 1
SET @CurrPoint = CHARINDEX('.',@Old_IP,@CharIndex)
SET @SingleValue = SUBSTRING(@Old_IP,@CharIndex,@CurrPoint - @CharIndex)
SET @Cache = @Cache + cast(@SingleValue as numeric)*65536
SET @CharIndex = @CurrPoint + 1
SET @CurrPoint = CHARINDEX('.',@Old_IP,@CharIndex)
SET @SingleValue = SUBSTRING(@Old_IP,@CharIndex,@CurrPoint - @CharIndex)
SET @Cache = @Cache + cast(@SingleValue as numeric)*256
SET @CharIndex = @CurrPoint + 1
SET @SingleValue = SUBSTRING(@Old_IP,@CharIndex,len(@Old_IP)- @CharIndex + 1)
SET @Cache = @Cache + cast(@SingleValue as numeric)
RETURN @Cache;
END
![程序代码]()
程序代码
-- 建立十进制新表
USE [BasName]
GO
/****** 对象: Table [dbo].[IP_Real] 脚本日期: 09/19/2007 14:01:31 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
Create TABLE [dbo].[IP_Real](
[startip] [numeric](18, 0) NULL,
[endip] [numeric](18, 0) NULL,
[country] [nvarchar](50) NULL,
[local] [nvarchar](200) NULL
) ON [PRIMARY]
这一步你可以自己按照你的情况来做，我是为了加快数据库索引的速度，所以将IP全部转换为十进制，存到一个新表里面。
![程序代码]()
程序代码
-- 格式化省份
Update [BasName].[dbo].[IP]
SET [country] = replace([country],N'省',N'省 ')
-- 删除CZ88.NET
Update [BasName].[dbo].[IP]
SET [country] = replace([country],N'CZ88.NET',N'')
-- 将地区提出
Update [BasName].[dbo].[IP]
SET [local] = SUBSTRING([country],CHARINDEX(' ',[country],1)+1,len([country]))
-- 存为国家或省份
Update [BasName].[dbo].[IP]
SET [country] = SUBSTRING([country],0,CHARINDEX(' ',[country],1))
-- 去处前后导空格
Update [BasName].[dbo].[IP]
SET [country] = Rtrim(Ltrim([country]))
,[local] = Rtrim(Ltrim([local]))
-- 转换IP为十进制，并写入新表
Insert INTO [BasName].[dbo].[IP_Real]
([startip]
,[endip]
,[country]
,[local])
Select dbo.X16ToDe([startip])
,dbo.X16ToDe([endip])
,[country]
,[local]
FROM [BasName].[dbo].[IP]
order by [startip] ASC
最后测试一下看看：
![程序代码]()
程序代码
-- 测试
DECLARE @IPNumber numeric
set @IPNumber = dbo.X16ToDe('219.140.31.91')
Select [startip]
,[endip]
,[country]
,[local]
FROM [BasName].[dbo].[IP_Real]
Where [startip] <= @IPNumber and [endip] >= @IPNumber
基本所有的转换最多3分钟完成，比自己写应用程序转换要快的多。
首先需要准备：
- 最新的珊瑚虫IP数据库 http://update.cz88.net/soft/qqwry.rar
- Microsoft Office Access 2003
- EiditPlus
- MS SQL2005
1.然后打开珊瑚虫IP数据库自带的 ShowIP.exe，选择解压，另存一个TXT文件：
2.用EiditPlus打开这个文本拖动到最后几行，删除多余的东西（千万别试图用默认的文本编辑器打开，内存小的话你会死的很惨）：
3.打开Access（为什么不直接到SQL里面导入数据呢？因为会出现文本格式错误，所以先曲线救国吧）：
4.选择刚才解压出来的文本文件：
5.按下面操作，不做提示的直接下一步：
7.打开MS SQL2005，新建一个数据库，名字自己定，以下代码都使用[BasName]代替你新建数据库名称。
8.继续如下操作：
完成执行下面的存储过程：
-- 建立IP转换到十进制方法
USE [BasName]
GO
/****** 对象: UserDefinedFunction [dbo].[X16ToDe] 脚本日期: 09/19/2007 13:56:15 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author:
-- Create date:
-- Description: 转换IP为十进制
-- =============================================
Create FUNCTION [dbo].[X16ToDe]
(
@Old_IP nvarchar(15)
)
RETURNS numeric
AS
BEGIN
DECLARE
@CharIndex INT,
@CurrPoint INT,
@SingleValue NVARCHAR(5),
@Cache numeric
SET @CharIndex = 1
SET @CurrPoint = CHARINDEX('.',@Old_IP,@CharIndex)
SET @SingleValue = SUBSTRING(@Old_IP,@CharIndex,@CurrPoint - @CharIndex)
SET @Cache = cast(@SingleValue as numeric)*16777216
SET @CharIndex = @CurrPoint + 1
SET @CurrPoint = CHARINDEX('.',@Old_IP,@CharIndex)
SET @SingleValue = SUBSTRING(@Old_IP,@CharIndex,@CurrPoint - @CharIndex)
SET @Cache = @Cache + cast(@SingleValue as numeric)*65536
SET @CharIndex = @CurrPoint + 1
SET @CurrPoint = CHARINDEX('.',@Old_IP,@CharIndex)
SET @SingleValue = SUBSTRING(@Old_IP,@CharIndex,@CurrPoint - @CharIndex)
SET @Cache = @Cache + cast(@SingleValue as numeric)*256
SET @CharIndex = @CurrPoint + 1
SET @SingleValue = SUBSTRING(@Old_IP,@CharIndex,len(@Old_IP)- @CharIndex + 1)
SET @Cache = @Cache + cast(@SingleValue as numeric)
RETURN @Cache;
END
-- 建立十进制新表
USE [BasName]
GO
/****** 对象: Table [dbo].[IP_Real] 脚本日期: 09/19/2007 14:01:31 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
Create TABLE [dbo].[IP_Real](
[startip] [numeric](18, 0) NULL,
[endip] [numeric](18, 0) NULL,
[country] [nvarchar](50) NULL,
[local] [nvarchar](200) NULL
) ON [PRIMARY]
这一步你可以自己按照你的情况来做，我是为了加快数据库索引的速度，所以将IP全部转换为十进制，存到一个新表里面。
-- 格式化省份
Update [BasName].[dbo].[IP]
SET [country] = replace([country],N'省',N'省 ')
-- 删除CZ88.NET
Update [BasName].[dbo].[IP]
SET [country] = replace([country],N'CZ88.NET',N'')
-- 将地区提出
Update [BasName].[dbo].[IP]
SET [local] = SUBSTRING([country],CHARINDEX(' ',[country],1)+1,len([country]))
-- 存为国家或省份
Update [BasName].[dbo].[IP]
SET [country] = SUBSTRING([country],0,CHARINDEX(' ',[country],1))
-- 去处前后导空格
Update [BasName].[dbo].[IP]
SET [country] = Rtrim(Ltrim([country]))
,[local] = Rtrim(Ltrim([local]))
-- 转换IP为十进制，并写入新表
Insert INTO [BasName].[dbo].[IP_Real]
([startip]
,[endip]
,[country]
,[local])
Select dbo.X16ToDe([startip])
,dbo.X16ToDe([endip])
,[country]
,[local]
FROM [BasName].[dbo].[IP]
order by [startip] ASC
最后测试一下看看：
-- 测试
DECLARE @IPNumber numeric
set @IPNumber = dbo.X16ToDe('219.140.31.91')
Select [startip]
,[endip]
,[country]
,[local]
FROM [BasName].[dbo].[IP_Real]
Where [startip] <= @IPNumber and [endip] >= @IPNumber
基本所有的转换最多3分钟完成，比自己写应用程序转换要快的多。
[本日志由 Clear 于 2007-09-19 05:02 PM 编辑]
![]()
文章来自: 本站原创
![]()
引用通告: 查看所有引用 | 我要引用此文章
![]()
Tags: 珊瑚虫 珊瑚虫 IP IP 数据库 数据库 SQL2005 SQL2005 转换 转换
评论: 6 | 引用: 0 | 查看次数:
-
数据库名称错误,检查一下.
首先感谢作者分享,这方法在一些环境下使用非常实用!
请问是怎么原因?
请问是怎么原因?
消息 208，级别 16，状态 1，行 2
对象名 ' B a s N a m e . d b o . I P ' 无效。
求助!!
对象名 ' B a s N a m e . d b o . I P ' 无效。
求助!!
我在网上下了个在线查询ip的代码,我看到里面是直接毒DAT的,读取的方法和读ACCESS一样,于是我就把Dat后缀改mdb了,就直接得到了,但我下纯真的,发现同样是Dat后缀,可大小差很多,我下的那个17M,纯真的6.49,改纯真后缀,打开出错,他们什么区别呢?
说的有道理，我来写一个，这样就不用每次转数据库了。
不推荐用这种方法,可以直接写程序读DAT中的数据,DZ和ECSHOP都是这样做的,速度更快
发表评论
| 昵 称: | |
| 密 码: | 游客发言不需要密码. |
| 内 容: |
正在加载编辑器...
|
| 验证码: | |
| 选 项: | 禁止表情转换 禁止自动转换链接 禁止自动转换关键字 |
| 虽然发表评论不用注册，但是为了保护您的发言权，建议您注册帐号. | |