<%
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 "结果：身份证号码校验为合法号码!"
'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
%>