Two verification methods implemented by javascript or asp to determine whether the ID number is correct_javascript skills

The specific code is as follows:

1. Use javascript to verify:

Copy the code The code is as follows: function checkIdcard(idcard){ var Errors=new Array( "Verification passed!", "Incorrect number of digits in ID number!", "The date of birth of the ID card number is out of the range or contains illegal characters!", "The ID card number is verified incorrectly!", "The ID card area is illegal!" ); var area= {11:"Beijing",12:"Tianjin",13:"Hebei",14:"Shanxi",15:"Inner Mongolia",21:"Liaoning",22:"Jilin",23:"Heilongjiang",31 :"Shanghai",32:"Jiangsu",33:"Zhejiang",34:"Anhui",35:"Fujian",36:"Jiangxi",37:"Shandong",41:"Henan",42:" Hubei",43:"Hunan",44:"Guangdong",45:"Guangxi",46:"Hainan",50:"Chongqing",51:"Sichuan",52:"Guizhou",53:"Yunnan" ,54:"Tibet",61:"Shaanxi",62:"Gansu",63:"Qinghai",64:"Ningxia",65:"Xinjiang",71:"Taiwan",81:"Hong Kong",82 :"Macau",91:"foreign"}

var idcard,Y,JYM; var S,M; var idcard_array = new Array(); idcard_array = idcard. split(""); //Area inspection if(area[parseInt(idcard.substr(0,2))]==null) return Errors[4]; //Identity number digit Number and format check 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}$/;//Test the legality of birth date } 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}$/;//Test the legality of birth date } if(ereg.test(idcard)) return Errors [0]; else return Errors[2]; break; case 18: //18-digit identity number detection //Date of birth legality check / /Leap year, month and day: ((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])) //Normal year, month and day: ((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]$/;//Legacy regular expression for birth date in leap year } 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]$/;//The legal regular expression of birth date in ordinary years } if(ereg.test(idcard)){//Test birth date Legality //Calculate check digit 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);//Judge the check digit if( M == idcard_array[17]) return Errors[0]; //Detect check digit of ID else return Errors[3]; } else return Errors[2]; break ; default: return Errors[1]; break; }

} alert(checkIdcard("220183198808081610")) 2. Verify by asp code:

Copy code The code is as follows: Function checkIDCard(idcard) '-1 is the correct ID card, otherwise it is an illegal ID card

Dim Y, JYM Dim S, M

Dim area 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" Dim ereg Set ereg = New regexp

'Area check If InStr(1, area, Mid(idcard, 1, 2)) = 0 Then checkIDCard = 1: Exit Function

'ID number digits and format check Select Case Len(idcard) Case 15 If ((CInt(Mid(idcard, 7, 2)) 1900) Mod 4 = 0 or ((CInt(Mid(idcard, 7, 2)) 1900) Mod 100 = 0 And (CInt(Mid(idcard, 7, 2)) 1900) Mod 4 = 0)) Then ereg.Pattern = "^[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}$" ';//Test the legality of birth date Else ereg.Pattern = "^[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}$" ';//Test the legality of birth date End If If (ereg.test(idcard)) Then checkIDCard = -1 Else checkIDCard = 2 End If Case 18 '//18-digit identity number detection '//Date of birth legality check If ((CInt(Mid( idcard, 7, 2)) 1900) Mod 4 = 0 or ((CInt(Mid(idcard, 7, 2)) 1900) Mod 100 = 0 And (CInt(Mid(idcard, 7, 2)) 1900) Mod 4 = 0)) Then ereg.Pattern = "^[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]$" ';// Legal regular expression for birth date in leap year Else ereg.Pattern = "^[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]$" ';//The legal regular expression of birth date in ordinary years End If If (ereg.test(idcard)) Then '//Calculate check digit S = (CInt(Mid(idcard, 0 1, 1)) CInt(Mid(idcard, 10 1, 1))) * 7 _ (CInt(Mid(idcard, 1 1, 1)) CInt( Mid(idcard, 11 1, 1))) * 9 _ (CInt(Mid(idcard, 2 1, 1)) CInt(Mid(idcard, 12 1, 1))) * 10 _ ( CInt(Mid(idcard, 3 1, 1)) CInt(Mid(idcard, 13 1, 1))) * 5 _ (CInt(Mid(idcard, 4 1, 1)) CInt(Mid(idcard, 14 1, 1))) * 8 _ (CInt(Mid(idcard, 5 1, 1)) CInt(Mid(idcard, 15 1, 1))) * 4 _ (CInt(Mid( idcard, 6 1, 1)) CInt(Mid(idcard, 16 1, 1))) * 2 _ CInt(Mid(idcard, 7 1, 1)) * 1 _ CInt(Mid(idcard , 8 1, 1)) * 6 _ CInt(Mid(idcard, 9 1, 1)) * 3 Y = S Mod 11 M = "F" JYM = "10X98765432 " M = Mid(JYM, Y 1, 1)

If (M = Mid(idcard, 17 1, 1)) Then checkIDCard = -1 Else checkIDCard = 3

Else checkIDCard = 4 End If

Case Else checkIDCard = Len(idcard) End Select

End Function%>