ASP&Javascript 身份证验证

 　现在新的身份证已经从15位升到了18位了，很多软件都可能用到身份证的输入、校验的工作，关于新身份证的编码似乎文章很少，我在2000年的时候找到了计算机世界的一篇文章，发现现在的身份证校验码居然可能是英文字母x(其实这个X是罗马字母，表示10的意思)，为什么用字母呢？谁知道？ 起码电话上数字键就输不进去新的号码。（现在的办法是使用*替代，好在还有#*2个键，我也做过CTI的，呵呵）,然后我写了个delphi的过程，贴到了“网易”，但是不适用于100岁以上的老人。
　　
　　根据〖中华人民共和国国家标准 GB 11643-1999〗中有关公民身份号码的规定，公民身份号码是特征组合码，由十七位数字本体码和一位数字校验码组成。排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码和一位数字校验码。
　　地址码表示编码对象常住户口所在县(市、旗、区)的行政区划代码。生日期码表示编码对象出生的年、月、日，其中年份用四位数字表示，年、月、日之间不用分隔符。顺序码表示同一地址码所标识的区域范围内，对同年、月、日出生的人员编定的顺序号。顺序码的奇数分给男性，偶数分给女性。校验码是根据前面十七位数字码，按照ISO 7064:1983.MOD 11-2校验码计算出来的检验码。下面举例说明该计算方法。
　　15位的身份证编码首先把出生年扩展为4位，简单的就是增加一个19，但是这对于1900年出生的人不使用（这样的寿星不多了）
　　某男性公民身份号码本体码为34052419800101001，首先按照公式⑴计算：
　　∑(ai×Wi)(mod 11)……………………………………(1)
　　公式(1)中：
　　i----表示号码字符从由至左包括校验码在内的位置序号；
　　ai----表示第i位置上的号码字符值；
　　Wi----示第i位置上的加权因子，其数值依据公式Wi=2（n-1）(mod 11)计算得出。
　　i 18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1
　　ai 3 4 0 5 2 4 1 9 8 0 0 1 0 1 0 0 1 a1
　　Wi 7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2 1
　　ai×Wi 21 36 0 25 16 16 2 9 48 0 0 9 0 5 0 0 2 a1
　　根据公式(1)进行计算：
　　∑(ai×Wi) =（21+36+0+25+16+16+2+9+48++0+0+9+0+5+0+0+2) = 189
　　189 ÷ 11 = 17 + 2/11
　　∑(ai×Wi)(mod 11) = 2
　　然后根据计算的结果，从下面的表中查出相应的校验码，其中X表示计算结果为10：
　　∑(ai×WI)(mod 11) 0 1 2 3 4 5 6 7 8 9 10
　　校验码字符值ai 1 0 X 9 8 7 6 5 4 3 2
　　根据上表，查出计算结果为2的校验码为所以该人员的公民身份号码应该为 34052419800101001X。

=====================================================================================

<%
'ASP的身份证验证代码改进学习资料
Function CheckCardId(e)

arrVerifyCode = Split("1,0,x,9,8,7,6,5,4,3,2", ",")

Wi = Split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2", ",")

Checker = Split("1,9,8,7,6,5,4,3,2,1,1", ",")

If Len(e) < 15 Or Len(e) = 16 Or Len(e) = 17 Or Len(e) > 18 Then

CheckCardId= "身份证号共有 15 码或18位"

'CheckCardId = False

Exit Function

End If

Dim Ai

If Len(e) = 18 Then

Ai = Mid(e, 1, 17)

ElseIf Len(e) = 15 Then

Ai = e

Ai = Left(Ai, 6) & "19" & Mid(Ai, 7, 9)

End If

If Not IsNumeric(Ai) Then

CheckCardId= "身份证除最后一位外，必须为数字！"

Exit Function

End If

Dim strYear, strMonth, strDay

strYear = CInt(Mid(Ai, 7, 4))

strMonth = CInt(Mid(Ai, 11, 2))

strDay = CInt(Mid(Ai, 13, 2))

