Fonction de code de vérification de la carte d'identité
FonctionCheckCardid (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", "),")
Iflen (e) <15orlen (e) = 16orlen (e) = 17orlen (e)> 18Then
CheckCardid = "Le numéro d'identification a 15 codes ou 18 chiffres au total"
CheckCardid = false
Sortie
Endire
Dimai
Iflen (e) = 18Then
Ai = Mid (E, 1,17)
Elseiflen (e) = 15Then
Ai = e
Ai = Left (Ai, 6) & "19" & Mid (Ai, 7,9)
Endire
Ifnotisnumeric (ai) alors
CheckCardid = "sauf le dernier chiffre, la carte d'identité doit être un nombre!"
Sortie
Endire
DimStryear, Strmonth, Strday
Stryear = Cint (Mid (Ai, 7,4))
strmonth = cint (mid (ai, 11,2))
Strday = Cint (Mid (Ai, 13,2))
Anniversaire = garniture (stryear) + "-" + trim (strmmonth) + "-" + trim (stray)
Ifisdate (anniversaire) alors
Ifdatediff ("yyyy", maintenant, anniversaire) <- 140orcdate (anniversaire)> date () puis
CheckCardid = "Carte d'identité entrée incorrectement!"
Sortie
Endire
Ifstrmonth> 12ORSTRADAY> 31THEN
CheckCardid = "Carte d'identité entrée incorrectement!"
Sortie
Endire
Autre
CheckCardid = "Carte d'identité entrée incorrectement!"
Sortie
Endire
Dimi, Totalmulaiwi
Fori = 0to16
TotalMulaiwi = TotalMulaiwi + Cint (Mid (Ai, I + 1,1)) * Wi (i)
Suivant
Dimmodvalue
modvalue = totalmulaiwimod11
Dimstrverifycode
StrverifyCode = ArrverifyCode (modValue)
AI = AI & StrverifyCode
CheckCardid = Ai
Iflen (e) = 18ande <> aithen
CheckCardid = "Numéro de carte d'identité entré incorrectement!"
Sortie
Endire
Finition de fin
Response.WriteCheckCardid ("528337194801020025") '' '' '' '' '' '' '' Je ne sais pas à qui la carte d'identité est, je l'ai essayé ~~~~~~~~~~~~~ haha haha
'' '' '' '' Si la carte d'identité retournée est entrée, cela signifie qu'il est correct, sinon une erreur sera invitée ...