📄 show.asp
字号:
<!--#include file="conn.asp"-->
<%
dim date
date=request.querystring("date")
session("date")=date
%>
<html>
<head>
<title>航空售票系统</title>
<link rel="stylesheet" href="ticket.css">
</head>
<body bgcolor="#F4F4FF">
<!--#include file="head.asp" -->
<center><h1><b><font face="华文彩云" size="6" color="#808000"><span style="background-color: #FFFF00">余票列表</span></font></b></h1></center>
<br>
<center>您可以预订下列机票</center>
<table width="500" border=0 cellspacing="1" cellpadding="2" bgcolor=#799AE1 align=center>
<tr>
<th height=25>日期</th>
<th>班机号</th>
<th>目的地</th>
<th>座位号</th>
</tr>
<%
set rs2=server.CreateObject ("ADODB.Recordset")
rs2.open "select flight,num,id1 from "&date&" where flag=0 order by id1",conn,3
'用order by让其按照id1的顺序排列
%>
<tr valign="middle" bgcolor="#F4F4FF">
<td colspan=4 align=center><%if rs2.EOF then
response.write "<font color=red>对不起，此日没有空票！</font>"%></td>
</tr>
<%
else
do while not rs2.eof
for j=0 to rs2.fields.count-1 step 3 %>
<tr valign="middle" bgcolor="#F4F4FF">
<td height="8" align=center><%=(date)%></td>
<td height="8" align=center><%=rs2(j)%></td>
<td height="8" align=center>
<%
dim place
if rs2(j)="a" then
place="place1"
end if
if rs2(j)="b" then
place="place2"
end if
if rs2(j)="c" then
place="place3"
end if
if rs2(j)="d" then
place="place4"
end if
if rs2(j)="e" then
place="place5"
end if
%> <%=place%></td>
<td height="8" align=center><%=rs2(j+1)%></td>
</tr>
<%next
rs2.movenext
loop
end if
%>
</table>
<!--#include file="foot.asp" -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -