亚洲高清偷拍一区二区三区-亚洲高清网站-亚洲高清网站在线-亚洲高清无码-亚洲高清无码成人av-亚洲高清无码第一

萬企互聯-專注高端網站建設
掃描關注萬企互聯微信公眾賬號

掃一掃微信二維碼

asp實現判斷身份證號碼是否正確的方法

編程代碼?2022/2/15? 485

在網頁中經常需要輸入正確的身份證號碼,只能通過程序來驗證身份證格式。根據身份證號碼生成的原理,就是驗證后面幾位就可以了。


<%
'身份證校驗
Function CheckidCard(idcard)
Dim LenCard
LenCard=Len(idcard)
'判斷身份證長度
if not (LenCard = 15 Or LenCard = 18) Then
CheckidCard= "身份證長度不是15位或18位"
exit Function
End If
'變量聲明區
dim WeightedFactor,VerifyCode,area,birthday,lastnum,Ai,i,Total,Modnum,sex,age,province,sexNum,provinceID
WeightedFactor = array(7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2) '為前17位各個數字對應的加權因子
VerifyCode = array(1,0,"x",9,8,7,6,5,4,3,2) '通過模得到的校驗碼
area="11北京,12天津,13河北,14山西,15內蒙古,21遼寧,22吉林,23黑龍江,31上海,32江蘇,33浙江,34安徽,35福建,36江西,37山東,41河南,42湖北,43湖南,44廣東,45廣西,46海南,50重慶,51四川,52貴州,53云南,54西藏,61陜西,62甘肅,63青海,64寧夏,65新疆,71臺灣,81香港,82澳門,91國外"
'判斷地區
provinceID=left(idcard,2)
  if instr(area,provinceID)=0 then
    CheckidCard= "身份證頭2位錯誤"
    exit function
  end If
'補齊15位卡號
if LenCard= 15 then  idcard=left(idcard,6) & "19" & mid(idcard,7,9)
'判斷生日
birthday= mid(idcard,7,4)+"-"+mid(idcard,11,2)+"-"+mid(idcard,13,2)
if not  isdate(birthday) then
CheckidCard=  "生日非法"
exit function
end If
if datediff("yyyy",cdate(birthday),date())<18 then
     CheckidCard= "你還未滿18歲,不可能有身份證的"
      exit function
end If
'判斷檢驗碼
  if len(idcard)=18 then
lastnum=int(right(idcard,1)) 'lastnum為18位身份證最后一位
   Ai=left(idcard,17) 'Ai為除最后一位字符的字串
    For i = 0 To 16
     Total = Total + cint(Mid(Ai,i+1,1)) * WeightedFactor(i) 'Total前17位數字與對應的加權因子積的和
    Next
    Modnum=total mod 11 '此數為模,total除以11后的余數
    if VerifyCode(Modnum)<>lastnum then
     CheckidCard= "最后一位校驗碼不對"
     exit function
    end if
  end If
'計算性別
sexNum=mid(idcard,17,1)
sex="男性"
if   (sexNum mod 2) =0 then sex="女性"
'計算年齡
age=datediff("yyyy",cdate(birthday),date())
'計算省份
province=mid(area,instr(area,provinceID)+2,3)
province=replace(province,",","")
CheckidCard= "恭喜,身份證通過校驗<br/>" & "您為:" & sex & ",來自于:" & province & ",生日為:" & birthday
End Function
%>
文章關鍵詞
asp
身份證
萬企互聯 咸陽網站建設 萬企微信 IDC主機測評 域名轉發系統 IP地址查詢 萬企工具 超越彼岸BEYOND 六佰號MSDN系統 TOP圖標庫 六百號技術 秦漢新城眾創保潔服務有限公司
主站蜘蛛池模板: 视频偷窥在线精品国自产拍 | 国产成人精品亚洲精品 | 一级一级毛片看看 | 久久精品免费国产一区二区三区 | 成人欧美一区二区三区在线播放 | 亚洲一区二区国产精品 | 一级做a爱片在线播放 | 日韩欧美视频免费观看 | 国产无吗一区二区三区在线欢 | 51无码人妻精品1国产 | 日韩精品人妻 | 大学生做爰全过程免费的视频 | 久久精品女人天堂av免费观看 | 国产偷窥熟妇高潮呻吟 | 久久久久99精品成人片我成大片 | 一级日本高清视频免费观看 | 精品无码一区二区三区视频在 | 蜜桃精品免费久久久久影院 | 国产成人无码一区二区在线播放 | 精产国品一区二区三产区 | 国产福利最新在线观看 | 久久精品国产日本波多野结衣 | 日韩加勒比无码人妻系列 | 日韩欧美中文字幕一区 | 五月色播影音先锋丁香 | 国产精品视频一区二区猎奇 | 日日摸夜夜添夜夜添久久 | 成人无码国产一区二 | 亚洲第一页在线播放 | 日本一卡2卡3卡四卡精品网站 | 2024年最新偷拍视频一区 | 在线观看精品自拍视频 | 日韩欧美a∨中文字幕国产自产一区c | 无码免费一区二区三区免费播放 | AV国产精品无码市川京子 | 久久精品国产亚洲av麻豆导航 | 中文字幕欧美人妻精品一区 | 韩国无码av片在线观看网站 | 国产自国产自愉自愉免费24区 | 在线播放一区二区 | 2024在线精品自偷自拍无 |