★→ASP程序学习群:62655404 微信公众号开发
订阅本栏目 RSS您所在的位置: 深山工作室 > ASP学习 > 正文

ASP版通过身份证信息获取对应的生日性别年龄

网络 2018/5/14 10:35:46 深山工作室 字体:  浏览 4092 我要评论



<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>通过身份证识别生日和性别、年龄</title>
</head>

<%
'位数判断
Sno=request("Sno")

If Len(Sno)="15" Then
mm="15"
xxx=Right(Sno,1)
End If
If Len(Sno)="18" Then
mm="18"
yyy=Right(Sno, 2)
xxx=Left(yyy, 1)
End If
'性别判断
If xxx Mod 2=0 Then
nn="女"'女
Else If xxx Mod 2=1 Then
nn="男"'男
End If End if

Dim a, b, c, d, e
a = Sno
'新身份证号码的转换,老身份证号码雷同
If mm="18" Then
b = Left(a, 14) '取出生日日期字符串
d = Right(b, 8)
a = Left(d, 4) '取出年 18
b = Left(d, 6) '取出月
b = Right(b, 2)
c = Right(d, 2) '取出日
Else If mm="15" Then
b = Left(a, 12)
d = Right(b, 6)
a = 19&Left(d, 2) '取出年 15
b = Left(d, 4) '取出月
b = Right(b, 2)
c = Right(d, 2) '取出日
End If End If
e =a+"-"+b+"-"+c'生日字符串

%>

性别:<b><%=nn%></b><br>
生日:<b><%=e%></b><br>
年龄:<b><%=Year(now)-a%></b><br>
位:<b><%=mm%></b><br>
<body>
<form action="" method="post">
输入身份证号
<input name="Sno" type="text" value="320706198901033023" />
<input type="submit" name="Submit" value="读取信息=>" />
</form>
</body>
</html>

=========================== 分割线 ===========================

'以上是根据年份算的年龄,下面是根据生日计算年龄,并做成asp函数
function AgeResult(strCard)
        '根据身份证判断年龄
        If Len(strCard)="15" Then
        mm="15"
        xxx=Right(strCard,1)
        End If
        If Len(strCard)="18" Then
        mm="18"
        yyy=Right(strCard, 2)
        xxx=Left(yyy, 1)
        End If
        '性别判断
        If xxx Mod 2=0 Then
        nn="女"'女
        Else If xxx Mod 2=1 Then
        nn="男"'男
        End If End if
      
        Dim str_a, str_b, str_c, str_d, str_e
        str_a = strCard
        '新身份证号码的转换,老身份证号码雷同
        If mm="18" Then
        str_b = Left(str_a, 14) '取出生日日期字符串
        str_d = Right(str_b, 8)
        str_a = Left(str_d, 4) '取出年 18
        str_b = Left(str_d, 6) '取出月
        str_b = Right(str_b, 2)
        str_c = Right(str_d, 2) '取出日
        Else If mm="15" Then
        str_b = Left(str_a, 12)
        str_d = Right(str_b, 6)
        str_a = 19&Left(str_d, 2) '取出年 15
        str_b = Left(str_d, 4) '取出月
        str_b = Right(str_b, 2)
        str_c = Right(str_d, 2) '取出日
        End If End If
        str_e =str_a+"-"+str_b+"-"+str_c'生日字符串
      
        Age=Year(now)-str_a
        shengri1=""&str_b&"/"&str_c&""
        shengri2=""&month(date())&"/"&day(date())&""
        if datediff("d",shengri1,shengri2)>=0 then  Age=Age+1
        AgeResult=Age
end function

'调用方式
response.write AgeResult("320706198901033023")

=========================== 分割线 ===========================

居民身份证号码最后一位

大陆的身份证为18位,老的身份证是15位。

关于身份证第18是怎么计算的,原理如下:根据〖中华人民共和国国家标准 GB 11643-1999〗中有关公民身份号码的规定,公民身份号码是特征组合码,由十七位数字本体码和一位数字校验码组成。排列顺序从左至右依次为:六位数 字地址码,八位数字出生日期码,三位数字顺序码和一位数字校验码。

地址码(身份证前六位)表示编码对象常住户口所在县(市、旗、区)的行政区划代码。(所有区域的编码可以到这个网站http://www.stats.gov.cn/tjsj/tjbz/tjyqhdmhcxhfdm/

查询到最新的县及县以上的行政编码资料。

生日期码(身份证第七位到第十四位)表示编码对象出生的年、月、日,其中年份用四位数字表示,年、月、日之间不用分隔符。例如:1981年05月11日就用19810511表示。

顺序码(身份证第十五位到十七位)为同一地址码所标识的区域范围内,对同年、月、日出生的人员编定的顺序号。其中第十七位奇数分给男性,偶数分给女性。

校验码(身份证最后一位)是根据前面十七位数字码,按照ISO 7064:1983.MOD 11-2校验码计算出来的检验码。

第十八位数字的计算方法为:

1、将前面的身份证号码17位数分别乘以不同的系数。从第一位到第十七位的系数分别为:7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2

2、将这17位数字和系数相乘的结果相加。

3、用加出来和除以11,看余数是多少?

4、余数只可能有0 1 2 3 4 5 6 7 8 9 10这11个数字。其分别对应的最后一位身份证的号码为1 0 X 9 8 7 6 5 4 3 2。

5、通过上面得知如果余数是2,就会在身份证的第18位数字上出现罗马数字的Ⅹ。如果余数是10,身份证的最后一位号码就是2。

例如:某男性的身份证号码是34052419800101001X。我们要看看这个身份证是不是合法的身份证。

首先:我们得出,前17位的乘积和是189

然后:用189除以11得出的结果是17 + 2/11,也就是说余数是2。

最后:通过对应规则就可以知道余数2对应的数字是x。所以,这是一个合格的身份证号码。
相关阅读
( 2020/11/20 21:47:17 )asp无限级调用分类显示
( 2020/11/12 20:19:03 )Object.assign的一些用法
( 2020/11/5 13:32:29 )利用css中的scale()实现放大缩小效果
( 2020/10/26 21:09:19 )uni-app操作json数组
( 2020/10/26 13:46:09 )uni-app自定义loading组件
( 2020/10/1 17:07:20 )uni-app一个像商城分类中心一样的联动侧边栏导航分类
( 2020/9/27 16:09:39 )uni-app实现tab选项卡
( 2020/9/25 22:35:17 )uni-app的父与子页面传递参数之属性Props字段类型讲解
共有0条关于《ASP版通过身份证信息获取对应的生日性别年龄》的评论
发表评论
正在加载评论……
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 1000 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
深山工作室网友评论声明,请自觉遵守互联网相关政策法规。

您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。

更多信息>>栏目类别选择
rss学习
个人空间
网站设计
网站公告
下载
photoshop学习
ASP学习
DIV+CSS学习
SEO搜索引擎忧化
java学习
HTML学习
网站信息
网站类信息
更多>>同类信息
asp无限级调用分类显示
实现iis6与iis7环境下支持mp4视频随意拖动、预览播放、边下载边播放
做好的网站把http改成https申请SSL域名证书
纯asp根据当前日期计算出当前年份的属相
ASP利用fso读取文件夹里所有文件的名字
asp实现获得当前文章的上一篇信息与下一篇信息功能及代码
asp导出内容到excel表并自定义命名后下载(非打开)
'禁止站外提交页面和数据
更多>>最新添加文章
asp无限级调用分类显示
Object.assign的一些用法
利用css中的scale()实现放大缩小效果
uni-app操作json数组
uni-app自定义loading组件
uni-app一个像商城分类中心一样的联动侧边栏导航分类
uni-app实现tab选项卡
uni-app的父与子页面传递参数之属性Props字段类型讲解
更多>>随机抽取信息
div中的图片链接居中的问题
GOOGLE百度破解,网站优化SEO最终详解
连云港看网
ASP和AJAX应用一例,检测注册用户是否有效
把网页中的电话号码生成图片的ASP程序
旅行社管理系统商业版3.0发布
24款实用的翻页页码css代码
我们使用的42个著名搜索引擎