1. 云栖社区>
  2. 技术文集>
  3. 列表>
  4. 正文

ASP身份证验证代码函数

作者:用户 来源:互联网 时间:2016-07-07 15:39:46

aifunction输入exitend身份证THEN身份证验证函数

ASP身份证验证代码函数 - 摘要: 本文讲的是ASP身份证验证代码函数, 函数   Function CheckCardId(e)   arrVerifyCode = Split("1,0,x,9,8,7,6,5,4,3,2",

函数   Function CheckCardId(e)
  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
  CheckCardId= "身份证号共有 15 码或18位"
  CheckCardId = 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
  CheckCardId= "身份证除最后一位外,必须为数字!"
  
  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
  
  CheckCardId= "身份证输入错误!"
  Exit Function
  End If
  If strMonth > 12 Or strDay > 31 Then
  CheckCardId= "身份证输入错误!"
  Exit Function
  End If
  Else
  CheckCardId= "身份证输入错误!"
  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
  CheckCardId = Ai
  
  If Len(e) = 18 And e <> Ai Then
  CheckCardId= "身份证号码输入错误!"
  Exit Function
  End If
  End Function
  response.write CheckCardId("528337194801020025") ’’’’’’’’’这个不知是谁的身份证,我一试就出来了~~~~~~~~~哈哈
  ’’’’’这个如果返回的是输入的身份证,则表明正确,否则会提示出错...

以上是云栖社区小编为您精心准备的的内容,在云栖社区的博客、问答、公众号、人物、课程等栏目也有 的相关内容,欢迎继续使用右上角搜索按钮进行搜索ai , function , 输入 , exit , end , 身份证 , THEN 身份证验证函数 asp.net 身份证验证、asp身份证验证、港澳台身份证验证代码、身份证验证代码、身份证号码验证函数,以便于您获取更多的相关知识。

windows身份验证-ASP.NET 使用Windows身份验证 怎么获取登陆用户的密码?

问题描述 ASP.NET 使用Windows身份验证 怎么获取登陆用户的密码? 我现在想在web程序中发送邮件(或类似需要域验证的功能),其中Credentials我想使用当前登陆用户的。 请问在这个时候怎么获...

asp身份证验证代码函数_应用技巧

身份证验证代码函数 Function CheckCardId(e) 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)  18 Then CheckCardId= "身份证号共有 15 码或18位" CheckCardI...

表单验证 Validator v4.0

...址;10.电话号码;11.货币;12.手机号码;13.邮政编码;14.身份证号码(1.05增强);15.QQ号码;16.日期;17.符合安全规则的密码;18.某项的重复值;19.两数的关系比较;20.判断输入值是否在(n, m)区间;21.输入字符长度限制(可按字节比...

.NET验证组件Fluent Validation使用指南

...看到NopCommerce项目中用到这个组建是如此的简单,将数据验证从业务实体类中分离出来,真是一个天才的想法,后来才知道这个东西是一个开源的轻量级验证组建。   Fluent Validation 翻译为:流畅验证   开源Codeplex其主页简...

表单验证插件Validation应用的实例讲解

...期格式验证。数字:整数、正整数验证,数字范围验证。身份证:大陆身份证号码验证。邮政编码:大陆邮政编码验证。文件:文件类型(后缀)验证,如只允许上传图片。IP:IP地址验证。验证码:验证码ajax验证。 使用方法:...

前三篇
后三篇