showdingdan.asp

来自「随着计算机技术的广泛应用,在酒店客房管理中引入计算机管理技术,成为一个值得深入研」· ASP 代码 · 共 43 行

<!--#include file="../inc/conn.asp"-->
<!--#include file="checkpwd.asp"-->
<!--#include file="../inc/title.inc"-->
<form action="" method="post">
  <table width="736" border="0" cellpadding="0" cellspacing="0">
    <!--DWLayoutTable-->
    <tr> 
      <td width="148" height="78">&nbsp;</td>
      <td width="300">&nbsp;</td>
      <td width="220">&nbsp;</td>
      <td width="68">&nbsp;</td>
    </tr>
    <tr> 
      <td height="21" valign="top"><div align="right">身份证号：</div></td>
      <td valign="top"><input name="zhenghao" type="text" id="zhenghao"></td>
      <td valign="top"><input type="submit" name="Submit" value="查询"></td>
      <td>&nbsp;</td>
    </tr>
  </table>
</form>
<table width="750" border="0" cellpadding="0" cellspacing="1" bgcolor="#0000FF">
  <!--DWLayoutTable-->
  <tr> 
    <td width="270" height="22" valign="top"background="imgs/tile_sub.gif"><!--DWLayoutEmptyCell-->&nbsp;</td>
    <td width="477" valign="top"background="imgs/tile_sub.gif"><!--DWLayoutEmptyCell-->&nbsp;</td>
  </tr>
  <%
  zhenghao=request.Form("zhenghao")
  sql="select * from [book] where zhengjianh='"&zhenghao&"'"
  set rs=conn.execute(sql)
do while not rs.eof
  %>
  <tr> 
    <td height="21" valign="top" bgcolor="#FFFFFF"><%=rs("nam")%></td>
    <td valign="top" bgcolor="#FFFFFF"><%=rs("num")%></td>
  </tr>
  <%
  rs.movenext 
  loop
    conn.close
  %>
</table>