ID 카드 확인 코드 기능
functioncheckcardid (e)
ArrverifyCode = Split ( "1,0, X, 9,8,7,6,5,4,3,2", ")
WI = 분할 ( "7,9,10,5,4,2,1,6,3,9,9,10,5,8,2", ")
검사기 = 분할 ( "1,9,8,7,6,5,4,3,3,2,1,1", "),")
iflen (e) <15orlen (e) = 16orlen (e) = 17orlen (e)> 18then
CheckCardid = "ID 번호에는 총 15 개의 코드 또는 18 자리가 있습니다."
CheckCardid = false
종료 기능
endif
디마
iflen (e) = 18then
AI = 중간 (E, 1,17)
elseiflen (e) = 15then
ai = e
ai = 왼쪽 (ai, 6) & "19"& mid (ai, 7,9)
endif
그런 다음 ifnotisnumeric (ai)
CheckCardid = "마지막 숫자를 제외하고 ID 카드는 숫자 여야합니다!"
종료 기능
endif
Dimstryear, strmonth, strday
stryear = cint (Mid (ai, 7,4))
strmonth = cint (Mid (ai, 11,2))
strday = cint (Mid (ai, 13,2))
생일 = 트림 (stryear)+"-"+trim (strmonth)+"-"+trim (strday)
ifisdate (생일) 그런 다음
ifdatediff ( "yyyy", 지금, 생일) <-140orcdate (생일)> date ()
CheckCardid = "신분증이 잘못 입력되었습니다!"
종료 기능
endif
ifstrmonth> 12orstday> 31then
CheckCardid = "신분증이 잘못 입력되었습니다!"
종료 기능
endif
또 다른
CheckCardid = "신분증이 잘못 입력되었습니다!"
종료 기능
endif
Dimi, Totalmulaiwi
fori = 0to16
TotalMulaiwi = TotalMulaiwi+Cint (MID (AI, I+1,1))*WI (I)
다음
DimModValue
modValue = TotalMulaiWimod11
DimstrVerifyCode
strverifyCode = ArrverifyCode (modValue)
ai = ai & strverifycode
CheckCardid = ai
iflen (e) = 18ande <> aithen
CheckCardid = "신분 카드 번호가 잘못 입력되었습니다!"
종료 기능
endif
최종 기능 장애
Response.WriteCheckCardid ( "528337194801020025") '' '' '' '' '' '' '' '' ''ID 카드가 누구인지 모르겠습니다 ~~~~~~~~~~~~~ haha
`` '' '이것은 반환 된 ID 카드가 입력되면 정확하다는 것을 의미합니다. 그렇지 않으면 오류가 촉진됩니다 ...