濮阳杆衣贸易有限公司

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

asp身份證驗(yàn)證代碼函數(shù)
熱門(mén)標(biāo)簽：無(wú)營(yíng)業(yè)執(zhí)照地圖標(biāo)注教學(xué) 外呼系統(tǒng)怎么話(huà)費(fèi) 硅基電話(huà)機(jī)器人加盟 宿州防封外呼系統(tǒng)平臺(tái) 高質(zhì)量的電銷(xiāo)外呼系統(tǒng) 友邦互聯(lián)電銷(xiāo)機(jī)器人違法嗎 電銷(xiāo)機(jī)器人采購(gòu) 滴滴地圖標(biāo)注上車(chē)點(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= "身份證號(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)簽：宣城 廣元 儋州 江門(mén) 錫林郭勒盟 雅安 七臺(tái)河 新余

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《asp身份證驗(yàn)證代碼函數(shù)》，本文關(guān)鍵詞  asp,身份證,驗(yàn)證,代碼,函數(shù),；如發(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)文章
  • 下面列出與本文章《asp身份證驗(yàn)證代碼函數(shù)》相關(guān)的同類(lèi)信息！
  • 本頁(yè)收集關(guān)于asp身份證驗(yàn)證代碼函數(shù)的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章
    竹山县| 年辖：市辖区| 合作市| 驻马店市| 田林县| 织金县| 仙居县| 兴城市| 临沧市| 云和县| 石景山区| 上犹县| 长阳| 龙口市| 黄大仙区| 茂名市| 山东| 永新县| 綦江县| 同德县| 高碑店市| 大理市| 芜湖市| 石狮市| 荣成市| 绩溪县| 望谟县| 北流市| 永嘉县| 通化市| 翁牛特旗| 乌什县| 叙永县| 柘荣县| 乃东县| 新干县| 云林县| 湟源县| 迁西县| 镇江市| 会同县|