📄 usual_line.asp

📁 机票预定系统各个模块的设计-ticket reservation systems detailed design system modules of the design
💻 ASP
字号:
<!--对航段的操作-->
<!--#include file="include/conn.asp"-->
<!--#include file="CheckSystem.asp"-->
<%
checkmanager(session("ManagerName"))'调用函数，验证管理员是正常登陆
if trim(request("action"))="delete" then
k=request("deleteid")
'response.write k
'response.end
deleteid=split(request("deleteid"))
for i=0 to ubound(deleteid)
deleteid(i)=replace(deleteid(i),",","")
sql="delete from Taprice where [航段] ='"&deleteid(i)&"'"
conn.execute(sql)
next
action=""
msg_ok="群组删除成功！id共"&i&"个，分别是"&k
end if
'-----------------以上是删除代码
%>
<%
SearchFiled=request("SearchFiled")
SearchKey1=request("SearchKey1")
'----------------以上是搜索代码
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>后台管理机票系统</title>
<link href="include/css.css" rel="stylesheet" type="text/css">
</head>
<script>
function call(){
//添加记录或修改记录时所跳转的页面
window.location.href="usual_line_mod.asp";
return false;
}
function dele(){
//删除记录所用的函数
if(!confirm('已经确认需要删除选中的信息吗？')) return false;
ZXLform.submit();
}
function sltall(){
var nn=self.document.all.item("deleteid");
for(j=0;j<nn.length;j++){
self.document.all.item("deleteid",j).checked=true;
  }
}
function escall(){
var nn=self.document.all.item("deleteid");
for(j=0;j<nn.length;j++){
self.document.all.item("deleteid",j).checked=false;
  }
}
</script>
<body>
<TABLE cellPadding=0 cellSpacing=1>
<form name="FrmSearch" action="usual_line.asp" method="post">
	<TR bgColor=#C3E7F9>
    <TD height="30" colspan="28">
	 &nbsp;检索：&nbsp;
	 <select name="SearchFiled">
      <option value="LineCode">按航段</option>
     </select>
     &nbsp;&nbsp;
     <input type="text" style="width:100px" name="SearchKey1" value='<%=SearchKey1%>'>
&nbsp;&nbsp;
<input name="Submit" type="submit" value=" 搜  索 ">
	</TD>
    </TR>
  </form>
