Função do código de verificação do cartão de identificação
FunctionCheckCardid (e)
arrverifyCode = split ("1,0, x, 9,8,7,6,5,4,3,2", ")
Wi = dividido ("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2", ")
Verificador = split ("1,9,8,7,6,5,4,3,2,1,1", "),")
Iflen (e) <15orlen (e) = 16orlen (e) = 17orlen (e)> 18then
Checkcardid = "O número de identificação possui 15 códigos ou 18 dígitos no total"
CheckCardid = false
Saída de saída
Endif
Dimai
Iflen (e) = 18then
Ai = MID (E, 1,17)
Elseiflen (e) = 15then
Ai = e
Ai = esquerda (ai, 6) e "19" & Mid (ai, 7,9)
Endif
Ifnotisnumeric (ai) então
Checkcardid = "Exceto o último dígito, o cartão de identificação deve ser um número!"
Saída de saída
Endif
DimStryear, Strmonth, Strday
stryear = cint (MID (AI, 7,4))
strmonth = cint (MID (AI, 11,2))
strday = cint (MID (AI, 13,2))
Aniversário = acabamento (stryear)+"-"+acabamento (strmonth)+"-"+acabamento (strday)
Ifisdate (aniversário) então
Ifdatediff ("AAA", agora, aniversário) <-140orcdate (aniversário)> date () então
Checkcardid = "Cartão de identidade inserido incorretamente!"
Saída de saída
Endif
IFSTRMONTH> 12STRAYDAY> 31THEN
Checkcardid = "Cartão de identidade inserido incorretamente!"
Saída de saída
Endif
Outro
Checkcardid = "Cartão de identidade inserido incorretamente!"
Saída de saída
Endif
Dimi, TotalMulaiwi
Fori = 0to16
Totalmulaiwi = totalmulaiwi+cint (MID (AI, i+1,1))*Wi (i)
Próximo
Dimmodvalue
ModValue = totalMulaiwimod11
DIMSTRVERIFICECODE
strverifyCode = arrverifyCode (modValue)
AI = AI & StrverifyCode
Checkcardid = ai
Iflen (e) = 18ande <> aithen
Checkcardid = "Número do cartão de identidade inserido incorretamente!"
Saída de saída
Endif
Função final
Response.WritecheckCardid ("528337194801020025") '' '' '' '' '' '' '', eu não sei de quem é o cartão de identificação, eu tentei ~~~~~~~~~~~ ~ haha
'' '' 'Isto se o cartão de identificação retornado for inserido, significa que está correto; caso contrário, um erro será solicitado ...