admin_flightcompany.asp

依蓝旅游网站管理系统Elan2008.SP2

rsCompany.Open()
%>
<script language="javascript">
function Check(frm){
  var CurrentMode = Editor.CurrentMode;
  if (CurrentMode == 0){
    frm.Content.value = Editor.HtmlEdit.document.body.innerHTML; 
  }else if(CurrentMode==1){
    frm.Content.value = Editor.HtmlEdit.document.body.innerText;
  }else{
    alert('公司简介处于预览状态不能保存');
    Editor.HtmlEdit.focus();
     return false;
  }
  
  if(frm.CompanyShortName.value.trim()==""){
     alert("请输入公司简称");
	 frm.CompanyShortName.focus();
	 return false;
  }
  if(frm.CompanyFullName.value.trim()==""){
     alert("请输入公司名全称");
	 frm.CompanyFullName.focus();
	 return false;
  }
  if(frm.LogoURL.value.trim()==""){
     alert("请输LOGO地址");
	 frm.LogoURL.focus();
	 return false;
  }
  if(frm.Content.value.trim()==""){
     alert("请输入公司简介");
	 Editor.HtmlEdit.focus();
	 return false;
  }
  
  SubmitOnce(frm);
  return;
}
</script>
<form name="myform" action="Admin_FlightCompany.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="2" class="top_25"><strong>修改航空公司</strong></td>
  </tr>
  <tr>
    <td width="15%" class="td_ItemName"><strong>公司简称</strong></td>
    <td width="85%" class="td_25"><input name="CompanyShortName" type="text" id="CompanyShortName" value="<%=EL_Common.ServerHTMLEncode(rsCompany("CompanyShortName"))%>" size="60"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>全称</strong></td>
    <td class="td_25"><input name="CompanyFullName" type="text" id="CompanyFullName" value="<%=EL_Common.ServerHTMLEncode(rsCompany("CompanyFullName"))%>" size="60"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>LOGO地址</strong></td>
    <td class="td_25"><input name="LogoURL" type="text" id="LogoURL" value="<%=EL_Common.ServerHTMLEncode(rsCompany("LogoURL"))%>" size="60"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>公司简介</strong></td>
    <td class="td_25">
	<textarea id="Content" name="Content" style="display:none;"><%=EL_Common.ServerHTMLEncode(rsCompany("Content"))%></textarea>
	<iframe id='Editor' src='../editor.asp?ChannelID=<%=EL_Channel.ChannelID%>&ShowType=3&tContentid=Content' frameborder='1' scrolling='no' width='650' height='350' ></iframe>	</td>
  </tr>
  <tr>
    <td class="td_ItemName">&nbsp;</td>
    <td class="td_50"><input type="submit" name="Submit" value="保存修改">
      <input type="button" name="Submit2" value="返回上页" onClick="history.back()">
      <input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
      <input name="Action" type="hidden" id="Action" value="SaveModify">
      <input name="CompanyID" type="hidden" id="CompanyID" value="<%=rsCompany("CompanyID")%>"></td>
  </tr>
</table>
</form>
<%
rsCompany.Close()
Set rsCompany = Nothing
Set CompanyCmd = Nothing
EL_Common.ShowSriptError()
End Sub

