婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > asp身份證驗(yàn)證代碼函數(shù)

asp身份證驗(yàn)證代碼函數(shù)

熱門標(biāo)簽:無營業(yè)執(zhí)照地圖標(biāo)注教學(xué) 外呼系統(tǒng)怎么話費(fèi) 硅基電話機(jī)器人加盟 宿州防封外呼系統(tǒng)平臺 高質(zhì)量的電銷外呼系統(tǒng) 友邦互聯(lián)電銷機(jī)器人違法嗎 電銷機(jī)器人采購 滴滴地圖標(biāo)注上車點(diǎn) 地圖標(biāo)注還可以做嗎
身份證驗(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= "身份證號共有 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= "身份證輸入錯誤!"

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

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


'''''這個如果返回的是輸入的身份證,則表明正確,否則會提示出錯... 



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

標(biāo)簽:宣城 廣元 儋州 江門 錫林郭勒盟 雅安 七臺河 新余

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《asp身份證驗(yàn)證代碼函數(shù)》,本文關(guān)鍵詞  asp,身份證,驗(yàn)證,代碼,函數(shù),;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《asp身份證驗(yàn)證代碼函數(shù)》相關(guān)的同類信息!
  • 本頁收集關(guān)于asp身份證驗(yàn)證代碼函數(shù)的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章
    主站蜘蛛池模板: 报价| 湘乡市| 土默特右旗| 米脂县| 额敏县| 德令哈市| 安化县| 定襄县| 荥经县| 黄山市| 承德县| 庆元县| 秭归县| 萍乡市| 通山县| 罗田县| 阿城市| 凤山市| 临澧县| 唐山市| 邵阳市| 曲麻莱县| 辽宁省| 牡丹江市| 金阳县| 中西区| 曲沃县| 永安市| 莆田市| 通州市| 湛江市| 揭阳市| 蒙阴县| 东海县| 天柱县| 铁岭县| 唐河县| 剑川县| 彰武县| 东辽县| 万荣县|