身份证算命

黄道查询
年 月

情侣配对

热门点击

自古有云：谋事在人，成事在天。究竟我们可否争取主动，反过来操控自己的命运呢？答案是肯定的。现在我们就提供身份证来测试你的性格、爱情、事业与未来，让你更能掌握未来，迈出成功的第一步。 只要凭身份证上的号码，便可推算出你一生的命运，十分奇妙！
身份证号码: (请输入15位或者18位号码)

<% xian=request("xian") lenx=len(xian) if xian<>"" then if not IsNumeric(left(xian,15)) and xian<>"" then response.write "
" end if if lenx=15 or lenx=18 then if lenx=15 then yy="19"&mid(xian,7,2) mm=mid(xian,9,2) dd=mid(xian,11,2) aa=mid(xian,15,1) end if if lenx=18 then yy=mid(xian,7,4) mm=mid(xian,11,2) dd=mid(xian,13,2) aa=mid(xian,17,1) end if if cint(mm)>12 or cint(dd)>31 then response.write "
" end if else response.write "
" end if set rs=server.createobject("adodb.recordset") sql="select * from sfz where bm="&left(xian,6) rs.open sql,conn,3,3 if not rs.eof then %> <% if aa mod 2=0 then xb="女" else xb="男" end if %>
查询号码：<%=xian%>
原户籍地：<%=rs("dq")%>

出生年月：<%=yy&"年"&mm&"月"&dd&"日"%> | 性 别：<%=xb%> <% if lenx=18 then if mid(xian,18,1)<>cstr(sfzjy(xian)) then response.write " | " response.write "提示：身份证校验错误!可能为假！" xian="" else response.write " | " response.write "结果：身份证号码校验为合法号码!" 'response.write xian end if else response.write " | " response.write "新身份证："&left(xian,6)&"19"&right(xian,9)&cstr(sfzjy(xian)) xian=left(xian,6)&"19"&right(xian,9)&cstr(sfzjy(xian)) 'response.write xian end if %> <% n1=mid(xian,7,1) n2=mid(xian,8,1) y1=mid(xian,9,1) y2=mid(xian,10,1) r1=mid(xian,11,1) r2=mid(xian,12,1) '年的单双取值 n=cInt(n1)+cInt(n2) if len(n)=2 then n=cInt(mid(n,1,1))+cInt(mid(n,2,1)) end if n=n mod 2 if n=0 then n="双" else n="单" end if '月的单双取值 y=cInt(y1)+cInt(y2) if len(y)=2 then y=cInt(mid(y,1,1))+cInt(mid(y,2,1)) end if ' response.Write "这是日的结果"&r y=y mod 2 if y=0 then y="双" else y="单" end if '日的单双取值 r=cInt(r1)+cInt(r2) if len(r)=2 then r=cInt(mid(r,1,1))+cInt(mid(r,2,1)) end if r=r mod 2 if r=0 then r="双" else r="单" end if testnum=n+y+r 'response.Write "这是数据的结果"&testnum set rs1=server.createobject("adodb.recordset") sql="select * from test where testnum='"&testnum&"'" rs1.open sql,conn,1,1 response.write "
测试结果：
" if not rs1.eof then response.write "
"&rs1("content")&"
" else response.write "
芸芸众生，竟无此人，无从进行命运推理！请施主输入正确的身份证再行测运，实诚功德无量！
" end if %>

<% end if rs.close set rs=nothing conn.close set conn=nothing end if FUNCTION sfzjy(num) if len(num)=15 then cID = left(num,6)&"19"&right(num,9) elseif len(num)=17 or len(num)=18 then cID = left(num,17) end if nSum=mid(cID,1,1) * 7 nSum=nsum+mid(cID,2,1) * 9 nSum=nsum+mid(cID,3,1) * 10 nSum=nsum+mid(cID,4,1) * 5 nSum=nsum+mid(cID,5,1) * 8 nSum=nsum+mid(cID,6,1) * 4 nSum=nsum+mid(cID,7,1) * 2 nSum=nsum+mid(cID,8,1) * 1 nSum=nsum+mid(cID,9,1) * 6 nSum=nsum+mid(cID,10,1) * 3 nSum=nsum+mid(cID,11,1) * 7 nSum=nsum+mid(cID,12,1) * 9 nSum=nsum+mid(cID,13,1) * 10 nSum=nsum+mid(cID,14,1) * 5 nSum=nsum+mid(cID,15,1) * 8 nSum=nsum+mid(cID,16,1) * 4 nSum=nsum+mid(cID,17,1) * 2 '*计算校验位 check_number=12-nsum mod 11 If check_number=10 then check_number="X" elseIf check_number=12 then check_number="1" elseif check_number=11 then check_number="0" End if sfzjy=check_number End function %>