ASP身份证验证

原创 2005年04月24日 21:43:00
Function IDCheck(e)
IDCheck = true
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", ",")
If Len(e) < 15 Or Len(e) = 16 Or Len(e) = 17 Or Len(e) > 18 Then
'IDCheck= "身份证号共有 15 码或18位"
IDCheck = False
Exit Function
End If
Dim Ai
If Len(e) = 18 Then
Ai = Mid(e, 1, 17)
ElseIf Len(e) = 15 Then
Ai = e
Ai = Left(Ai, 6) & "19" & Mid(Ai, 7, 9)
End If
If Not IsNumeric(Ai) Then
'IDCheck= "身份证除最后一位外,必须为数字!"
IDCheck = False
Exit Function
End If
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
If DateDiff("yyyy",Now,BirthDay)<-140 or cdate(BirthDay)>date() Then
'IDCheck= "身份证输入错误!"
IDCheck = False
Exit Function
End If
If strMonth > 12 Or strDay > 31 Then
IDCheck = False
'IDCheck= "身份证输入错误!"
Exit Function
End If
Else
'IDCheck= "身份证输入错误!"
IDCheck = False
Exit Function
End If
Dim i, TotalmulAiWi
For i = 0 To 16
TotalmulAiWi = TotalmulAiWi + CInt(Mid(Ai, i + 1, 1)) * Wi(i)
Next
Dim modValue
modValue = TotalmulAiWi Mod 11
Dim strVerifyCode
strVerifyCode = arrVerifyCode(modValue)
Ai = Ai & strVerifyCode
IDCheck = Ai
If Len(e) = 18 And e <> Ai Then
'IDCheck= "身份证号码输入错误!"
IDCheck = False
Exit Function
End If
End Function

AJAX+jQuery+ASP实现实时验证身份证信息是否已存在---人事系统

很多时候在网站上注册时,我们会发现,注册表单通常需要检查用户名和电子邮件地址的可用性;从而确保用户之间不拥有相同的用户名和电子邮件地址;一些网站喜欢在用户提交填写的用户信息时,做信息可用性的检查,而一...
  • lishehe
  • lishehe
  • 2013年10月29日 21:50
  • 8451

AJAX+asp识别身份证

  • 2007年12月16日 19:33
  • 84KB
  • 下载

Asp.net和第二代身份证读卡器互联

大家都知道,Asp.net是在服务器端执行的程序,无法直接与客户端的设备进行通信,但是客户提出了能否直接在网页上调用二代身份证读卡器。   一、解决思路     经过我们的分析,理论上是完全可行...

ASP.NET身份证查询系统

  • 2008年12月25日 09:09
  • 164KB
  • 下载

ASP.net(VB)身份证号处理类

  • 2012年08月26日 12:02
  • 151KB
  • 下载

ASP.Net: EshineASPNet教程-身份证校验与正则

很多应用都会涉及到用户身份证的输入,严格的程序并不会接受用户随便输入一串字符,而应该检查身份证是否合法,这里并不是说检查这个身份证号是否存在,而是说身份证号是否符合规则。身份证号里面包含很多信息,大多...
  • lyx_zhl
  • lyx_zhl
  • 2017年01月11日 21:31
  • 308

AJAX+asp识别身份证

  • 2007年12月17日 09:58
  • 84KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP身份证验证
举报原因:
原因补充:

(最多只允许输入30个字)