📄 queryline.asp

📁 该资料包含大量网络开发的案例和源代码

💻 ASP

字号:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>航班查询</title>
</head>
<BODY bgcolor = #00CCCC>
<h2 align="center"> 
 飞行航班查询 </h2>
<CENTER>
  <H2><font size="3">
    <%
   Dim objconn, sqlstr, rst
   Set objconn = Server.CreateObject("ADODB.Connection")
   constr="Provider=microsoft.jet.oledb.4.0;Data source=" & Server.mappath("plane.mdb")
   objconn.Open constr
   Set rst = Server.CreateObject("ADODB.Recordset")
   Sqlstr = "Select * from airplane "
   rst.Open sqlstr, objconn ,1,1
%>
    请输入您的查询要求</font></H2>
</center>
<table width="285" height=89  border = 1 align = center  cellpadding = “2” cellspacing=5>
  <form name="form1"  method="post" action="querydisp.asp">
    <tr> 
      <p align = center></p>
      <td width="131" height=“3” valign = “top”><div align="center"><font size="2">起飞地点</font></div></td>
      <td width="133" height=“3” valign = “top”><div align="center"><font size="2">到达地点</font></div></td>
    </tr>
    <tr> 
      <td valign = “top” height=“80”> <font size="2"> 
        <%
	response.write "<select name='startcity' size=8>"
    response.write "<option> 　　 </option>"
    do while not rst.eof
     response.write "<option>" & rst("startcity") & "　　" &"</option>"
     rst.movenext
	loop 
    response.write ("</select> ")
  %>
        </font></td>
      <td valign = “top” height=“80”> <font size="2"> 
        <%
     rst.movefirst
	 response.write "<select name='landcity'  size=8>"
     response.write "<option> 　　 </option>"
     do while not rst.eof
     response.write "<option> "& rst("landcity") & "　　" & "</option>"
     rst.movenext
	 loop 
     response.write ("</select> ")
   %>
        </font></td>
    </tr>
    <tr> 
      <td valign = "top" height=6 colspan=2> <div align=center> 
          <input type="submit" name=Submit value=提交>
          <input type=button name="Submit2" value="放弃">
        </div></td>
    </tr>
  </form>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -