|
今天论坛上有人要这个代码，有人转贴了个vb的，图方便就随便改写成了vbs的,并取消了1900年前的判断，希望原vb作者不要见怪。 如下： <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Function GetNewIDCard(IDCard) Dim i, S ,Wi,Wf,result Wi= split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2",",",-1,1) Wf= Split("1,0,X,9,8,7,6,5,4,3,2", ",",-1,1) IDCard = Mid(IDCard, 1, 6) & "19" & Mid(IDCard, 7, 9) S=0 For i = 0 To ubound(wi) S = cint(Wi(i)) *cint(Mid(IDCard, i + 1, 1)) +S Next GetNewIDCard=IDCard & Wf(S Mod 11) End Function IDCard=request("idcard") if IDCard<>empty then newidcard=GetNewIDCard(IDCard) response.Write(newidcard) end if %> <form action="" method="post"> <input name="idcard" value="340524800101001"> </form> ---------------------------------- 运行结果： ------------------------ 下边是转发的sfply(随风飘零叶)的规则： 根据〖中华人民共和国国家标准 GB 11643-1999〗中有关公民身份号码的规定，公民身份号码是特征组合码，由十七位数字本体码和一位数字校验码组成。排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码和一位数字校验码。 地址码表示编码对象常住户口所在县(市、旗、区)的行政区划代码。生日期码表示编码对象出生的年、月、日，其中年份用四位数字表示，年、月、日之间不用分隔符。顺序码表示同一地址码所标识的区域范围内，对同年、月、日出生的人员编定的顺序号。顺序码的奇数分给男性，偶数分给女性。校验码是根据前面十七位数字码，按照ISO 7064:1983.MOD 11-2校验码计算出来的检验码。下面举例说明该计算方法。 15位的身份证编码首先把出生年扩展为4位，简单的就是增加一个19，但是这对于1900年出生的人不使用（这样的寿星不多了） 某男性公民身份号码本体码为34052419800101001，首先按照公式⑴计算： ∑(ai×Wi)(mod 11)……………………………………(1) |