新旧身份证验证及转换附源码实现.docVIP

新旧身份证验证及转换附源码实现 身份证中第十八位数字的计算方法为： 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这11个数字。其分别对应的最后一位身份证的号码为1 .0. X. 9. 8. 7. 6. 5. 4. 3. 2.。 5.通过上面得知如果余数是2，就会在身份证的第18位数字上出现罗马数字的Ⅹ。如果余数是10，身份证的最后一位号码就是2。 倒数第二位是用来表示性别的 例如：某男性的身份证号码我们要看看这个身份证是不是合法的身份证。 首先：我们得出，前17位的乘积和是189 然后：用189除以11得出的结果是17 + 2/11，也就是说余数是2。 最后：通过对应规则就可以知道余数2对应的数字是x。所以，这是一个合格的身份证号码。 北京 11 吉林 22 福建 35 广东 44 云南 53 天津 12 黑龙江 23 江西 36 广西 45 西藏 54 河北 13 上海 31 山东 37 海南 46 陕西 61 山西 14 江苏 32 河南 41 重庆 50 甘肃 62 内蒙古 15 浙江 33 湖北 42 四川 51 青海 63 辽宁 21 安徽 34 湖南 43 贵州 52 宁夏 64 新疆 65 台湾 71 香港 81 澳门 82 国外 91 % dim obj set obj=new IDCard response.Write obj.check() response.Write br response.Write obj.card15_18() set obj=nothing class IDCard private card Private Sub Class_Initialize() End Sub Private Sub Class_Terminate() End Sub public function check(strIn) dim bFlag,l bFlag=true card=trim(strIn) l=len(card) if l15 and l18 then bFlag=false else if l=18 then bFlag=check18(card) else dim tmp tmp=mid(card,9,1) if instr(01,tmp)0 then tmp=mid(card,11,1) if instr(0123,tmp)0 then bFlag=true else bFlag=false end if else bFlag=false end if end if end if check=bFlag end function private function check18(strIn) dim bFlag,l strIn=trim(strIn) l=len(strIn) if l=18 then dim m m = Array(0,7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2) dim i,t,n t=0 for i=1 to 17 t = t + cint(mid(strIn,i,1)) * m(i) next n=t mod 11 dim last last = (12-n) mod 11 if last=10 then last=X end if if ucase(last)=ucase(right(strIn,1)) then bFlag=true else bFlag=false end if else bFlag=false end if check18=bFlag end function public function card15_18(strIn) dim tmp,newCard