<%@ Language=VBScript%>
<%Response.ContentType="text/vnd.wap.wml"%>
<?xml version="1.0" encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapfourm.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="Cache-control" content="max-age=0" />
<meta http-equiv="Cache-control" content="no-cache" />
</head>
<card title="身份证属地查询::掌握中国">
<do type ="options" label='回首页'>
<go href=>http://wap.zhangwo.cn"/>
</do>
<p>
<% number=Trim(Request.Form("number"))
if Len(number)<>15 and Len(number)<>18 then
Response.Write "身份证号应为15或18位!"
else
number1 = Left(number,6)
if Len(number)=15 then
number2=Mid(number,15,1)
birthyear=Mid(number,7,2)
birthmonth=Mid(number,9,2)
birthday=Mid(number,11,2)
else number2=Mid(number,17,1)
birthyear=Mid(number,7,4)
birthmonth=Mid(number,11,2)
birthday=Mid(number,13,2)
end if
if number2<>1 and number2<>3 and number2<>5 and number2<>7 and number2<>9 then
sex="女"
else sex="男"
end if
db="idcard.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [idcard] where "&number1&" =hm " ,conn,1,1
if rs.recordcount = 0 then
jg="对不起，没有你要查询的资料!"
else
jg=rs("jg")
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
原身份证号:<br/>
<%= number %><br/>
原户籍地：<br/><%= jg %><br/>
<% if Len(birthyear)=4 then
Response.Write" 出生年月：<br/>"&birthyear&"年"&birthmonth&"月"&birthday&"日<br/>"
else Response.Write" 出生年月：<br/>19"&birthyear&"年"&birthmonth&"月"&birthday&"日<br/>"
end if
%>
<% if Len(number)=18 then
Response.Write" 新身份证号：<br/>"&number&"<br/>"
else
new1=Mid(number,1,6)
new2=Mid(number,7,9)
Response.Write" 新身份证号：<br/>"&new1&"19"&new2&"0<br/>"
end if
%>
性别：<br/><%= sex %><br/>
<%end if
%>
</p>
<p>
<a href=><a href=>http://wap.zhangwo.cn">返回掌握中国</a>
</p>
</card>
</wml>  数据库.rar
|
