仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 435|回复: 8
打印 上一主题 下一主题

[学习教程] ASP网页设计使用ASP考证身份证号是不是准确的代码

[复制链接]
若相依 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:11:18 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
SQLServer是基于服务器端的中型的数据库,可以适合大容量数据的应用,在功能上管理上也要比Access要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。本文非原创,只是综合了两三个文章收拾在一同的。
我们要考证身份证号是不是准确,就得先懂得身份证号的含义。
身份证号都代表甚么意义?
1、号码的布局
国民身份号码是特性组合码,由十七位数字本体码和一名校验码构成。分列按次从左至右顺次为:六位数字地点码,八位数字出身日期码,三位数字按次码和一名数字校验码。
2、地点码(前六位数)
暗示编码工具常住户口地点县(市、旗、区)的行政区划代码,按GB/T2260的划定实行。
3、出身日期码(第七位至十四位)
暗示编码工具出身的年、月、日,按GB/T7408的划定实行,年、月、日代码之间不必分开符。
4、按次码(第十五位至十七位)
暗示在统一地点码所标识的地区局限内,对同年、同月、同日出身的人编定的按次号,按次码的奇数分派给男性,偶数分派给女性。
5、校验码(第十八位数)
(1)十七位数字本体码加权乞降公式
S=Sum(Ai*Wi),i=0,...,16,先对前17位数字的权乞降
Ai:暗示第i地位上的身份证号码数字值
Wi:暗示第i地位上的加权因子
Wi:7910584216379105842
(2)盘算模
Y=mod(S,11)
(3)经由过程模失掉对应的校验码
Y:012345678910
校验码:10X98765432
以是我们就能够大抵写一个函数来校验是不是准确了。
考证身份证号ASP代码函数以下
代码拷贝框

FunctionIDCheck(e)IDCheck=truearrVerifyCode=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",",")IfLen(e)<15OrLen(e)=16OrLen(e)=17OrLen(e)>18ThenIDCheck="身份证号共有15码或18位"IDCheck=FalseExitFunctionEndIfDimAiIfLen(e)=18ThenAi=Mid(e,1,17)ElseIfLen(e)=15ThenAi=eAi=Left(Ai,6)&"19"&Mid(Ai,7,9)EndIfIfNotIsNumeric(Ai)ThenIDCheck="身份证除最初一名外,必需为数字!"IDCheck=FalseExitFunctionEndIfDimstrYear,strMonth,strDaystrYear=CInt(Mid(Ai,7,4))strMonth=CInt(Mid(Ai,11,2))strDay=CInt(Mid(Ai,13,2))BirthDay=Trim(strYear)+"-"+Trim(strMonth)+"-"+Trim(strDay)IfIsDate(BirthDay)ThenIfDateDiff("yyyy",Now,BirthDay)<-140orcdate(BirthDay)>date()ThenIDCheck="身份证输出毛病!"IDCheck=FalseExitFunctionEndIfIfstrMonth>12OrstrDay>31ThenIDCheck=FalseIDCheck="身份证输出毛病!"ExitFunctionEndIfElseIDCheck="身份证输出毛病!"IDCheck=FalseExitFunctionEndIfDimi,TotalmulAiWiFori=0To16TotalmulAiWi=TotalmulAiWi+CInt(Mid(Ai,i+1,1))*Wi(i)NextDimmodValuemodValue=TotalmulAiWiMod11DimstrVerifyCodestrVerifyCode=arrVerifyCode(modValue)Ai=Ai&strVerifyCodeIDCheck=AiIfLen(e)=18AndeAiThenIDCheck="身份证号码输出毛病!"IDCheck=FalseExitFunctionEndIfEndFunction


[Ctrl+A全体选择然后拷贝]
别的,假如能分离用户所填写的区域、诞辰,做相干的校验,那就更完善了。基础没有举措把这个号填错了。哈哈。除非是填他人的正确信息和身份证号,
缺乏可以共同遵循的行业标准,ASP还处在发展初期,大家对它的理解不同,如产品和服务标准,收费标准等,不利于行业的健康发展。
小魔女 该用户已被删除
沙发
发表于 2015-1-18 21:54:04 | 只看该作者
从事这个行业,那么你可以学ASP语言,简单快速上手,熟练dreamweav排版,写asp代码,熟练photoshop处理图片,打好基础就行了
海妖 该用户已被删除
板凳
发表于 2015-1-26 12:56:47 | 只看该作者
接下来就不能纸上谈兵了,最好的方法其实是实践。实践,只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好,因为你还没有熟练的能力去综合各种技术,这样只能使你自己越来越迷糊。
再见西城 该用户已被删除
地板
发表于 2015-2-4 16:55:23 | 只看该作者
另外因为asp需要使用组件,所以了解一点组件的知识(ADODB也是组件)
透明 该用户已被删除
5#
发表于 2015-2-10 04:38:19 | 只看该作者
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。
金色的骷髅 该用户已被删除
6#
发表于 2015-2-28 19:55:58 | 只看该作者
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。
小女巫 该用户已被删除
7#
发表于 2015-3-10 07:52:25 | 只看该作者
我可以结合自己的经验大致给你说一说,希望对你有所帮助,少走些弯路。
谁可相欹 该用户已被删除
8#
发表于 2015-3-17 05:34:39 | 只看该作者
不能只是将它停留在纸上谈兵的程度上。
小妖女 该用户已被删除
9#
发表于 2015-3-23 22:46:58 | 只看该作者
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-11-16 05:48

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表