vbscript和javascript版的15位, 18位的身份证号码的验证函数.以及根据身份证取省份,生日,性别_vbs

工作中需要用到身份证验证,还要支持检查15位和18位。
我一时手懒,问同事有没有现成的函数可用,同事google了一下,扔给我一个 asp-vbscript版本的函数。
可我这边是客户端javascript呀,于是用改 vbs-->js
改完发现蛮好用的,同时发现 vbscript真的很啰嗦,居然写了50多行,我改成js 只用了11行。
当然,我并完全是指vbscript啰嗦,那个写这段vbs代码的无名氏也是个唐僧性格.....

先放出 vbscript代码,   

复制代码 代码如下:

<script language="vbscript"> 

'功能:检查身份证号码 
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  
</script> 

再放出 javascript版本代码

复制代码 代码如下:

function checkId(pId){ 
//检查身份证号码 Go_Rush(阿舜) from http://ashun.cnblogs.com 

    var arrVerifyCode = [1,0,"x",9,8,7,6,5,4,3,2]; 
    var Wi = [7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2]; 
    var Checker = [1,9,8,7,6,5,4,3,2,1,1]; 

    if(pId.length != 15 && pId.length != 18)    return "身份证号共有 15 码或18位"; 

    var Ai=pId.length==18 ?  pId.substring(0,17)   :   pId.slice(0,6)+"19"+pId.slice(6,16); 

    if (!/^\d+$/.test(Ai))  return "身份证除最后一位外,必须为数字!"; 

    var yyyy=Ai.slice(6,10) ,  mm=Ai.slice(10,12)-1  ,  dd=Ai.slice(12,14); 

    var d=new Date(yyyy,mm,dd) ,  now=new Date(); 
     var year=d.getFullYear() ,  mon=d.getMonth() , day=d.getDate(); 

    if (year!=yyyy || mon!=mm || day!=dd || d>now || year<1940) return "身份证输入错误!"; 

    for(var i=0,ret=0;i<17;i++)  ret+=Ai.charAt(i)*Wi[i];     
    Ai+=arrVerifyCode[ret %=11];      

    return pId.length ==18 && pId != Ai?"身份证输入错误!":Ai;         
}; 

至于身份证算法的原理,请参阅:  http://www.google.com/

最后,根据身份证号码取  省份,生日,性别就很简单了

复制代码 代码如下:

<script language="javascript"> 
var id="342201570202003"  

//根据身份证取 省份,生日,性别  Go_Rush(阿舜) from http://ashun.cnblogs.com/ 
function getInfo(id){ 
    var arr=[null,null,null,null,null,null,null,null,null,null,null,"北京","天津","河北","山西","内蒙古" 
             ,null,null,null,null,null,"辽宁","吉林","黑龙江",null,null,null,null,null,null,null,"上海" 
             ,"江苏","浙江","安微","福建","江西","山东",null,null,null,"河南","湖北","湖南","广东","广西","海南" 
             ,null,null,null,"重庆","四川","贵州","云南","西藏",null,null,null,null,null,null,"陕西","甘肃" 
             ,"青海","宁夏","新疆",null,null,null,null,null,"台湾",null,null,null,null,null,null,null,null 
             ,null,"香港","澳门",null,null,null,null,null,null,null,null,"国外"] 
    id=checkId(id) 
    if (isNaN(id)) return "错误的身份证号码"     
    var id=String(id),  prov=arr[id.slice(0,2)]  ,  sex=id.slice(14,17)%2?  "男" : "女" 
    var birthday=(new Date(id.slice(6,10) , id.slice(10,12)-1 , id.slice(12,14))).toLocaleDateString()  
    return [prov,birthday,sex]   

alert(getInfo(id))  
</script> 

上面的代码只能取到省份,要取到具体城市,请看我的另外一个随笔,
代码只拿我和几个同事的身份证号码测了一下,如果有Bug,请指出

时间: 2024-09-15 18:17:25

vbscript和javascript版的15位, 18位的身份证号码的验证函数.以及根据身份证取省份,生日,性别_vbs的相关文章

javascript 正则表达式 问题 15位或18位 怎么 写?谢谢

问题描述 这个是 匹配 15位--18位 的 re = /^d{15} ¦d{}18$/; 把它改写为 只匹配 15位 或者 18 位 的该怎么写,谢谢,分不多,谢谢! 解决方案 将正则改为:/^d{15}$|^d{18}$/就可以了.

PHP实现身份证号正则验证(兼容15,18位)

  最近复习了正则表达式的使用,手痒痒就做了一份验证正则,身份证号验证(兼容15,18位) ,在注册验证的时候可以用上.   01 //比较菜鸟 第一次分享代码   02 //身份证号验证 03     protected function checkIdCard(){ 04         if(empty($_POST['idcard'])){ 05             return false; 06         } 07         $idcard = $_POST['idc

javascript 身份证号码验证函数(可辨真伪,支持15或18位身份证号)测试误差为0_javascript技巧

[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行] 更直接的测试代码就是:alert(test("身份证号码")); 经测试,上面的JS验证太强大了,输入正确的身份证后,随便改一位都报错!非常实用,以后大家就方便了解用户输入的身份证的正确与否了.

身份证号码的匹配的js代码&lt;15位/18位&gt;

身份证号码可以是15位或者是18位,其中最后一位可以是X.其它全是数字,正则如下:  代码如下 复制代码  /^(d{14}|d{17})(d|[xX])$/ 开头是14位或者17位数字,结尾可以是数字或者是x或者是X. 测试代码如下:  代码如下 复制代码  <script type="text/javascript">  function testReg(reg,str){   return reg.test(str);  }  var reg = /^(d{14}|d

java,javascript对18位身份证格式的验证算法

参考资料 1 java实现的18位身份证格式验证算法 http://fanqiang.chinaunix.net/program/java/2006-06-22/4639.shtml 原码中有少许错误,我已经调整过来了 2 身份证效验规则,经典 http://since2006.com/blog/176 公民身份号码是特征组合码,由十七位数字本体码和一位数字校验码组成.排列顺序从左至右依次为:六位数字地址码,八位数字出生日期码,三位数字顺序码和一位数字校验码. 1.地址码 表示编码对象常住户口所

Excel中将15位身份证号转换为18位

  假设A列自A2起是身份证号(15位或18位). 1.身份证号全部改为18位,输入数组公式:=IF(LEN(A2)=15,REPLACE(A2,7,,19)&MID("10X98765432",MOD(SUM(MID(REPLACE(A2,7,,19) ,ROW(INDIRECT("1:17")),1)*2^(18-ROW(INDIRECT("1:17")))),11)+1,1),A2) 注意:数组公式输入方法:输入公式后不要按回车,而

15位和18位身份证JS校验的简单实例_javascript技巧

一.身份证号码的结构和表示形式 1.号码的结构 根据[中华人民共和国国家标准GB11643-1999]中有关公民身份号码的规定,公民身份号码是特征组合码,由十七位数字本体码和一位校验码组成.排列顺序从左至右依次为:六位数字地址码,八位数字出生日期码,三位数字顺序码和一位数字校验码. 2.地址码 表示编码对象常住户口所在县(市.旗.区)的行政区划代码,按GB/T2260的规定执行. 3.出生日期码 表示编码对象出生的年.月.日,按GB/T7408的规定执行,年.月.日代码之间不用分隔符. 4.顺序

MaxCompute UDF系列之身份证校验及15位身份证号码转换成18位

为了验证一些老证件上的身份证号码到底是不是本人,今天为大家提供一个15位身份证号码转换成18位的MaxCompute的UDF,下载地址见附件. 效果如下: MaxCompute UDF代码如下: /*** * 身份证号码构成:6位地址编码+8位生日+3位顺序码+1位校验码 * 验证15位,18位证件号码是否有效:15位号码将直接转为18位: * 校验身份证号码除了校验位是否为数值,校验省份.出生日期 * 校验位不正确的会被正确的替代 * 出生日期逻辑有效性,即是否1900年前出生,是否当前日期后

一个18位身份证校验计算函数

函数|函数 因需要对15位旧身份证号码进行升位和校验.查询处理,又没有搜索到现成的函数,于是自己写了一个简单的过程,希望能够帮得上需要的朋友.本函数的功能单一,只能校验第18位号码是否正确或者取得第18位号码,其他功能留给大家自己扩展吧! <%' Version: 1.0.1' Author: sfply(sfply@163.com)' Last Modified: 2004/7/17 12:03' Src是身份证号码,可以是15位也可以是18位,15位时只能返回验证码方式使用' iChk参数取