📄 postcardsearch.asp
字号:
<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<%
HX_Conn 4:ColumnName="":Tablename="HX_PostCard"
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel=stylesheet type=text/css href="../HXinclude/HX_Style.css">
</head>
<body topmargin="20" leftmargin="0" bottommargin="0">
<table width="596" border="0" cellspacing="1" cellpadding="0" align=center bgcolor="#115F8F">
<tr>
<td colspan="2" bgcolor=ffffff><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" background="../hximages/titleline.gif"><font class="fontmenu">手机查询</font></td>
</tr>
</table><%
if request.form("action")="search" then
d=request.form("num1")
if WS_S.IDCheck(d)=false then
msg="身份证号码输入有误！"
else
if CInt(Mid(d,15, 3)) mod 2 =0 then e="女" else e="男"
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", ",")
For i = 0 To 16
TotalmulAiWi = TotalmulAiWi + CInt(Mid(d, i + 1, 1)) * Wi(i)
Next
modValue = TotalmulAiWi Mod 11
strVerifyCode = arrVerifyCode(modValue)
Ai = Ai & strVerifyCode
if Ai=right(d,1) then msg="身份证输入正确" else msg="校验码错误"
Orderby=" where WS_CardNum="&left(d,6)
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
if rs.recordcount>0 then
a=rs("WS_CardEar")
end if
call WS_S.HX_RSClose(rs)
end if
%> <table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor=A1BBE0>
<tr>
<td colspan="2" align="center" background="b1.gif" height="22"1>搜 索 结果</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="36%" align="right" height="22">查询号码：</td>
<td width="64%" align="left" height="22"><%=d%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="36%" align="right" height=22>原户籍地：</td>
<td width="64%" align="left" height=22><%=a%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="36%" align="right" height=22> 性 别：</td>
<td width="64%" align="left" height=22><%=e%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" height=22>提示信息：</td>
<td align="left" height=22><%=msg%></td>
</tr>
</table>
<br><%
end if%>
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor=A1BBE0>
<tr>
<td align="center" height="22" colspan="2">
身份证号码查询</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="37%" align="right" height=22>请输入要搜索的号码：</td>
<form method="post" action="" name="Form1" onsubmit="return checkcard();">
<td width="63%" height=22>
<input type="text" name="num1" size="30" style="ime-mode:disabled">
<input type="hidden" name="action" size="20" value="search">
<input type="submit" value="查 询" name="B1"> </td> </form></tr>
</table></td>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -