自古有云:謀事在人,成事在天。究竟我們可否爭取主動,反過來操控自己的命運呢?答案是肯定的。現在我們就提供身份證來測試你的性格、愛情、事業與未來,讓你更能掌握未來,邁出成功的第一步。
  只要憑身份證上的號碼,便可推算出你一生的命運,十分奇妙!

身份證號碼: (請輸入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 %> <% 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 "" else response.write "" 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 %>
測試結果:
"&rs1("content")&"
  蕓蕓眾生,竟無此人,無從進行命運推理!請施主輸入正確的身份證再行測運,實誠功德無量!
<% 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 %>
超級完美八字合婚
八字婚姻寶典
超級桃花命書
八字桃花命書精批
經典姓名愛情魔法配對
在線八字合婚
透視你的另一半
在線藝術簽名設計
浙江6+1开奖时间几点