Funktion 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, ,)
Wenn Len(e) < 15 oder Len(e) = 16 oder Len(e) = 17 oder Len(e) > 18, dann
CheckCardId= Die ID-Nummer besteht aus 15 oder 18 Ziffern.
CheckCardId = Falsch
Exit-Funktion
Ende wenn
Dim A
Wenn Len(e) = 18, dann
Ai = Mid(e, 1, 17)
ElseIf Len(e) = 15 Then
Ai=e
Ai = Links (Ai, 6) & 19 & Mitte (Ai, 7, 9)
Ende wenn
Wenn nicht, istNumeric(Ai) dann
CheckCardId= Der Ausweis muss bis auf die letzte Ziffer aus Zahlen bestehen!
Exit-Funktion
Ende wenn
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
Wenn DateDiff(yyyy,Now,BirthDay) <-140 oder cdate(BirthDay)> date() Dann
CheckCardId= Falsche Ausweiseingabe!
Exit-Funktion
Ende wenn
Wenn strMonth > 12 oder strDay > 31, dann
CheckCardId= Falsche Ausweiseingabe!
Exit-Funktion
Ende wenn
Anders
CheckCardId= Falsche Ausweiseingabe!
Exit-Funktion
Ende wenn
Dim i,TotalmulAiWi
Für i = 0 bis 16
TotalmulAiWi = TotalmulAiWi + CInt(Mid(Ai, i + 1, 1)) * Wi(i)
Nächste
ModValue dimmen
modValue = TotalmulAiWi Mod 11
Dimmen Sie strVerifyCode
strVerifyCode = arrVerifyCode(modValue)
Ai = Ai & strVerifyCode
CheckCardId = Ai
Wenn Len(e) = 18 und e <> Ai, dann
CheckCardId= Falsche ID-Nummer eingegeben!
Exit-Funktion
Ende wenn
Funktion beenden
Response.write CheckCardId(528337194801020025) ' ' ' ' ' ' ' '