vbscript和javascript版的15位, 18位的身份證號(hào)碼的驗(yàn)證函數(shù).以及根據(jù)身份證取省份,生日,性別

更新時(shí)間：2007年04月12日 00:00:00 投稿：mdxy-dxy

工作中需要用到身份證驗(yàn)證,還要支持檢查15位和18位。
我一時(shí)手懶，問(wèn)同事有沒(méi)有現(xiàn)成的函數(shù)可用，同事google了一下，扔給我一個(gè) asp-vbscript版本的函數(shù)。
可我這邊是客戶(hù)端javascript呀，于是用改 vbs-->js
改完發(fā)現(xiàn)蠻好用的，同時(shí)發(fā)現(xiàn) vbscript真的很啰嗦，居然寫(xiě)了50多行，我改成js 只用了11行。
當(dāng)然,我并完全是指vbscript啰嗦，那個(gè)寫(xiě)這段vbs代碼的無(wú)名氏也是個(gè)唐僧性格.....

先放出 vbscript代碼,

復(fù)制代碼代碼如下:

<script language="vbscript"> 

’功能:檢查身份證號(hào)碼 
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= "身份證號(hào)共有 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= "身份證除最后一位外，必須為數(shù)字！"          
        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= "身份證輸入錯(cuò)誤！"  
            Exit Function  
        End If  
        If strMonth > 12 Or strDay > 31 Then  
            CheckCardId= "身份證輸入錯(cuò)誤！"  
            Exit Function  
        End If  
    Else  
        CheckCardId= "身份證輸入錯(cuò)誤！"  
        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= "身份證輸入錯(cuò)誤！"  
        Exit Function  
    End If  
End Function  
</script> 

再放出 javascript版本代碼

復(fù)制代碼代碼如下:

function checkId(pId){ 
//檢查身份證號(hào)碼 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 "身份證號(hào)共有 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 "身份證除最后一位外，必須為數(shù)字！"; 

    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 "身份證輸入錯(cuò)誤！"; 

    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?"身份證輸入錯(cuò)誤！":Ai;         
}; 

至于身份證算法的原理,請(qǐng)參閱: http://www.google.com/

最后，根據(jù)身份證號(hào)碼取省份，生日，性別就很簡(jiǎn)單了

復(fù)制代碼代碼如下:

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

//根據(jù)身份證取 省份,生日，性別  Go_Rush(阿舜) from http://ashun.cnblogs.com/ 
function getInfo(id){ 
    var arr=[null,null,null,null,null,null,null,null,null,null,null,"北京","天津","河北","山西","內(nèi)蒙古" 
             ,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,"臺(tái)灣",null,null,null,null,null,null,null,null 
             ,null,"香港","澳門(mén)",null,null,null,null,null,null,null,null,"國(guó)外"] 
    id=checkId(id) 
    if (isNaN(id)) return "錯(cuò)誤的身份證號(hào)碼"     
    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> 