SQL Server 验证身份证合法性函数（使用VBScript.RegExp）

最新推荐文章于 2023-03-10 20:44:25 发布
最新推荐文章于 2023-03-10 20:44:25 发布
阅读量213 收藏
点赞数
原文链接：http://www.cnblogs.com/lonelyxmas/p/11294575.html
版权
SQL Server 验证身份证合法性函数（使用VBScript.RegExp）
原文: SQL Server 验证身份证合法性函数（使用VBScript.RegExp）

版权声明：本文为博主原创文章，未经博主允许不得转载。 https://blog.csdn.net/wzy0623/article/details/53895680 
-- 建立正则表达式测试函数  
CREATE FUNCTION dbo.RegExpTest  
    (  
      @source VARCHAR(5000),   --需要匹配的源字符串  
      @regexp VARCHAR(1000),  --正则表达式  
      @ignorecase BIT = 0  --是否区分大小写，默认为false  
    )  
RETURNS BIT  --返回结果0-false，1-true  
AS BEGIN  
  
 --0（成功）或非零数字（失败），是由 OLE 自动化对象返回的 HRESULT 的整数值。  
    DECLARE @hr INTEGER  
  
--用于保存返回的对象令牌，以便之后对该对象进行操作  
    DECLARE @objRegExp INTEGER  
    DECLARE @objMatches INTEGER  
  
--保存结果  
    DECLARE @results BIT  
   
/*  
创建 OLE 对象实例,只有 sysadmin 固定服务器角色的成员才能执行 sp_OACreate,并确定机器中有VBScript.RegExp类库  
*/  
    EXEC @hr = sp_OACreate 'VBScript.RegExp', @objRegExp OUTPUT  
    IF @hr <> 0   
        BEGIN  
            SET @results = 0  
            RETURN @results  
        END  
/*  
以下三个分别是设置新建对象的三个属性。下面是'VBScript.RegExp'中常用的属性举例：  
    Dim regEx,Match,Matches         '建立变量。  
    Set regEx = New RegExp         '建立一般表达式。  
    regEx.Pattern= patrn         '设置模式。  
    regEx.IgnoreCase = True         '设置是否区分大小写。  
    regEx.Global=True                             '设置全局可用性。  
    set Matches=regEx.Execute(string)             '重复匹配集合  
    RegExpTest = regEx.Execute(strng)      '执行搜索。  
   for each match in matches                    '重复匹配集合  
   RetStr=RetStr &"Match found at position "  
   RetStr=RetStr&Match.FirstIndex&".Match Value is '"  
   RetStr=RetStr&Match.Value&"'."&vbCRLF Next  
   RegExpTest=RetStr  
  
*/  
    EXEC @hr = sp_OASetProperty @objRegExp, 'Pattern', @regexp  
    IF @hr <> 0   
        BEGIN  
            SET @results = 0  
            RETURN @results  
        END  
    EXEC @hr = sp_OASetProperty @objRegExp, 'Global', false  
    IF @hr <> 0   
        BEGIN  
            SET @results = 0  
            RETURN @results  
        END  
    EXEC @hr = sp_OASetProperty @objRegExp, 'IgnoreCase', @ignorecase  
    IF @hr <> 0   
        BEGIN  
            SET @results = 0  
            RETURN @results  
        END  
--调用对象方法  
    EXEC @hr = sp_OAMethod @objRegExp, 'Test', @results OUTPUT, @source  
    IF @hr <> 0   
        BEGIN  
            SET @results = 0  
            RETURN @results  
        END  
--释放已创建的 OLE 对象  
    EXEC @hr = sp_OADestroy @objRegExp  
    IF @hr <> 0   
        BEGIN  
            SET @results = 0  
            RETURN @results  
        END  
    RETURN @results  
   END  
  
