<% <\/p>\n
Class IDCardInfo
Private strAuthor ,strVersion ,StrMessage,StrIDCard<\/p>\n
Public Property Let IDCard(ByVal strVar)
StrIDCard =strVar
End Property <\/p>\n
Public Property Get Version
Version = strVersion
End Property <\/p>\n
Public Property Get Author
Author = strAuthor
End Property <\/p>\n
Public Property Get DataList
DataList = strDataList
End Property <\/p>\n
Private Sub Class_Initialize()
strAuthor = "\u6797\u5176\u6d53–http:\/\/www.youthbar.com"
strVersion = "1.0"
strMessage="\u8be5\u7c7b\u529f\u80fd\uff1a\u4ece\u7701\u4efd\u8bc1\u53f7\u7801\u4e2d\u83b7\u5f97\u751f\u65e5\uff0c\u6027\u522b\uff0c\u7c4d\u8d2f\u7b49\u4fe1\u606f,\u6b22\u8fce\u6d4b\u8bd5\u4f7f\u7528!<br>\u8054\u7cfb\u5236\u4f5c\u8005\uff1a<a href='mailto:master@youthbar.com'>\u6797\u5176\u6d53<\/a> @ <a href='http:\/\/www.youthbar.com'>www.youthbar.com<\/a>.<br>"
End Sub <\/p>\n
Private Sub Class_Terminate()
'Response.Write "<br>myClass\u7ed3\u675f\u4e86<br>"
End Sub <\/p>\n
Public Property Get Message
Message=StrMessage
End Property<\/p>\n
Public Property Get Error
Error=CardErr()
End Property<\/p>\n
Function IDCheck(e)
IDCheck = ""
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= "\u8eab\u4efd\u8bc1\u53f7\u5171\u6709 15 \u7801\u621618\u4f4d"
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= "\u8eab\u4efd\u8bc1\u9664\u6700\u540e\u4e00\u4f4d\u5916\uff0c\u5fc5\u987b\u4e3a\u6570\u5b57\uff01"
IDCheck = False
Exit Function
End If
Dim strYear, strMonth, strDaym,BirthDay
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= "\u8eab\u4efd\u8bc1\u8f93\u5165\u9519\u8bef\uff01"
IDCheck = False
Exit Function
End If
If strMonth > 12 Or strDay > 31 Then
IDCheck = False
IDCheck= "\u8eab\u4efd\u8bc1\u8f93\u5165\u9519\u8bef\uff01"
Exit Function
End If
Else
IDCheck= "\u8eab\u4efd\u8bc1\u8f93\u5165\u9519\u8bef\uff01"
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 =True' Ai
If Len(e) = 18 And e <> Ai Then
IDCheck= "\u8eab\u4efd\u8bc1\u53f7\u7801\u8f93\u5165\u9519\u8bef\uff01"
Exit Function
End If
End Function<\/p>\n
Function IDCheckedStr(e)
IDCheckedStr= ""
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
IDCheckedStr= "\u8eab\u4efd\u8bc1\u53f7\u5171\u6709 15 \u7801\u621618\u4f4d"
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
IDCheckedStr= "\u8eab\u4efd\u8bc1\u9664\u6700\u540e\u4e00\u4f4d\u5916\uff0c\u5fc5\u987b\u4e3a\u6570\u5b57\uff01"
IDCheckedStr = False
Exit Function
End If
Dim strYear, strMonth, strDay,BirthDay
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
IDCheckedStr= "\u8eab\u4efd\u8bc1\u8f93\u5165\u9519\u8bef\uff01"
IDCheckedStr = False
Exit Function
End If
If strMonth > 12 Or strDay > 31 Then
IDCheckedStr = False
IDCheckedStr= "\u8eab\u4efd\u8bc1\u8f93\u5165\u9519\u8bef\uff01"
Exit Function
End If
Else
IDCheckedStr= "\u8eab\u4efd\u8bc1\u8f93\u5165\u9519\u8bef\uff01"
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
IDCheckedStr = Ai
If Len(e) = 18 And e <> Ai Then
IDCheckedStr= "\u8eab\u4efd\u8bc1\u53f7\u7801\u8f93\u5165\u9519\u8bef\uff01"
Exit Function
End If
End Function<\/p>\n
Private Function CardErr()
CardErr=IDCheck(StrIDCard)
End Function
Public Function CardLen()
if CardErr()=True then
CardLen=len(IDCheckedStr(StrIDCard))
end if
End Function<\/p>\n
Public Function BirthDay()
Dim strYear, strMonth, strDay,Ai
Ai=IDCheckedStr(StrIDCard)
if CardErr()=true then
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)
else
BirthDay=""
end if
End Function<\/p>\n
Public Function Sex()
if CardErr()=true then
sex=MID(IDCheckedStr(StrIDCard),17,1)
End if
End Function
End Class
dim NewClass
Set NewClass = New IDCardInfo
NewClass.IDCard="330325821217511"
%>
<pre>
\u4f5c\u8005\uff1a <%= NewClass.Author %>
\u7248\u672c\uff1a <%= NewClass.Version %>
\u7c7b\u8bf4\u660e\uff1a<%= NewClass.Message %>
\u6570\u636e\u5217\u8868\uff1a <%' NewClass.DataList %>
\u9519\u8bef\uff1a <%= NewClass.error %>
\u957f\u5ea6\uff1a <% = NewClass.CardLen%>
\u751f\u65e5\uff1a<%= NewClass.BirthDay() %>
\u6027\u522b\uff1a<%= NewClass.Sex() %>
<\/pre>
<pre>
\u65b0\u8eab\u4efd\u8bc1\u53f7\uff1a
XX|XX|XX|XXXX|XX|XX|XXX|X
\u7701|\u5e02|\u533a|\u51fa\u751f\u5e74|\u6708|\u65e5|\u7f16\u53f7|\u6548\u9a8c\u7801<\/p>\n
\u8001\u8eab\u4efd\u8bc1\u53f7\uff1a
XX|XX|XX|XX|XX|XX|XXX
\u7701|\u5e02|\u533a|\u51fa\u751f\u5e74\u6708|\u65e5|\u7f16\u53f7<\/p>\n
\u6536\u96c6\u7701\u5e02\u533a\u7684\u7f16\u7801\u5efa\u7acb\u4e00\u5f20\u57fa\u7840\u6570\u636e\u8868\uff0c\u901a\u8fc7\u8be5\u8868\u67e5\u8be2\u3002
\u5317\u4eac 11
\u5929\u6d25 12
\u6cb3\u5317 13
\u5c71\u897f 14
\u5185\u8499\u53e4 15
\u8fbd\u5b81 21
\u5409\u6797 22
\u9ed1\u9f99\u6c5f 23
\u4e0a\u6d77 31
\u6c5f\u82cf 32
\u6d59\u6c5f 33
\u5b89\u5fbd 34
\u798f\u5efa 35
\u6c5f\u897f 36
\u5c71\u4e1c 37
\u6cb3\u5357 41
\u6e56\u5317 42
\u6e56\u5357 43
\u5e7f\u4e1c 44
\u5e7f\u897f 45
\u6d77\u5357 46
\u91cd\u5e86 50
\u56db\u5ddd 51
\u8d35\u5dde 52
\u4e91\u5357 53
\u897f\u85cf 54
\u9655\u897f 61
\u7518\u8083 62
\u9752\u6d77 63
\u5b81\u590f 64
\u65b0\u7586 65
\u53f0\u6e7e 71
\u9999\u6e2f 81
\u6fb3\u95e8 82
\u56fd\u5916 91<\/p>\n","protected":false},"excerpt":{"rendered":"
<% Class IDCardInfo Private strAuthor ,strVersion ,S […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[5],"tags":[],"class_list":["post-631","post","type-post","status-publish","format-standard","hentry","category-5"],"_links":{"self":[{"href":"http:\/\/artms.su\/index.php?rest_route=\/wp\/v2\/posts\/631"}],"collection":[{"href":"http:\/\/artms.su\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/artms.su\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/artms.su\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/artms.su\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=631"}],"version-history":[{"count":0,"href":"http:\/\/artms.su\/index.php?rest_route=\/wp\/v2\/posts\/631\/revisions"}],"wp:attachment":[{"href":"http:\/\/artms.su\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=631"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/artms.su\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=631"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/artms.su\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=631"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}