佳木斯湛栽影视文化发展公司
主頁(yè) > 知識(shí)庫(kù) > asp身份證驗(yàn)證代碼函數(shù)

asp身份證驗(yàn)證代碼函數(shù)
熱門(mén)標(biāo)簽：Mysql連接數(shù)設(shè)置 科大訊飛語(yǔ)音識(shí)別系統(tǒng) Linux服務(wù)器 阿里云 團(tuán)購(gòu)網(wǎng)站 服務(wù)器配置 電子圍欄 銀行業(yè)務(wù)
身份證驗(yàn)證代碼函數(shù)

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= "身份證號(hào)碼輸入錯(cuò)誤！"
Exit Function
End If
End Function

response.write CheckCardId("528337194801020025") '''''''''這個(gè)不知是誰(shuí)的身份證,我一試就出來(lái)了~~~~~~~~~哈哈


'''''這個(gè)如果返回的是輸入的身份證,則表明正確,否則會(huì)提示出錯(cuò)... 



您可能感興趣的文章:
  • javascript身份證驗(yàn)證代碼
  • js身份證驗(yàn)證超強(qiáng)腳本
  • java身份證驗(yàn)證代碼實(shí)現(xiàn)

標(biāo)簽：大理 衢州 萍鄉(xiāng) 棗莊 衡水 蚌埠 廣元 江蘇

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《asp身份證驗(yàn)證代碼函數(shù)》，本文關(guān)鍵詞  ；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 收縮
    • 微信客服
    • 微信二維碼

    • 電話(huà)咨詢(xún)

    • 400-1100-266
    兴山县| 沂源县| 宣武区| 嘉祥县| 延边| 司法| 富宁县| 宜都市| 财经| 德阳市| 株洲市| 文安县| 湄潭县| 台中市| 平果县| 宁都县| 麟游县| 崇义县| 中牟县| 资阳市| 望都县| 嘉兴市| 古田县| 岳池县| 中江县| 澄城县| 高要市| 安丘市| 朝阳县| 中超| 布尔津县| 阿鲁科尔沁旗| 汤原县| 长海县| 沁水县| 北海市| 溧水县| 罗江县| 金秀| 社会| 和顺县|