身份证,组织机构,营业执照号检验函数
发布时间:2020-05-30 02:23:04 所属栏目:MySql 来源:互联网
导读:身份证,组织机构,营业执照号检验函数
下面是脚本之家 jb51.cc 通过网络收集整理的代码片段。 脚本之家小编现在分享给大家,也给大家做个参考。 GO /****** Object: UserDefinedFunction [ro].[wj_ValidateIDC] Script Date: 09/29/2012 11:23:34 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO --验证身份证号码 --编者: --创建日期:2012-09-18 --参数:@idc 身份证号 create FUNCTION [ro].[wj_ValidateIDC] ( @idc varchar(18) )RETURNS BIT AS BEGIN 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,6) between '1900-01-01' and '2010-01-01') RETURN(0) ELSE RETURN(1) --18位身份证 验证日期 校验位 IF (ISDATE(SUBSTRING(@idc,8))=0 and SUBSTRING(@idc,6) between '1900-01-01' and '2010-01-01')--验证日期 RETURN(0) ---验证校验位开始 WHILE @i<18 BEGIN SELECT @[emailprotected]+CAST(SUBSTRING(@idc,@i,1) AS INT)* (CASE SUBSTRING(@validFactors,1) WHEN 'A' THEN 10 ELSE SUBSTRING(@validFactors,1) END),@[emailprotected]+1 END IF SUBSTRING(@validCodes,@iTemp%11+1,1)=RIGHT(@idc,1) RETURN 1 ELSE RETURN 0 RETURN 0 END GO /****** Object: UserDefinedFunction [ro].[wj_ValidateYYZZNo] Script Date: 09/29/2012 11:25:49 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO --功能:验证营业执照号 --编者: --创建日期:2012-09-20 --参数:@ZzNo 营业执照号 create FUNCTION [ro].[wj_ValidateYYZZNo] ( @ZzNo varchar(15) )RETURNS BIT AS BEGIN DECLARE @m INT,@n INT,@s INT,@p INT,@i INT,@result INT SELECT @m=10,@n=11,@[emailprotected] 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,1) SET @p = @[emailprotected] SET @p [emailprotected]%@m IF @p = 0 BEGIN SET @p= @m END SET @p = @p *2 SET @p = @p%@n SET @[emailprotected]+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 end RETURN @result END GO /****** Object: UserDefinedFunction [ro].[wj_ValidateZZJGNo] Script Date: 09/29/2012 11:26:32 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO --功能:组织机构号验证 --编者: --创建日期:2012-09-20 --参数:@ZZJGNo 组织机构号 ALTER FUNCTION [ro].[wj_ValidateZZJGNo] ( @ZZJGNo varchar(20) )RETURNS BIT AS BEGIN DECLARE @c varchar(20),@zz int,@z int,@jaz VARCHAR(30),@C9 VARCHAR(10) SET @ZZJGNo = UPPER(@ZZJGNo) SET @i=1 WHILE @i <=8 BEGIN SET @c= SUBSTRING(@ZZJGNo,1) IF @c>='A' AND @c<='Z' BEGIN SET @z = (ASCII(@c)-55) * (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) END ELSE IF @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) END ELSE BEGIN RETURN 0 END SET @zz = ISNULL(@zz,0)[emailprotected] SET @i = @i+1 END SET @jaz = 11-(@zz%11) IF @jaz=10 BEGIN SET @C9 = 'X' END ELSE IF @jaz =11 BEGIN SET @C9='0' END ELSE BEGIN SET @C9=LTRIM(RTRIM(@jaz)) END IF @ZZJGNO = SUBSTRING(@ZZJGNO,1,8) [emailprotected] BEGIN RETURN 1 END IF @ZZJGNO = SUBSTRING(@ZZJGNO,8)+'-'[emailprotected] BEGIN RETURN 1 END IF @ZZJGNO = SUBSTRING(@ZZJGNO,8) + '—' [emailprotected] BEGIN RETURN 1 END IF @ZZJGNO = SUBSTRING(@ZZJGNO,8) +' '[emailprotected] BEGIN RETURN 1 END RETURN 0 END 以上是脚本之家(jb51.cc)为你收集整理的全部代码内容,希望文章能够帮你解决所遇到的程序开发问题。 如果觉得脚本之家网站内容还不错,欢迎将脚本之家网站推荐给程序员好友。 (编辑:安卓应用网) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |