工作中需要用到身份證驗(yàn)證,還要支持檢查15位和18位。
我一時(shí)手懶，問同事有沒有現(xiàn)成的函數(shù)可用，同事google了一下，扔給我一個(gè) asp-vbscript版本的函數(shù)。
可我這邊是客戶端javascript呀，于是用改 vbs-->js
改完發(fā)現(xiàn)蠻好用的，同時(shí)發(fā)現(xiàn) vbscript真的很啰嗦，居然寫了50多行，我改成js 只用了11行。
當(dāng)然,我并完全是指vbscript啰嗦，那個(gè)寫這段vbs代碼的無名氏也是個(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)碼取 省份，生日，性別就很簡單了
復(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,"香港","澳門",null,null,null,null,null,null,null,null,"國外"]
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>

上面的代碼只能取到省份，要取到具體城市，請(qǐng)看我的另外一個(gè)隨筆，代碼只拿我和幾個(gè)同事的身份證號(hào)碼測(cè)了一下，如果有Bug,請(qǐng)指出。

詳細(xì)出處參考：http://www.jb51.net/article/9385.htm

該文章在 2012/5/4 8:41:43 編輯過