珊瑚虫IP数据库转 SQL 2005 纯真IP转sql

在幻想曲BLOG上看到不少朋友说，最近服务器上的IP数据好像不是很准确，于是重新做了一个新的，不少朋友可能需要这个数据库，因为文件太大的缘故，所以直接提供快速转换方法。

首先需要准备：

• 最新的珊瑚虫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:        <Author,,Name>
--  Create date: <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

这一步你可以自己按照你的情况来做，我是为了加快数据库索引的速度，所以将IP全部转换为十进制，存到一个新表里面。

--  建立十进制新表
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 ]

--  格式化省份
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