[会员中心]  [发布文章][发布软件]  [中文繁體]

文章·资料  电脑软件  手机软件  网站源码 电脑·手机·网络学习话题娱乐故事 文化·历史国学典籍法律法规 操作系统网络办公·文件音频视频图形图像 硬件·驱动程序行业教学学习编程游戏 安卓苹果鸿蒙 其他 ASPASP.NETJSPPHP HTML·CSS·JavaScript

本 站 搜 索 文章 软件 [选项] 文章类别： [全部]电脑·手机·网络话题故事文化·历史娱乐学习法律·法规国学典籍 搜索选项： 文章编号 文章标题 文章作者 文章来源 相关链接 关键字词 文章标签 文章内容 软件类别： [全部]操作系统网络办公·文件音频视频图形图像行业编程教学学习游戏硬件·驱动程序安卓系统苹果系统鸿蒙系统其他系统HTML·CSS·JavaScriptASPJSPPHPASP.NET 搜索选项： 软件编号 软件名称 软件作者 软件来源 相关链接 关键字词 软件标签 软件简介

发 送 文 章 验证身份证号是否正确的代码 〖评论()〗〖留言〗〖收藏〗  收信地址 填写收信人的电子邮箱 邮件主题 填写邮件主题 邮件内容 我们要验证身份证号是否正确，就得先了解身份证号的含意。 身份证号都代表什么意思？ 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 所以我们就可以大致写一个函数来校验是否正确了。 以下是代码片段： FunctionIDCheck(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,,) IfLen(e)15OrLen(e)=16OrLen(e)=17OrLen(e)18Then IDCheck=身份证号共有15码或18位 IDCheck=False ExitFunction EndIf DimAi IfLen(e)=18Then Ai=Mid(e,1,17) ElseIfLen(e)=15Then Ai=e Ai=Left(Ai,6)19Mid(Ai,7,9) EndIf IfNotIsNumeric(Ai)Then IDCheck=身份证除最后一位外，必须为数字！ IDCheck=False ExitFunction EndIf DimstrYear,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) IfIsDate(BirthDay)Then IfDateDiff(yyyy,Now,BirthDay)-140orcdate(BirthDay)date()Then IDCheck=身份证输入错误！ IDCheck=False ExitFunction EndIf IfstrMonth12OrstrDay31Then IDCheck=False IDCheck=身份证输入错误！ ExitFunction EndIf Else IDCheck=身份证输入错误！ IDCheck=False ExitFunction EndIf Dimi,TotalmulAiWi Fori=0To16 TotalmulAiWi=TotalmulAiWi+CInt(Mid(Ai,i+1,1))*Wi(i) Next DimmodValue modValue=TotalmulAiWiMod11 DimstrVerifyCode strVerifyCode=arrVerifyCode(modValue) Ai=AistrVerifyCode IDCheck=Ai IfLen(e)=18AndeAiThen IDCheck=身份证号码输入错误！ IDCheck=False ExitFunction<br /><br />文章网址：<a href="https://dangbai.cn/Article.asp?ID=10000730" target="_blank">https://dangbai.cn/Article.asp?ID=10000730</a> 填写邮件内容 发信地址 填写发信人的电子邮箱 邮件签名 填写邮件签名  验证码   填写验证码，单击刷新验证码    程序执行中，请稍候... 发送协议 ·欢迎使用本站在线文章发送系统。 ·不得使用本站在线发送邮件系统发送垃圾邮件、广告邮件。 ·如果收信人地址或其服务器出现错误，可能无法成功发送。 ·如果有什么问题，或者意见建议，请联系［网站管理员］。

当百网   本站使用【啊估文章软件站】网站系统    〖网站管理员留言簿〗