BirthDay = Trim(strYear) + "-" + Trim(strMonth) + "-" + Trim(strDay)

If IsDate(BirthDay) Then

If DateDiff("yyyy",Now,BirthDay)<-140 or cdate(BirthDay)>date() Then

CheckCardId= "身份证输入错误！"

Exit Function

End If

If strMonth > 12 Or strDay > 31 Then

CheckCardId= "身份证输入错误！"

Exit Function

End If

Else

CheckCardId= "身份证输入错误！"

Exit Function

End If

Dim i, TotalmulAiWi

For i = 0 To 16

TotalmulAiWi = TotalmulAiWi + CInt(Mid(Ai, i + 1, 1)) * Wi(i)

Next

Dim modValue

modValue = TotalmulAiWi Mod 11

Dim strVerifyCode

strVerifyCode = arrVerifyCode(modValue)

Ai = Ai & strVerifyCode

CheckCardId = Ai

If Len(e) = 18 And e <> Ai Then

CheckCardId= "身份证号码输入错误！"

Exit Function

End If

End Function
response.write CheckCardId(request("txticCard")) & "<br>" & request("txticCard")
%>
<form id="form1" name="form1" method="post" action="test.asp">

  <input type="text" name="txticCard" />
 
  <input type="submit" name="Submit" value="提交" />
</form>

  =====================================================================================

<script language="javascript">
function isIdCardNo(idcard){
var Errors=new Array(
"验证通过!",
"身份证号码位数不对!",
"身份证号码出生日期超出范围或含有非法字符!",
"身份证号码校验错误!",
"身份证地区非法!"
);
var area={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:"国外"}
 

var idcard,Y,JYM;
var S,M;
var idcard_array = new Array();
idcard_array = idcard.split("");
//地区检验
if(area[parseInt(idcard.substr(0,2))]==null)
{alert(Errors[4]);
 return false;} 
//身份号码位数及格式检验
switch(idcard.length){
case 15:
if ( (parseInt(idcard.substr(6,2))+1900) % 4 == 0 || ((parseInt(idcard.substr(6,2))+1900) % 100 == 0 && (parseInt(idcard.substr(6,2))+1900) % 4 == 0 )){
ereg=/^[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 {
ereg=/^[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(ereg.test(idcard))
 {//alert(Errors[0]);
 return true;} 
else
 {alert(Errors[2]);
 return false;} 
break;
case 18:
//18位身份号码检测
//出生日期的合法性检查
//闰年月日:((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]))
//平年月日:((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]))
if ( parseInt(idcard.substr(6,4)) % 4 == 0 || (parseInt(idcard.substr(6,4)) % 100 == 0 && parseInt(idcard.substr(6,4))%4 == 0 )){
ereg=/^[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 {
ereg=/^[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(ereg.test(idcard)){//测试出生日期的合法性
//计算校验位
S = (parseInt(idcard_array[0]) + parseInt(idcard_array[10])) * 7
+ (parseInt(idcard_array[1]) + parseInt(idcard_array[11])) * 9
+ (parseInt(idcard_array[2]) + parseInt(idcard_array[12])) * 10
+ (parseInt(idcard_array[3]) + parseInt(idcard_array[13])) * 5
+ (parseInt(idcard_array[4]) + parseInt(idcard_array[14])) * 8
+ (parseInt(idcard_array[5]) + parseInt(idcard_array[15])) * 4
+ (parseInt(idcard_array[6]) + parseInt(idcard_array[16])) * 2
+ parseInt(idcard_array[7]) * 1
+ parseInt(idcard_array[8]) * 6
+ parseInt(idcard_array[9]) * 3 ;
Y = S % 11;
M = "F";
JYM = "10X98765432";
M = JYM.substr(Y,1);//判断校验位
  if(M == idcard_array[17])
   {//alert(Errors[0]);
   return true;}   //检测ID的校验位
  else
  {alert(Errors[3] + "应为：" + M);
   return false;} 
  }
else
{alert(Errors[2]);
 return false;} 
break;
default:
 
{
 alert(Errors[1]);
 return false;} 
break;
}

}
</script>