-- 建立身份证验证函数     
ALTER  FUNCTION dbo.fn_checkidcard ( @p_idcard VARCHAR(18) )  
RETURNS INT  
AS BEGIN  
    DECLARE @v_regstr VARCHAR(2000) ;  
    DECLARE @v_sum INT ;  
    DECLARE @v_mod INT ;  
    DECLARE @v_checkcode CHAR(11) ;  
    SET @v_checkcode = '10X98765432' ;  
    DECLARE @v_checkbit CHAR(1) ;  
    DECLARE @v_areacode VARCHAR(2000) ;  
    SET @v_areacode = '11,12,13,14,15,21,22,23,31,32,33,34,35,36,37,41,42,43,44,45,46,50,51,52,53,54,61,62,63,64,65,71,81,82,91,' ;  
  
    DECLARE @l INT ;  
    SET @l = LEN(@p_idcard) ;  
      
    DECLARE @r INT ;  
    SET @r = 0 ;  
  
    IF @l = 15   
        BEGIN  
            IF CHARINDEX(SUBSTRING(@p_idcard, 1, 2) + ',', @v_areacode) = 0   
                RETURN 0 ;  
  
            IF ( ( CAST(( SUBSTRING(@p_idcard, 6, 2) ) AS INT) + 1900 ) % 400 = 0 )  
                OR ( ( ( CAST(( SUBSTRING(@p_idcard, 6, 2) ) AS INT) + 1900 )  
                       % 100 <> 0 )  
                     AND ( ( CAST(( SUBSTRING(@p_idcard, 6, 2) ) AS INT)  
                             + 1900 ) % 4 = 0 )  
                   )   
                SET @v_regstr = '^[1-9][0-9]{5}[0-9]{2}((01|03|05|07|08|10|12)(0[1-9]|[1-2][0-9]|3[0-1])|(04|06|09|11)(0[1-9]|[1-2][0-9]|30)|02(0[1-9]|[1-2][0-9]))[0-9]{3}$' ;  
            ELSE   
                SET @v_regstr = '^[1-9][0-9]{5}[0-9]{2}((01|03|05|07|08|10|12)(0[1-9]|[1-2][0-9]|3[0-1])|(04|06|09|11)(0[1-9]|[1-2][0-9]|30)|02(0[1-9]|1[0-9]|2[0-8]))[0-9]{3}$' ;                    
                  
            IF dbo.RegExpTest(@p_idcard, @v_regstr, 0) = 1   
                SET @r = 1 ;  
            ELSE   
                SET @r = 0 ;           
        END ;          
    ELSE   
        IF @l = 18   
            BEGIN                                                  
                IF CHARINDEX(SUBSTRING(@p_idcard, 1, 2) + ',', @v_areacode) = 0   
                    RETURN 0 ;  
                                        
                IF ( ( CAST(( SUBSTRING(@p_idcard, 6, 4) ) AS INT) + 1900 )  
                     % 400 = 0 )  
                    OR ( ( ( CAST(( SUBSTRING(@p_idcard, 6, 4) ) AS INT)  
                             + 1900 ) % 100 <> 0 )  
                         AND ( ( CAST(( SUBSTRING(@p_idcard, 6, 4) ) AS INT)  
                                 + 1900 ) % 4 = 0 )  
                       )   
                    SET @v_regstr = '^[1-9][0-9]{5}19[0-9]{2}((01|03|05|07|08|10|12)(0[1-9]|[1-2][0-9]|3[0-1])|(04|06|09|11)(0[1-9]|[1-2][0-9]|30)|02(0[1-9]|[1-2][0-9]))[0-9]{3}[0-9Xx]$' ;  
                ELSE   
                    SET @v_regstr = '^[1-9][0-9]{5}19[0-9]{2}((01|03|05|07|08|10|12)(0[1-9]|[1-2][0-9]|3[0-1])|(04|06|09|11)(0[1-9]|[1-2][0-9]|30)|02(0[1-9]|1[0-9]|2[0-8]))[0-9]{3}[0-9Xx]$' ;  
                  
                IF dbo.RegExpTest(@p_idcard, @v_regstr, 0) = 1   
                    BEGIN  
                        SET @v_sum = ( CAST(SUBSTRING(@p_idcard, 1, 1) AS INT)  
                                       + CAST(SUBSTRING(@p_idcard, 11, 1) AS INT) )  
                            * 7 + ( CAST(SUBSTRING(@p_idcard, 2, 1) AS INT)  
                                    + CAST(SUBSTRING(@p_idcard, 12, 1) AS INT) )  
                            * 9 + ( CAST(SUBSTRING(@p_idcard, 3, 1) AS INT)  
                                    + CAST(SUBSTRING(@p_idcard, 13, 1) AS INT) )  
                            * 10 + ( CAST(SUBSTRING(@p_idcard, 4, 1) AS INT)  
                                     + CAST(SUBSTRING(@p_idcard, 14, 1) AS INT) )  
                            * 5 + ( CAST(SUBSTRING(@p_idcard, 5, 1) AS INT)  
                                    + CAST(SUBSTRING(@p_idcard, 15, 1) AS INT) )  
                            * 8 + ( CAST(SUBSTRING(@p_idcard, 6, 1) AS INT)  
                                    + CAST(SUBSTRING(@p_idcard, 16, 1) AS INT) )  
                            * 4 + ( CAST(SUBSTRING(@p_idcard, 7, 1) AS INT)  
                                    + CAST(SUBSTRING(@p_idcard, 17, 1) AS INT) )  
                            * 2 + CAST(SUBSTRING(@p_idcard, 8, 1) AS INT) * 1  
                            + CAST(SUBSTRING(@p_idcard, 9, 1) AS INT) * 6  
                            + CAST(SUBSTRING(@p_idcard, 10, 1) AS INT) * 3 ;  
                              
                        SET @v_mod = @v_sum % 11 ;  
                        SET @v_checkbit = SUBSTRING(@v_checkcode, @v_mod + 1,  
                                                    1) ;  
                                                      
                        IF @v_checkbit = SUBSTRING(@p_idcard, 18, 1)   
                            SET @r = 1 ;  
                        ELSE   
                            SET @r = 0 ;                             
                    END ;  
                ELSE   
                    RETURN 0 ;  
            END ;  
    RETURN @r ;  
   -- 身份证号码位数不对  
   END ;  
;  
  
-- 开启Ole Automation Procedures配置  
EXEC sp_configure 'show advanced options', 1   
RECONFIGURE   
EXEC sp_configure 'Ole Automation Procedures', 1   
RECONFIGURE   
EXEC sp_configure 'show advanced options', 0   
RECONFIGURE  
  
-- 测试  
SELECT dbo.fn_checkidcard('110102197203270816');
问题：这种方法对每一行都要创建对象、设置对象属性、释放对象等一系列操作，数据量大时性能很差。但这种在SQL Server中使用正则表达式的方法比较简单。
posted on 2019-08-03 13:30 NET未来之路 阅读( ...) 评论( ...) 编辑 收藏

转载于:https://www.cnblogs.com/lonelyxmas/p/11294575.html

weixin_30299539
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
SqlServer2000+ 身份证合法校验函数的示例代码
12-14
下面看下sqlserver2000身份证校验的代码，具体代码如下所示： /* 身份校验行数 */ if exists(select * from sysobjects where name='fun_utils_idnumberoprater' and type='FN') drop function fun_utils_idnumberoprater go create function fun_utils_idnumberoprater ( @idnumber varchar(50)='' ) returns varchar(500) as /* 公民身份号码是由17位数字码和1位校验
SQLSERVER校验身份证号 合法性
CHALLENG_EVERYTHING的专栏
05-19 7346
最近在做一个项目时需要在存储过程中判断身份证号的参数的合法性，因此参照网上对应的C++代码改造成SQL SERVER的函数 C++代码的链接：http://blog.chinaunix.net/uid-27105712-id-4233792.html CREATE TABLE [dbo].[days] ( [nmonth] int NULL , [daynum] int NULL , [
如何在SQL Server中使用正则表达式
陈希章@中国
05-27 5233
最近处理客户一个需求，是要在SQL Server中对某个列进行校验，使用正则表达式保证该列必须是一个邮件地址。 我们都知道，SQL Server的T-SQL中默认是没有这样的语法的。找了一些资料，下面这个例子还不错，分享给大家参考 http://www.codeproject.com/KB/database/xp_pcre.aspx 大致步骤是 1.下载他提供的那个压缩包，里面有源代码和安装脚本
SQL Server
肥肥不会飞的博客
12-16 1012
在一个表存在，另一个表不存在的数据 https://www.cnblogs.com/jameshappy/p/6038706.html
身份证号验证正则表达式
huangxingchen123的博客
09-14 6976
一些要求用户信息比较严格的地方比如用户注册、登录的时候都需要验证用户的身份证是否合法，而通过这些验证能大大的过滤掉很多水客，给你的系统带来非常精准的用户信息。　　很多时候我们都是通过一组正则表达式来判断用户输入的身份证是否合法，那在用正则表达式判断之前，你对身份证号的组成有多少了解呢？下面来说说一个身份证号里面包含了多少的信息：　　1、号码的结构 　　　　公民身份号码是特征组合码，由十七位数字本
SQL Server正则表达式 替换函数应用详解
01-19
–SQL正则替换函数 代码如下: CREATE function dbo.regexReplace ( @source ntext, –原字符串 @regexp varchar(1000), –正则表达式 @replace varchar(1000), –替换值 @globalReplace bit = 1, –是否是全局替换 @...
方便的VC ++ VBScript.RegExp包装器
04-07
使用VBScript.RegExp的VC ++正则表达式
oracle 身份证校验函数的实例代码
12-15
1、正则表达式写法： CREATE OR REPLACE FUNCTION Func_checkidcard (p_idcard IN VARCHAR2) RETURN INT IS v_regstr VARCHAR2 (2000); v_sum NUMBER; v_mod NUMBER; v_checkcode CHAR (11) := '10X98765432';...
gnu.regexp-1.1.4.rar_gnu java_gnu.rege_gnu.regexp a_java egrep_正
09-20
Java实现的超牛的正则表达式库源码，有详细的文档，使用非常容易
VBScript-RegExp对象的详细用法
碌人乘凉, 黎硕 --> Aerchi.com
12-15 486
RegExp对象是VBScript中用于提供简单的正则表达式支持的对象。VBScript中所有和正则表达式有关的属性和方法都与这个对象有关联。 Dim re Set re = New RegExp 这个对象有三个属性和三个方法，如表9-1所示。转自蔻网网址之家 表9-1 属 性 Global属性 IgnoreCase属性 Pattern属性 方 法 ...
SQL15位和18位公民身份证校验函数
04-06
做数据录入的最关心身份证信息的合法性，如果是错误的录入也无用，本文件的功能就是做5位和18位公民身份证校验。
使用vbscript.regexp实现VBA代码格式化
yivifu的专栏
03-10 1384
本文介绍了一个宏，利用regex将网上找到的缩进不规范的VBA代码格式化。
SQL学习笔记——REGEXP运算符
qq_46416934的博客
07-31 5134
REGEXP运算符，是正则表达式（regularexpression）的缩写，正则表达式在搜索字符串时非常强大，下面是关于它的应用1.查找名字中包含field的顾客运用REGEXP运算符，可以这样写，同样可以得出数据2.查找姓氏以Brush开头的顾客^表示查找的字符串必须以什么开头3.查找姓氏以field结尾的顾客$表示查找的字符串必须以什么结尾3.查找姓氏包含field或者mac的顾客|符号表示多个搜寻模式4.查找以brush开头，或者包含mac，或者包含rose的顾客。...
如何让sqlserver脚本支持正则表达式呢？
qq_18932003的博客
03-04 570
mssql sqlserver 如何让sql脚本支持正则表达式呢？ http://www.maomao365.com/?p=11499 摘要: 下文讲述让sqlserver支持正则表达式的方法分享，如下所示: 实验环境:sql server 2008 R2 实现思路: 1.使用sp_OACreate 创建VBScript 2.使用sp_OASetPrperty 创建Pattern属性 例： 创建自定义函数，使sqlserver支持正则表达式 create function dbo.zheng.
VBS基础篇 - RegExp 对象
weixin_30713953的博客
08-22 305
VBS基础篇 - RegExp 对象 正则表达式(RegExp)对象下面的代码说明了RegExp对象的用法： Function RegExpTest(patrn, strng) Dim regEx, Match, Matches '创建变量 Set regEx = New RegExp '创建正则表达式 regEx.Patte...
VBScript正则表达式
ysds20211402的博客
04-18 281
转自：微点阅读https://www.weidianyuedu.com/content/4717826980343.html 正则表达式(RegExp)对象 提供简单的正则表达式支持功能。 说明 下面的代码说明了RegExp对象的用法： Function RegExpTest(patrn, strng) Dim regEx, Match, Matches " 建立变量。 Set regEx = new RegExp " 建立正则表达式。 regEx.Pattern = patrn " ..
SQL:REGEXP 正则表达式
cai_and_luo的博客
07-08 468
点我跳转
For i = 1 To UBound(aa) With CreateObject("VBSCRIPT.REGEXP") .Global = True .Pattern = "[^\x00-\xff]" aa(i) = .Replace(aa(i), " ") End With
最新发布
07-13
这段代码使用VBScript中的正则表达式对象来替换字符串数组`aa(i)`中的非ASCII字符。具体来说，它将非ASCII字符替换为空格。 首先，通过`CreateObject("VBSCRIPT.REGEXP")`创建一个VBScript正则表达式对象。然后，...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值