Sub ManageCompany()
On Error Resume Next
Dim CompanyCmd, rsCompany, RowCount, i
Call EL_Common.InitCommonCmd(CompanyCmd, rsCompany, "EL_FlightCompany", "CompanyID,CompanyShortName,CompanyFullName,LogoURL,FlightCount", "ChannelID="& EL_Channel.ChannelID)
rsCompany.Close()
RowCount = CompanyCmd(0)
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="12%" align="center" class="top_item"><strong>ID</strong></td>
    <td width="13%" align="center" class="top_item"><strong>LOGO图标</strong></td>
    <td width="13%" align="center" class="top_item"><strong>公司简称</strong></td>
    <td width="24%" align="center" class="top_item"><strong>全称</strong></td>
    <td width="16%" align="center" class="top_item"><strong><%=EL_Channel.ItemName%>数</strong></td>
    <td width="22%" align="center" class="top_item"><strong>相关操作</strong></td>
  </tr>
  <%
   If RowCount = 0 Then
      Response.Write "<tr><td class=td_50 align=center colspan=5>没有任何航空公司数据</td></tr>"
   Else
      rsCompany.Open()
	  For i = 1 To RowCount
  %>
  <tr class="td_25" onMouseOut="this.className='td_25'" onMouseOver="this.className='MouseOver_25'">
    <td align="center"><%=rsCompany(0)%></td>
    <td align="center"><img src="<%=rsCompany(3)%>" border="0" alt="图标路径：<%=EL_Common.ServerHTMLEncode(rsCompany(3))%>"></td>
    <td align="center"><%=rsCompany(1)%></td>
    <td align="center"><%=rsCompany(2)%></td>
    <td align="center"><strong class="redText"><%=rsCompany(4)%></strong> <%=EL_Channel.ItemUnit & EL_Channel.ItemName%></td>
    <td align="center">
	<a href="Admin_FlightCompany.asp?ChannelID=<%=EL_Channel.ChannelID%>&CompanyID=<%=rsCompany(0)%>&Action=Modify">修改</a> | 
	<% 
	If rsCompany(4)>0 Then
	   Response.Write "<span class=graytext>删除</span>"
	Else
	%>
	<a href="Admin_FlightCompany.asp?ChannelID=<%=EL_Channel.ChannelID%>&CompanyID=<%=rsCompany(0)%>&Action=Delete" onClick="return confirm('本次将彻底删除该航空公司信息及属下的所有航班，不可恢复，确认要执行删除吗？')">删除</a>
	<% End If %>	</td>
  </tr>
  <%
        If i<RowCount Then rsCompany.MoveNext
	  Next
	  rsCompany.Close()
   End If
  %>
</table>
<%
Set rsCompany = Nothing
Set CompanyCmd = Nothing
EL_Common.ShowScriptError()
End Sub


Sub AddCompany()
On Error Resume Next
%>
<script language="javascript">
function Check(frm){
  var CurrentMode = Editor.CurrentMode;
  if (CurrentMode == 0){
    frm.Content.value = Editor.HtmlEdit.document.body.innerHTML; 
  }else if(CurrentMode==1){
    frm.Content.value = Editor.HtmlEdit.document.body.innerText;
  }else{
    alert('公司简介处于预览状态不能保存');
    Editor.HtmlEdit.focus();
     return false;
  }
  
  if(frm.CompanyShortName.value.trim()==""){
     alert("请输入公司简称");
	 frm.CompanyShortName.focus();
	 return false;
  }
  if(frm.CompanyFullName.value.trim()==""){
     alert("请输入公司名全称");
	 frm.CompanyFullName.focus();
	 return false;
  }
  if(frm.LogoURL.value.trim()==""){
     alert("请输LOGO地址");
	 frm.LogoURL.focus();
	 return false;
  }
  if(frm.Content.value.trim()==""){
     alert("请输入公司简介");
	 Editor.HtmlEdit.focus();
	 return false;
  }
  
  SubmitOnce(frm);
  return;
}
</script>
<form name="myform" action="Admin_FlightCompany.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="2" class="top_25"><strong>添加航空公司</strong></td>
  </tr>
  <tr>
    <td width="15%" class="td_ItemName"><strong>公司简称</strong></td>
    <td width="85%" class="td_25"><input name="CompanyShortName" type="text" id="CompanyShortName" size="60"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>全称</strong></td>
    <td class="td_25"><input name="CompanyFullName" type="text" id="CompanyFullName" size="60"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>LOGO地址</strong></td>
    <td class="td_25"><input name="LogoURL" type="text" id="LogoURL" size="60"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>公司简介</strong></td>
    <td class="td_25">
	<textarea id="Content" name="Content" style="display:none;"></textarea>
	<iframe id='Editor' src='../editor.asp?ChannelID=<%=EL_Channel.ChannelID%>&ShowType=3&tContentid=Content' frameborder='1' scrolling='no' width='650' height='350' ></iframe>	</td>
  </tr>
  <tr>
    <td class="td_ItemName">&nbsp;</td>
    <td class="td_50"><input type="submit" name="Submit" value="添加公司">
      <input type="button" name="Submit2" value="返回上页" onClick="history.back()">
      <input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
      <input name="Action" type="hidden" id="Action" value="SaveNewCompany"></td>
  </tr>
</table>
</form>
<%
EL_Common.ShowSriptError()
End Sub
%>

</body>
</html>