📄 admin_ticket_look-1.asp
字号:
<!--#include file="conn.asp"-->
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
call managemode
dim action
action=request("action")
sub del
dim id
id=request("id")
conn.execute("delete * from giveme_airplane where id="&id)
closeconn
response.write ("<script>alert('删除成功！按确定重新载入！');window.location='admin_ticket_look-1.asp';</script>")
end sub
%>
<table width="618" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr align="center" bgcolor="#F7F7F7">
<td width="309" height="30" bgcolor="#F7F7F7"><a href="admin_ticket_look.asp">查看火车票预订情况</a></td>
<td width="306" bgcolor="#F7F7F7"><a href="admin_ticket_look-1.asp">查看飞机票预订情况</a></td>
<td width="306" bgcolor="#F7F7F7"><a href="admin_ticket_look-2.asp">查看旅游租车预订情况</a></td>
</tr>
</table>
<table width="618" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="4"></td>
</tr>
</table>
<%
select case action
case "del"
call del
case "look"
call look
case else
call order
end select
sub order%>
<table width="618" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td width="68" height="28" align="center" bgcolor="#FFFFFF">航班号</td>
<td width="68" align="center" bgcolor="#FFFFFF">姓名</td>
<td width="125" align="center" bgcolor="#FFFFFF">联系电话</td>
<td width="146" align="center" bgcolor="#FFFFFF">地址</td>
<td width="89" align="center" bgcolor="#FFFFFF">预订数量</td>
<td width="33" align="center" bgcolor="#FFFFFF"> </td>
<td width="40" align="center" bgcolor="#FFFFFF">查看</td>
<td width="40" align="center" bgcolor="#FFFFFF">删除</td>
</tr>
<%
set rs=server.CreateObject("ADODB.Recordset")
sql="select * from giveme_airplane order by id desc"
rs.open sql,conn,3,1
if rs.bof or rs.eof then
closers(rs)
else
rs.pagesize=20
dim page
page=trim(request("page"))
if page<>"" then
page=cint(page)
else
page=1
end if
pagec=rs.pagecount
if page>pagec then
page=pagec
end if
rs.absolutepage=page
a=0
do while not rs.eof and a<rs.pagesize
%>
<tr align="center">
<td height="28" bgcolor="#FFFFFF"><a href="ticket_giveme_airplane.asp?id=<%=rs("cid")%>" target=_blank><%=rs("cc")%></a></td>
<td bgcolor="#FFFFFF"><%=mfkiqpl(rs("uname"))%></td>
<td bgcolor="#FFFFFF"><%=mfkiqpl(rs("utel"))%></td>
<td bgcolor="#FFFFFF"><%=mfkiqpl(rs("uadd"))%></td>
<td bgcolor="#FFFFFF"><%=mfkiqpl(rs("s1"))%></td>
<td bgcolor="#FFFFFF"><%
if (rs("n_o")) then
response.write ("旧")
else
response.write ("<font color=red>新</font>")
end if
%></td>
<td bgcolor="#FFFFFF"><a href="?action=look&id=<%=rs("id")%>">查看</a></td>
<td bgcolor="#FFFFFF"><a href="?action=del&id=<%=rs("id")%>">删除</a></td>
</tr>
<%
rs.movenext
a=a+1
loop
closers(rs)
end if
%>
</table>
<table width="618" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="4"></td>
</tr>
</table>
<table width="618" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td height="26" align="center" bgcolor="#f9f9f9">
<%
response.write ("<a href=?page=1>首页</a> ")
if page>1 then
response.write ("<a href=?page="&page-1&">上一页</a> ")
else
response.write("上一页 ")
end if
if page<pagec then
response.write("<a href=?page="&page+1&">下一页</a> ")
else
response.write("下一页 ")
end if
response.write ("<a href=?page="&pagec&">尾页</a> ")
response.write ("当前："&page&"/"&pagec&"")
%> </td>
</tr>
</table>
<%
end sub
sub look
dim id
id=request("id")
conn.execute("update giveme_airplane set n_o=true where id="&id)
set rs=conn.execute("select * from giveme_airplane where id="&id)
%>
<table width="618" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td width="123" height="30" align="center" bgcolor="#f9f9f9">预订数量</td>
<td width="492"> <%=rs("s1")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#f9f9f9">预订车次</td>
<td> <%=rs("cc")%> <a href="ticket_giveme_airplane.asp?id=<%=rs("cid")%>" target=_blank>详情</a></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#f9f9f9">姓名</td>
<td> <%=mfkiqpl(rs("uname"))%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#f9f9f9">联系电话</td>
<td> <%=mfkiqpl(rs("utel"))%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#f9f9f9">联系地址</td>
<td> <%=mfkiqpl(rs("uadd"))%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#f9f9f9">电子邮件</td>
<td> <%=mfkiqpl(rs("uemail"))%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#f9f9f9">预订时间</td>
<td> <%=rs("gdt")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#f9f9f9">备注</td>
<td> <%=mfkiqpl(rs("ubio"))%></td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td height="30" colspan="2"><a href="?">后退</a> <a href="?action=del&id=<%=rs("id")%>">删除</a></td>
</tr>
</table>
<%
closers(rs)
end sub
call manageend
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -