booksearch.asp

来自「ASP+SQL Server网络应用系统开发与实例」· ASP 代码 · 共 58 行

ASP
58
字号
<!--#include file="../conndb.asp"-->
<!--#include file="isAdmin.asp"-->
<html>
<head>
<title>旅游在线报名查询</title>
<link href="../style.css" rel="stylesheet">
</head>
<body>

<form method="POST" action="BookSearchRlt.asp">
  <table border="0" cellspacing="1" width="100%">
    <tr>
      <td><img src="../pic/search2.jpg" border=0></td>
      <td width="82%"><b><font color="#000080" size=3>旅游在线报名查询</font></b></td>
    </tr>
  </table>
  <br><br>
  <table border="0" cellspacing="1" width="100%">
    <tr>
      <td width="100%">线路名称
<%
  Dim rs
  Set rs = Server.CreateObject("ADODB.RecordSet")
  sql = "SELECT * FROM Line ORDER BY AreaId"
  Set rs = Conn.Execute(sql)
%>
<select name="slt">
<option value="0" selected>-选择旅游线路-</option>
<% Do While NOT rs.EOF%>
     <option value="<%=rs("LineId")%>"><%=rs("LineName")%></option>      
<%   rs.MoveNext 
   Loop      
%>
</select>
      </td>
    </tr>
    <tr>
      <td width="100%">报名时间
      从<input type="text" name="sdate" size="20">
      到<input type="text" name="edate" size="20">
      (日期格式:2004-01-05)</td>
    </tr>
    <tr>
      <td width="100%">报 名 人
      <input type="text" name="person" size="20"></td>
    </tr>
    <tr>
      <td width="100%"><font color=red>* 如果日期格式错误,则按照没有日期范围查询。</font></td>
    </tr>
  </table>
  <p><input type="submit" value=" 查 询 " name="B1">
  <input type="reset" value=" 重 写 " name="B2"></p>
</form>

</body>

</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?