SqlServer2000+ 身份证合法校验函数的示例代码

　 短视频，自媒体，达人种草一站服务

这篇文章主要介绍了SqlServer2000+ 身份证合法校验函数，本文通过实例代码给大家介绍的非常详细，对大家的学习或工作具有一定的参考借鉴价值,需要的朋友可以参考下

下面看下sqlserver2000身份证校验的代码，具体代码如下所示：

/*
身份校验行数
*/
if exists(select * from sysobjects where and type='FN')
 drop function fun_utils_idnumberoprater
go
create function fun_utils_idnumberoprater
(
@idnumber varchar(50)=''
)
returns varchar(500)
as
/*
公民身份号码是由17位数字码和1位校验码组成。排列顺序从左至右分别为：6位地址码，8位出生日期码，3位顺序码和1位校验码。
地址码（身份证地址码对照表见下面附录）和出生日期码很好理解，顺序码表示在同一地址码所标识的区域范围内，对同年同月同日出生的人编定的顺序号，顺序码的奇数分配给男性，偶数分配给女性。
身份证最后一位校验码算法如下：
1. 将身份证号码前17位数分别乘以不同的系数，从第1位到第17位的系数分别为：7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2
2. 将得到的17个乘积相加。
3. 将相加后的和除以11并得到余数。
4. 余数可能为0 1 2 3 4 5 6 7 8 9 10这些个数字，其对应的身份证最后一位校验码为1 0 X 9 8 7 6 5 4 3 2。
function：
 1.校验身份证有效性
 2.15位身份证转18位
*/
begin

declare @ReturnText varchar(1000) --返回值
   ,@Separator varchar(1) --分隔符
   
   ,@idnumberElement varchar(1) --身份证每位元素
   ,@CurrentIndex int --身份证号当前索引位
   ,@NextIndex int --身份证号下一个索引位
   
   ,@xsnumber varchar(50) --系数
   ,@xsElement varchar(2) --系数每位元素
   ,@xsCurrentIndex int --系数当前索引位
   ,@xsNextIndex int --系数下一个索引位
   
   ,@jym varchar(11) --校验码
   ,@sum int --身份证元素*系数求和
   ,@div int --合计对11求余数
   
   ,@CurrentJym varchar(1) --当前校验码
   ,@CurrentWs int --当前身份证位数
   ,@NewJym varchar(1000) --新校验码
   ,@NewWs int --新身份证位数
   ,@oldId varchar(20)

--处理身份证号并校验位数有效性
 set @Separator =',';
 set @CurrentIndex = 1;
 set @xsnumber = '7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2';
 set @xsCurrentIndex = 1;
 set @jym = '10X98765432';
 set @sum = 0;
 set @CurrentWs = 0;
 set @CurrentJym = '';
 set @NewJym = '';
 set @NewWs = 0;
 set @CurrentWs=len(@idnumber);
 set @oldId = @idnumber;
 
 
 if @CurrentWs=15
 begin
  set @idnumber=stuff(@idnumber,7,0,case when substring(@idnumber,13,3) in ('999','998','997','996') then '18' else '19' end);
  
  SET @CurrentJym = '';
 end
 else if @CurrentWs>=18
 begin
  set @CurrentJym=substring(@idnumber,18,1);
  set @idnumber=substring(@idnumber,1,17);
 end
 else
 begin
  set @ReturnText='校验失败_'
  goto TheEnd;
 end
 if isdate(substring(@idnumber,7,8))=0
 begin
  set @ReturnText='校验失败_'
  goto TheEnd;
 end
 --计算身份证校验位
 while(@CurrentIndex<=len(@idnumber))
 begin
  set @NextIndex=@CurrentIndex+1;
  set @xsNextIndex=charindex(@Separator,@xsnumber,@xsCurrentIndex);
  
  if(@xsNextIndex=0 OR @xsNextIndex IS NULL)
   set @xsNextIndex=len(@xsnumber)+1;
  
  set @idnumberElement=substring(@idnumber,@CurrentIndex,@NextIndex-@CurrentIndex);
  set @xsElement=substring(@xsnumber,@xsCurrentIndex,@xsNextIndex-@xsCurrentIndex);
  
  if ISNUMERIC(@idnumberElement) > 0
   set @sum=@sum+cast(@idnumberElement as int)*cast(@xsElement as int)
  else
   begin
    set @ReturnText='校验失败_';
    goto TheEnd
   end

  set @CurrentIndex=@CurrentIndex+1;
  set @xsCurrentIndex=@xsNextIndex+1;
  
 end 
 set @div=@sum%11;
 set @NewJym=substring(@jym,@div+1,1);
 --校验身份证校验位是否出错
 if (@CurrentJym<>'') and (@NewJym<>@CurrentJym)
 begin
  set @ReturnText='校验失败_';
  goto TheEnd
 end
 --输出新的身份证号
 if len(@oldId) > 18
  set @ReturnText='校验通过，原始身份证长度非15位或18位_'+(@idnumber+@NewJym)
 else
  set @ReturnText='校验通过，原始身份证长度为'+cast(len(@oldId) as varchar)+'位_'+(@idnumber+@NewJym)
 goto TheEnd 

TheEnd:
 return @ReturnText
end
go

-- ----------------------以下存储过程是遍历整个表，添加字段并修改校验------------------------

（编辑：云计算网_泰州站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!