三沣开发知识 购物 网址 游戏 小说 歌词 地图 快照 开发 股票 美女 新闻 笑话 | 汉字 软件 日历 阅读 下载 图书馆 编程 租车 短信 China
TxT小说阅读器
↓语音阅读,小说下载,古典文学↓
图片批量下载器
↓批量下载图片,美女图库↓
多播视频美女直播
↓电视,电影,美女直播,迅雷资源↓
一键清除垃圾
↓轻轻一点,清除系统垃圾↓
vbs/VBScript DOS/BAT hta htc python perl 游戏相关 VBA 远程脚本 ColdFusion ruby专题
autoit seraphzone PowerShell linux shell Lua Golang Erlang 其它教程 CSS/HTML/Xhtml
html5 CSS XML/XSLT Dreamweaver教程 经验交流 开发者乐园 Android开发资料
站长资讯 .NET新手 ASP.NET C# WinForm Silverlight WCF CLR WPF XNA VisualStudio ASP.NET-MVC .NET控件开发 EntityFramework WinRT-Metro Java C++ PHP Delphi Python Ruby C语言 Erlang Go Swift Scala R语言 Verilog 其它语言 架构设计 面向对象 设计模式 领域驱动 Html-Css JavaScript jQuery HTML5 SharePoint GIS技术 SAP OracleERP DynamicsCRM K2 BPM 信息安全 企业信息 Android开发 iOS开发 WindowsPhone WindowsMobile 其他手机 敏捷开发 项目管理 软件工程 SQLServer Oracle MySQL NoSQL 其它数据库 Windows7 WindowsServer Linux
  IT知识库 -> vbs/VBScript -> vbscript和javascript版的15位, 18位的身份证号码的验证函数.以及根据身份证取省份,生日,性别 -> 正文阅读
  vbs/VBScript 最新文章
VBS常用脚本 好东西
按键精灵 脚本-学习VBS的一个不错的教程
运行bat时隐藏cmd窗口的方法(bat隐藏窗口 隐
vbs脚本大全,配有实例 DOS命令,批处理 脚
VBS操作Excel常见方法
vbs脚本病毒生成器 下载
VBS教程:函数-GetObject 函数
VBS教程:方法-GetExtensionName 方法
Msxml2.XMLHTTP Msxml2.ServerXMLHTTP与缓存
校准系统时间的VBS代码

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

vbscript和javascript版的15位, 18位的身份证号码的验证函数.以及根据身份证取省份,生日,性别 工作中需要用到身份证验证,还要支持检查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,请指出
上一篇文章      下一篇文章      查看所有文章
加:2015-01-18 11:08:01  更:2017-05-14 00:08:47 
 
技术频道: 站长资讯 .NET新手区 ASP.NET C# WinForm Silverlight WCF CLR WPF XNA Visual Studio ASP.NET MVC .NET控件开发 Entity Framework WinRT/Metro Java C++ PHP Delphi Python Ruby C语言 Erlang Go Swift Scala R语言 Verilog 其它语言 架构设计 面向对象 设计模式 领域驱动设计 Html/Css JavaScript jQuery HTML5 SharePoint GIS技术 SAP Oracle ERP Dynamics CRM K2 BPM 信息安全 企业信息化其他 Android开发 iOS开发 Windows Phone Windows Mobile 其他手机开发 敏捷开发 项目与团队管理 软件工程其他 SQL Server Oracle MySQL NoSQL 其它数据库 Windows 7 Windows Server Linux
脚本语言: vbs/VBScript DOS/BAT hta htc python perl 游戏相关 VBA 远程脚本 ColdFusion ruby专题 autoit seraphzone PowerShell linux shell Lua Golang Erlang 其它教程
网站开发: CSS/HTML/Xhtml html5 CSS XML/XSLT Dreamweaver教程 经验交流 开发者乐园 Android开发资料
360图书馆 软件开发资料 文字转语音 购物精选 软件下载 美食菜谱 新闻资讯 电影视频 小游戏 Chinese Culture 股票 租车
生肖星座 三丰软件 视频 开发 短信 中国文化 网文精选 搜图网 美图 阅读网 多播 租车 短信 看图 日历 万年历 2018年2日历
2018-2-23 20:12:45
多播视频美女直播
↓电视,电影,美女直播,迅雷资源↓
TxT小说阅读器
↓语音阅读,小说下载,古典文学↓
一键清除垃圾
↓轻轻一点,清除系统垃圾↓
图片批量下载器
↓批量下载图片,美女图库↓
  网站联系: qq:121756557 email:121756557@qq.com  IT知识库