快速将珊瑚虫IP数据库转MS SQL2005的图文教程

前端之家收集整理的这篇文章主要介绍了快速将珊瑚虫IP数据库转MS SQL2005的图文教程前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

首先需要准备:
<UL style="LIST-STYLE-TYPE: decimal">

  • 最新的珊瑚虫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/200713:56:15******/
    SETANSI_NULLSON
    GO
    SETQUOTED_IDENTIFIERON
    GO --=============================================
    --Author:
    --Createdate:
    --Description:转换IP为十进制
    --=============================================
    CreateFUNCTION[dbo].[X16ToDe]
    (
    @Old_IPnvarchar(15)
    )
    RETURNSnumeric
    AS
    BEGIN
    DECLARE
    @CharIndexINT,
    @CurrPointINT,
    @SingleValueNVARCHAR(5),
    @Cachenumeric SET@CharIndex=1
    SET@CurrPoint=CHARINDEX('.',@Old_IP,@CharIndex)
    SET@SingleValue=SUBSTRING(@Old_IP,@CharIndex,@CurrPoint-@CharIndex)
    SET@Cache=cast(@SingleValueasnumeric)*16777216 SET@CharIndex=@CurrPoint+1
    SET@CurrPoint=CHARINDEX('.',@CurrPoint-@CharIndex)
    SET@Cache=@Cache+cast(@SingleValueasnumeric)*65536 SET@CharIndex=@CurrPoint+1
    SET@CurrPoint=CHARINDEX('.',@CurrPoint-@CharIndex)
    SET@Cache=@Cache+cast(@SingleValueasnumeric)*256 SET@CharIndex=@CurrPoint+1
    SET@SingleValue=SUBSTRING(@Old_IP,len(@Old_IP)-@CharIndex+1)
    SET@Cache=@Cache+cast(@SingleValueasnumeric) RETURN@Cache;
    END

    代码如下:
    --建立十进制新表
    USE[BasName]
    GO
    /******对象:Table[dbo].[IP_Real]脚本日期:09/19/200714:01:31******/
    SETANSI_NULLSON
    GO
    SETQUOTED_IDENTIFIERON
    GO
    CreateTABLE[dbo].[IP_Real](
    [startip][numeric](18,0)NULL,
    [endip][numeric](18,
    [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],1)) --去处前后导空格
    Update[BasName].[dbo].[IP]
    SET[country]=Rtrim(Ltrim([country]))
    ,[local]=Rtrim(Ltrim([local])) --转换IP为十进制,并写入新表
    InsertINTO[BasName].[dbo].[IP_Real]
    ([startip]
    ,[endip]
    ,[country]
    ,[local])
    Selectdbo.X16ToDe([startip])
    ,dbo.X16ToDe([endip])
    ,[local]
    FROM[BasName].[dbo].[IP]
    orderby[startip]ASC 最后测试一下看看: 程序代码 --测试
    DECLARE@IPNumbernumeric
    set@IPNumber=dbo.X16ToDe('219.140.31.91') Select[startip]
    ,[local]
    FROM[BasName].[dbo].[IP_Real]
    Where[startip]<=@IPNumberand[endip]>=@IPNumber 基本所有的转换最多3分钟完成,比自己写应用程序转换要快的多。
    原文链接:https://www.f2er.com/mssql/66450.html

    猜你在找的MsSQL相关文章