admin_board.asp

机票订票系统,使用ASP

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!--#include file="conn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<SCRIPT language=JavaScript>
function check(){
if( form1.lx.value=="")
{alert("请选择航班类别\n谢谢配合");
return false;}
if( form1.jichang.value=="")
{alert('请选择起飞机场\n谢谢配合');
return false;}
if( form1.zhongdian.value=="")
{alert('请添入终点站\n谢谢配合');
return false;}
if( form1.hangbanhao.value=="")
{alert('请添入航班号\n谢谢配合');
return false;}
if( form1.qifei.value=="")
{alert('请添入起飞时间\n谢谢配合');
return false;}
if( form1.daoda.value=="")
{alert('请添入到达时间\n谢谢配合');
return false;}
if( form1.meizhou.value=="")
{alert('请添入航班日期\n谢谢配合');
return false;}
if( form1.hkgs.value=="")
{alert('请添入飞机所属航空公司\n谢谢配合');
return false;}
if( form1.quanjia.value=="")
{alert('请添入机票全价\n谢谢配合');
return false;}
if( form1.jixing.value=="")
{alert('请添入飞机类型\n谢谢配合');
return false;}
return true;}
</SCRIPT>
<%
managemode
dim action
action=trim(request("action"))
select case action
case "add"
add
case "addok"
addok
case "delok"
delok
case else
response.write("<script>alert('错误的传递参数！');history.back(1);</script>")
end select
sub add

%>

<style type="text/css">
<!--
.style2 {color: #FF0000}
.style6 {color: #FF0000; font-weight: bold; }
a:link {
	text-decoration: none;
}
a:visited {
	text-decoration: none;
}
a:hover {
	text-decoration: none;
}
a:active {
	text-decoration: none;
}
line {
	color: #0000FF;
}
-->
</style>
<table width="635" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<form action="?action=addok" method="post" name="form1"  >
  <tr bgcolor="#f5f5f5">
    <td height="21" colspan="8"><div align="center"><span class="style6">[添&nbsp;加&nbsp;新&nbsp;航&nbsp;线]</span></div></td>
    </tr>
  <tr bgcolor="#FFFFFF">
    <td width="58" height="21">航班类型</td>
    <td width="72" align="center"><div align="left">
      <select name="lx" id="lx">
        <option value="0" selected>国内</option>
        <option value="1">国际</option>
      </select>
    </div></td>
    <td width="78" align="center"><div align="left">起飞机场：</div></td>
    <td width="79" align="center"><div align="left">
      <select name="jichang" id="jichang">
        <option value="上海浦东" selected>上海浦东</option>
        <option value="上海虹桥">上海虹桥</option>
      </select>
    </div></td>
    <td width="63" align="center"><div align="left">目的地：</div></td>
    <td width="86" align="center"><div align="left">
      <input name="zhongdian" type="text" id="zhongdian" size="10" maxlength="20">
    </div></td>
    <td width="68" align="center"><div align="left">全价：</div></td>
    <td width="82" align="center"><div align="left">
      <input name="danchen" type="text" id="txt15" size="10" maxlength="20">
    </div></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="21" align="center"><div align="left">特价：</div></td>
    <td><input name="wangfan" type="text" id="txt22" size="10" maxlength="20"></td>
    <td>航空公司：</td>
    <td><input name="hkgs" type="text" id="txt42" size="10" maxlength="20" /></td>
    <td>首页显示：</td>
    <td><input name="ntop" type="checkbox" id="ntop2" value="y" /></td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="18" align="center" bgcolor="#f5f5f5"><div align="left">每周航班：</div></td>
    <td colspan="7"><textarea name="beizhu" id="beizhu"></textarea></td>
    </tr>
  <tr bgcolor="#FFFFFF">
    <td height="15" colspan="8" align="center" bgcolor="#f5f5f5"><div align="left" class="style2">注意：航班日期可任意填写：每天或每周或1/3/5</div></td>
  </tr>
  <tr align="center" bgcolor="#f5f5f5">
    <td height="30" colspan="8"><p>
      <input type="submit" name="Submit" value="确 定 添 加" onClick="javascript:return check()">
      </p>      </td>
  </tr>
</form>
</table>
<%
manageend
end sub

sub addok

ntop=request("ntop")
if ntop="y" then 
 ntop=1
else
 ntop=0
end if

set rs=server.createobject("adodb.recordset")
set rs.activeconnection=conn
sql="select * from hangban"
rs.open sql,,1,2
rs.addnew
rs("终点站")=request("zhongdian")
rs("机场")=request("jichang")
rs("航空公司")=request("hkgs")
rs("全价")=request("danchen")
rs("特价")=request("wangfan")
rs("每周航班")=request("beizhu")
rs("类型")=request("lx")
rs("首页显示")=ntop
rs.update
closers(rs)
response.write("<script>alert('添加成功！按确定返回！');location='admin_board.asp?action=add';</script>")

end sub
sub delok
dim id
id=trim(request("id"))
sclass=request("sclass")
city=request("city")
linehao=request("linehao")
if not isNumeric(id) then
response.write("<script>alert('错误的参数！请从有效链接进入！');history.go(-1);</script>")
else
conn.execute ("delete from hangban where id="&id)
response.write("<center>删除成功！</center>")
end if
%>
<form name="form2" method="post" action="/admin_edit.asp?action=edit">
  <div align="center">
    <input name="sclass" type="hidden" id="sclass" value="<%=sclass%>">
    <input name="city" type="hidden" id="city" value="<%=city%>">
    <input name="linehao" type="hidden" id="linehao" value="<%=linehao%>">
    <input type="submit" value="返回">
</div>
</form>
<%
end sub
%>