身份证校验码产生方法：∑(ai×Wi)(mod 11)
i: 表示号码字符从由至左包括校验码在内的位置序号；
ai 表示第i位置上的号码字符值；
Wi 第i位置上的加权因子，其数值Wi=mod(power(2,(n-1)),11)
i 18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1Wi 7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2 1
相应的校验码:∑(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
下面是校验函数:
FUNCTION sfzjy(num)if len(num)=15 thencID = left(num,6)&"19"&right(num,9)elseif len(num)=17 or len(num)=18 thencID = left(num,17)end if nSum=mid(cID,1,1) * 7nSum=nsum+mid(cID,2,1) * 9 nSum=nsum+mid(cID,3,1) * 10 nSum=nsum+mid(cID,4,1) * 5 nSum=nsum+mid(cID,5,1) * 8 nSum=nsum+mid(cID,6,1) * 4nSum=nsum+mid(cID,7,1) * 2nSum=nsum+mid(cID,8,1) * 1nSum=nsum+mid(cID,9,1) * 6nSum=nsum+mid(cID,10,1) * 3nSum=nsum+mid(cID,11,1) * 7nSum=nsum+mid(cID,12,1) * 9nSum=nsum+mid(cID,13,1) * 10nSum=nsum+mid(cID,14,1) * 5nSum=nsum+mid(cID,15,1) * 8nSum=nsum+mid(cID,16,1) * 4nSum=nsum+mid(cID,17,1) * 2'*计算校验位check_number=12-nsum mod 11If check_number=10 thencheck_number="X"End ifIf check_number=12 thencheck_number="1"End ifIf check_number=11 thencheck_number="0"End ifsfzjy=check_numberEnd function
其它校验:性别与出生年月:
sfznum=身份证号码lenx=len(sfznum) if lenx=15 then yy="19"&mid(xian,7,2)mm=mid(xian,9,2)dd=mid(xian,11,2)aa=mid(xian,15,1) '15位身分证取第十五位,能被2整除为女性
end if if lenx=18 thenyy=mid(xian,7,4)mm=mid(xian,11,2)dd=mid(xian,13,2)aa=mid(xian,17,1) '18位身分证取第十七位,能被2整除为女性end if if aa mod 2=0 then xb="女"elsexb="男"end if
if lenx=18 thenif mid(xian,18,1)<>cstr(sfzjy(xian)) then '如果第十八位校验码不等于计算出的校验码则身份证号码有误.response.write "提示：身份证校验位错误!"elseresponse.write "结果：身份证号码校验为合法号码!" end ifelse '如果输入的是十五位号,则计算出十八位新号response.write "新身份证："&left(xian,6)&"19"&right(xian,9)&cstr(sfzjy(xian))end if
关于户籍判断则而要数据库.这里就不提供了.
摘自： http://www.webdn.com/web_file/program/asp/N0610774/