asp身分証認証コード関数

身分証明書認証コード関数Function CheckCard(e)arrVerityCode = 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 The n CheckCard= "身分証番号は全部持っています 15 コードまたは18桁「CheckCard Id」 = False Exit Function End If Dim Ai If Len(e) = 18 The n Ai = Mid(e 1, 17）ElseIf Len(e) = 15 The n Ai = e Ai = Left(Ai 6） & "19” & Mid(Ai 7, 9）End If If Not IsNumeric(Ai) The n CheckCard= "身分証は最後の方以外は数字でなければなりません。Exit Function End If Dim stryear strunth stry streear = CInt(Mid(Ai) 7, 4）ストレス = CInt(Mid(Ai) 11, 2）stry = CInt(Mid(Ai) 13, 2）BirthDay = トリム（streear） + "-" + Trim(strumenh) + "-" + Trim If IsDate(BirthDay) The n If DateDiff(「yyy」，Now，BirthDay)<-140 or cdate(BirthDay)>date() The n CheckCard= "身分証の入力が間違っています。Exit Function End If If strumenh > 12 Or stry > 31 The n CheckCard= "身分証の入力が間違っています。Exit Function End If Else CheckCard= "身分証の入力が間違っています。Exit Function End If Dim i， TotalmulAiWi For i = 0 To 16 TotalmutalAiWi = TotalmulAiWi + CInt(Mid(Ai) i + 1, 1） * Wi(i)Next Dim modValue modValue = TotalmulAiWi Mod 11ディム ストリップVerifyCode str Ver.ifyCode = arr VerifyCode(modValue)Ai = Ai & str VerifyCode CheckCard = Ai If Len(e) = 18 And e <> Ai The n CheckCard= "身分証番号の入力が間違っています。Exit Function End If End Functionレスポンス.write CheckCard(「5283371948010205」) '''''''''これは誰の身分証なのか分かりません。試してみたら出てきました。