</TABLE>
<TABLE cellPadding=0 cellSpacing=1>
    <form name="ZXLform" action="usual_line.asp" method="post">
          <TR bgColor=#C3E7F9>
            <td width="10%" height="30" align="center">航段</td>
            <td width="5%" height="30" align="center">里程 </td>
            <td width="6%" align="center">航空公司</td>
            <td width="3%" align="center">F</td>
            <td width="3%" align="center" >C</td>
            <td width="3%" align="center" >Y</td>
            <td width="3%" align="center">Y95</td>
            <td width="3%" align="center">Y90</td>
            <td width="3%" align="center">Y85</td>
            <td width="3%" align="center">Y80</td>
            <td width="3%" align="center">Y75</td>
            <td width="3%" align="center">Y70</td>
            <td width="3%" align="center">Y65</td>
            <td width="3%" align="center">Y60</td>
            <td width="3%" align="center">Y55</td>
            <td width="3%" align="center">Y50</td>
            <td width="3%" align="center">Y45</td>
            <td width="3%" align="center">Y40</td>
            <td width="3%" align="center">Y35</td>
            <td width="3%" align="center">Y30</td>
            <td width="3%" align="center">Y25</td>
            <td width="3%" align="center">Y20</td>
            <td width="3%" align="center">Y15</td>
            <td width="3%" align="center">Y10</td>
            <td width="3%" align="center">Y05</td>
            <td width="8%" align="center">截此日期</td>
            <td width="5%" height="30" align="center">操作</td>
          </TR>
	<%
	dim szSQL
    set oRst=Server.CreateObject("AdoDb.recordset")
	szSQL="select * from Taprice  order by [updatetime] desc"
	if SearchFiled="LineCode" and SearchKey1<>"" then
	szSQL="select * from Taprice where 航段 like '%"&SearchKey1&"%' order by  航段 desc"
	end if
	oRst.Open szSQL,conn,1,1
		  '--------------------分页
		if oRst.eof then
			response.write("当前没有记录,请单击<a href='usual_line_mod.asp'>[添加]</a>")
			response.end
		else
		if request.QueryString("pageno")="" then
			pageno=1
		else
			pageno=cint(request.QueryString("pageno"))
		end if
		recordcounts=oRst.recordcount
		pagesiz=15
		oRst.pagesize=15
		pagecounts=oRst.pagecount
		if pageno<1 then
 			pageno=1
 		end if
 		if pageno>pagecounts-1 then
			pageno=pagecounts
 		end if
		oRst.absolutepage=pageno
            i=0
			while not oRst.eof  and pagesiz>0			
                i=i+1
                bc="bgcolor='#eff3f7'"
                if i mod 2=0 then bc="bgcolor='#FFFFFF'"
				LineCode=oRst("航段")
				ConstracteTax=oRst("ConstracteTax")
				distance=oRst("distance")
				AirWays=oRst("AirWays")
				FY=oRst("Y")
                FF=oRst("F")
				FC=oRst("C")
				Y95=oRst("Y95")
				Y90=oRst("Y90")
				Y85=oRst("Y85")
				Y80=oRst("Y80")
				Y75=oRst("Y75")
				Y70=oRst("Y70")
				Y65=oRst("Y65")
				Y60=oRst("Y60")
				Y55=oRst("Y55")
				Y50=oRst("Y50")
				Y45=oRst("Y45")
				Y40=oRst("Y40")
				Y35=oRst("Y35")
				Y30=oRst("Y30")
				Y25=oRst("Y25")
				Y20=oRst("Y20")
				Y15=oRst("Y15")
				Y10=oRst("Y10")
				Y05=oRst("Y05")
				EndTime=oRst("EndTime")
				updatetime=oRst("updatetime")
		  %>
          <TR <%=bc%> >
            <TD height="25" align=center><a href="usual_line_mod.asp?LineCode=<%=LineCode%>"><%=LineCode%></a> </TD>
            <TD align="center"><%=distance%></TD>
            <TD align="center" ><%=Airways%></TD>
            <TD ><%=FF%></TD>
            <TD><%=FC%></TD>
            <TD height="25" ><%=FY%></TD>
            <TD height="25" ><%=Y95%></TD>
            <TD height="25" ><%=Y90%></TD>
            <TD height="25" ><%=Y85%></TD>
            <TD height="25" ><%=Y80%></TD>
            <TD height="25" ><%=Y75%></TD>
            <TD height="25" ><%=Y70%></TD>
            <TD height="25" ><%=Y65%></TD>
            <TD height="25" ><%=Y60%></TD>
            <TD height="25" ><%=Y55%></TD>
            <TD height="25" ><%=Y50%></TD>
            <TD height="25" ><%=Y45%></TD>
            <TD height="25" ><%=Y40%></TD>
            <TD height="25" nowrap><%=Y35%></TD>     
            <TD nowrap><%=Y30%></TD>
            <TD nowrap><%=Y25%></TD>
            <TD nowrap><%=Y20%></TD>
            <TD nowrap><%=Y15%></TD>
            <TD nowrap><%=Y10%></TD>
            <TD nowrap><%=Y05%></TD>
            <TD height="25" align="center" nowrap><%=EndTime%></TD>
            <TD align="center"><input name="deleteid" type="checkbox" id="deleteid" value="<%=LineCode%>">            </TD>
          </TR>
          <%
			oRst.MoveNext
			pagesiz=pagesiz-1
			wend
		end if
		%>
        <TR bgColor=#EEEEEE>
          <td height="30" colspan="28">
             <input type="button" name="AddnewBunk" onClick="javascript:call();" value=" 添加运价 ">
             <input type="hidden" name="action" value="delete">
             <input name="button" type="button" onClick="return dele()" value=" 删 除 ">
    <a href onClick="sltall()" onMouseDown="sltall()">全选</a><a href onClick="escall()" onMouseDown="escall()">/全不选</a>&nbsp;&nbsp;共有<span style="color:red;"><%=recordcounts%></span>条;每页显示<font style="color:red;">15</font>条;转到第
                  <select name="select" id="pa" onChange="window.location.href='usual_line.asp?SearchFiled=<%=SearchFiled%>&SearchKey1=<%=SearchKey1%>&pageno='+document.all.pa.value;">
                    <% for i=1 to pagecounts 
		  if i=pageno then
		  response.write("<option value="&i&" selected>"&i&"</option>")
		  else
		  response.write("<option value="&i&">"&i&"</option>")
		  end if
		 next
		%></select>
                  页</td>
        </TR>
  </form>
</TABLE>
</body>
</html>
💿 文件大小 2978 K
👤 上传用户 x184372250
📂 所属分类电子书籍
🏷️ 相关标签

#design #reservation #detailed #modules
⌨️ 快捷键说明

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