身份证,组织机构,营业执照号检验函数

身份证,组织机构,营业执照号检验函数.在CSDN上看到,感觉不错拿来一起分享了. 无 GO/****** Object: UserDefinedFunction [ro].[wj_ValidateIDC] Script Date: 09/29/2012 11:23:34 ******/SET ANSI_NULLS ONGOSET QUOTED_IDENTIFIER ONGO–验证身份证号码–编

身份证,组织机构,营业执照号检验函数.在CSDN上看到,感觉不错拿来一起分享了. <style> .CodeEntity .code_pieces ul.piece_anchor{width:25px;position:absolute;top:25px;left:-30px;z-index:1000;} .CodeEntity .code_pieces ul.piece_anchor li{width:25px;background: #efe;margin-bottom:2px;} .CodeEntity .code_pieces ul.piece_anchor li{border-left:3px #40AA63 solid;border-right:3px #efe solid;} .CodeEntity .code_pieces ul.piece_anchor li:hover{border-right:3px #40AA63 solid;border-left:3px #efe solid;} .CodeEntity .code_pieces ul.piece_anchor li a{color: #333;padding: 3px 10px;} .CodeEntity .code_pieces .jump_to_code{visibility:hidden;position:relative;} .CodeEntity .code_pieces .code_piece:hover .jump_to_code{visibility:visible;} .CodeEntity .code_pieces .code_piece:hover .jump_to_code a{text-decoration:none;} .CodeEntity .code_pieces h2 i{float:right;font-style:normal;font-weight:normal;} .CodeEntity .code_pieces h2 i a{font-size:9pt;background: #FFFFFF;color:#00A;padding: 2px 5px;text-decoration:none;} </style> <!—ecms -ecms

–> <!—ecms -ecms
• $velocityCount

–> <!—ecms -ecms

–>

GO/****** Object:  UserDefinedFunction [ro].[wj_ValidateIDC]    Script Date: 09/29/2012 11:23:34 ******/SET ANSI_NULLS ONGOSET QUOTED_IDENTIFIER ONGO--验证身份证号码--编者：--创建日期：2012-09-18--参数：@idc 身份证号create FUNCTION [ro].[wj_ValidateIDC]( @idc varchar(18))RETURNS BITASBEGIN DECLARE @validFactors VARCHAR(17),@validCodes VARCHAR(11),@i TINYINT,@iTemp INT SELECT @validFactors='79A584216379A5842',@validCodes='10X98765432',@i=1,@iTemp=0 --验证校验位 --根据担保数据库增加条件，否则报错，by WJ IF (@idc LIKE 'x%' OR @idc LIKE '*%' OR @idc LIKE 'T%')    RETURN(0)  IF LEN(@idc)15 AND LEN(@idc)18--身份证号只有15或18位  RETURN(0) IF LEN(@idc)=15  --如果是15位身份证 则只验证日期     IF (ISDATE('19'+SUBSTRING(@idc,7,6))=0 and '19'+SUBSTRING(@idc,7,6) between '1900-01-01' and '2010-01-01')        RETURN(0)     ELSE        RETURN(1) --18位身份证 验证日期 校验位 IF (ISDATE(SUBSTRING(@idc,7,8))=0 and SUBSTRING(@idc,7,6) between '1900-0<i>本文来源gaodai$ma#com搞$$代**码网</i>1-01' and '2010-01-01')--验证日期    RETURN(0) ---验证校验位开始  WHILE @i<18    BEGIN       SELECT @iTemp=@iTemp+CAST(SUBSTRING(@idc,@i,1) AS INT)*             (CASE SUBSTRING(@validFactors,@i,1) WHEN 'A' THEN 10 ELSE SUBSTRING(@validFactors,@i,1) END)             ,@i=@i+1    END IF SUBSTRING(@validCodes,@iTemp%11+1,1)=RIGHT(@idc,1)    RETURN 1 ELSE    RETURN 0 RETURN 0ENDGO/****** Object:  UserDefinedFunction [ro].[wj_ValidateYYZZNo]    Script Date: 09/29/2012 11:25:49 ******/SET ANSI_NULLS ONGOSET QUOTED_IDENTIFIER ONGO--功能：验证营业执照号--编者：--创建日期：2012-09-20--参数：@ZzNo 营业执照号create FUNCTION [ro].[wj_ValidateYYZZNo]( @ZzNo varchar(15))RETURNS BITASBEGIN DECLARE @m INT, @n INT, @s INT , @p INT ,@i INT ,@result INT  SELECT @m=10,@n=11,@p=@m  IF (LEN(LTRIM(RTRIM(@ZzNo)))=13 AND ISNUMERIC(@ZzNo) =1)  begin RETURN 1 END  IF (ISNUMERIC(LTRIM(RTRIM(@ZzNo)))=0)  begin RETURN 0 end IF (LEN(LTRIM(RTRIM(@ZzNo)))15)  begin RETURN 0 END  SET @i=1 WHILE @i <=14 BEGIN  SET @s = SUBSTRING(@ZzNo,@i,1) SET @p = @p+@s SET @p =@p%@m IF @p = 0 BEGIN    SET @p= @m END  SET @p = @p *2  SET @p = @p%@n SET @i=@i+1 END  SET @p = @p+SUBSTRING(@ZzNo,15,1) SET @p = @p%@m  IF @p=1     BEGIN    SET @result =1    END     ELSE     BEGIN    SET @result =0    endRETURN @resultENDGO/****** Object:  UserDefinedFunction [ro].[wj_ValidateZZJGNo]    Script Date: 09/29/2012 11:26:32 ******/SET ANSI_NULLS ONGOSET QUOTED_IDENTIFIER ONGO--功能：组织机构号验证--编者：--创建日期：2012-09-20--参数：@ZZJGNo 组织机构号ALTER FUNCTION [ro].[wj_ValidateZZJGNo]( @ZZJGNo varchar(20))RETURNS BITASBEGINDECLARE @c varchar(20),@zz int,@z int,@i INT,@jaz VARCHAR(30),@C9 VARCHAR(10)SET @ZZJGNo = UPPER(@ZZJGNo)SET @i=1WHILE @i ='A' AND @c='0' AND @c<='9' BEGIN  SET @z=CONVERT(NUMERIC,@c) * (CASE @i WHEN 1 THEN 3 WHEN 2 THEN 7 WHEN 3 THEN 9 WHEN 4 THEN 10 WHEN 5 THEN 5 WHEN 6 THEN 8 WHEN 7 THEN 4 WHEN 8 THEN 2 END)ENDELSEBEGINRETURN 0END  SET @zz = ISNULL(@zz,0)+@z SET @i = @i+1ENDSET @jaz = 11-(@zz%11)IF @jaz=10BEGINSET @C9 = 'X'END ELSE IF @jaz =11BEGINSET @C9='0'    ENDELSE BEGINSET @C9=LTRIM(RTRIM(@jaz))END IF @ZZJGNO = SUBSTRING(@ZZJGNO,1,8) +@C9BEGIN    RETURN 1 END IF @ZZJGNO = SUBSTRING(@ZZJGNO,1,8)+'-'+@C9BEGIN    RETURN 1ENDIF @ZZJGNO = SUBSTRING(@ZZJGNO,1,8) + '—' +@C9BEGIN    RETURN 1ENDIF @ZZJGNO = SUBSTRING(@ZZJGNO,1,8) +' '+@C9BEGIN    RETURN 1 END  RETURN 0END

喜欢 (0)赏

[搞代码]

分享 (0)