admin_announce.asp

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

}
function CancelAll(){
  for (var i=0;i<document.myform.elements.length;i++){
    var e = document.myform.elements[i];
    if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false){
       e.checked = false;
    }
  }
  getObject("myselect").innerHTML = "[<a href='javascript:CheckedAll()'>全选</a>]";
}
function CheckObject(){
   var frm = getObject("myform");
   for (var i=0;i<frm.elements.length;i++){
    var e = frm.elements[i];
    if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false && e.checked == true ){
       return true
    }
  }
  return false;
}
function Check(frm){
  SubmitOnce(frm);
  return true;
}

var JURL = "<%=EL_CurrentScriptName%>?ChannelID=<%=EL_Channel.ChannelID%>";

function doDelete(){
  var frm = getObject("myform");
  if(!CheckObject()){
     alert("请至少选定1条公告");
	 return false;
  }
  frm.action = JURL + "&Action=Delete";
  if(confirm("本次操作将彻底删除选定的公告，不可以恢复\n确认要执行选定删除吗？")){
     frm.submit();
	 return;
  }
  return false;
}

function doSetActivedTrue(){
  var frm = getObject("myform");
  if(!CheckObject()){
     alert("请至少选定1条公告");
	 return false;
  }
  frm.action = JURL + "&Action=SetActive&SetValue=<%=EL_True%>";
  if(confirm("是否要激活选定的公告吗？")){
     frm.submit();
	 return;
  }
  return false;
}

function doSetActivedFalse(){
  var frm = getObject("myform");
  if(!CheckObject()){
     alert("请至少选定1条公告");
	 return false;
  }
  frm.action = JURL + "&Action=SetActive&SetValue=<%=EL_False%>";
  if(confirm("是否要冻结选定的公告吗？")){
     frm.submit();
	 return;
  }
  return false;
}

function doSetShowType(){
  var frm = getObject("myform");
  if(!CheckObject()){
     alert("请至少选定1条公告");
	 return false;
  }
  frm.action = JURL + "&Action=SetShowType";
  if(confirm("是否要将选定公告设置为 "+ getObject("ShowType").options[getObject("ShowType").selectedIndex].text +" 吗？")){
     frm.submit();
	 return;
  }
  return false;
}

</script>
<form name="myform" action="" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td><%=CurrentPath%></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="4%" align="center" class="top_item"><strong>选择</strong></td>
    <td width="4%" align="center" class="top_item"><strong>ID</strong></td>
    <td width="41%" align="center" class="top_item"><strong>标题</strong></td>
    <td width="10%" align="center" class="top_item"><strong>发布者</strong></td>
    <td width="14%" align="center" class="top_item"><strong>发布日期</strong></td>
    <td width="7%" align="center" class="top_item"><strong>类型</strong></td>
	<td width="5%" align="center" class="top_item"><strong>状态</strong></td>
    <td width="15%" align="center" class="top_item"><strong>操作</strong></td>
  </tr>
  <%
    If RowCount = 0 Then
	   Response.Write "<tr><td class=td_50 align=center colspan=8>没有任何公告数据</td></tr>"
	Else
	   Dim i
	   rsAnnounce.Open()
	   For i = 1 To RowCount
  %>
  <tr class="td_25" onMouseOut="this.className='td_25'" onMouseOver="this.className='MouseOver_25'">
    <td align="center"><input name="CheckObject" type="checkbox" id="CheckObject" value="<%=rsAnnounce("AnnounceID")%>"></td>
    <td align="center"><%=rsAnnounce("AnnounceID")%></td>
    <td style="padding-left:3px;"><%=rsAnnounce("Title")%></td>
    <td align="center" nowrap><%=rsAnnounce("Inputer")%></td>
    <td align="center" nowrap><%=rsAnnounce("UpdateTime")%></td>
    <td align="center" nowrap><%=ArrShowType(rsAnnounce("ShowType"))%>
	</td>
    <td width="5%" align="center" nowrap><%=EL_Common.ShowBoolean(rsAnnounce("Actived").value, "<span class=greentext>活</span>","<span class=graytext>活</span>")%></td>
    <td width="15%" align="center" nowrap>
	<a href="<%=EL_CurrentScriptName%>?Action=Modify&AnnounceID=<%=rsAnnounce("AnnounceID")%>">修改</a> | 
	<a href="<%=EL_CurrentScriptName%>?Action=Delete&AnnounceID=<%=rsAnnounce("AnnounceID")%>" onClick="return confirm('本次操作将彻底删除这条公告，不能恢复，确定要执行删除吗？')">删除</a> | 
	<% 
	If rsAnnounce("Actived") Then
	   Response.Write "<a href='"& EL_CurrentScriptName &"?Action=SetActive&AnnounceID="& rsAnnounce("AnnounceID") &"&SetValue="& EL_False &"'>冻结</a>"
	Else
	   Response.Write "<a href='"& EL_CurrentScriptName &"?Action=SetActive&AnnounceID="& rsAnnounce("AnnounceID") &"&SetValue="& EL_True &"'>激活</a>"
	End If
	%>
	</a>
	</td>
  </tr>
  <%
          If i<RowCount Then rsAnnounce.MoveNext
	   Next
	   rsAnnounce.Close()
	End If
  %>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td width="12%"><span id="myselect">[<a href="javascript:CheckedAll()">全选</a>]</span></td>
    <td width="88%" align="right" nowrap><%Call EL_Common.ShowPage("", CurrentPage, PageSizes, PageCounts, TotalRowCount, "公告", "条")%></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td height="50" align="center"><input type="button" name="Submit3" value="删除选定公告" onClick="doDelete()">
      <input type="button" name="Submit5" value="激活选定公告" onClick="doSetActivedTrue()">
      <input type="button" name="Submit52" value="冻结选定公告" onClick="doSetActivedFalse()">
      <input type="button" name="Submit4" value="设置选定公告为 &gt;&gt;" onClick="doSetShowType()">
      <select name="ShowType" id="ShowType">
        <option value="1">滚动</option>
        <option value="2">弹出</option>
        <option value="0">两者</option>
      </select></td>
  </tr>
</table>
</form>

<form name="search" method="get" action="<%=EL_CurrentScriptName%>">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="8%" nowrap class="td_50">公告搜索：</td>
    <td width="92%" class="td_50">
	  <select name="Search_Field" id="Search_Field">
	  <option value="Title">公告标题</option>
	  <option value="Content">公告内容</option>
	  <option value="Inputer">发布者</option>
      </select>
      <input name="Search_Keywords" type="text" id="Search_Keywords" value="关键字">
      <input type="submit" name="Submit3" value="搜索">
	</td>
  </tr>
</table>
</form>
<%
Set rsAnnounce = Nothing
Set ManageCmd = Nothing
EL_Common.ShowScriptError()
End Sub


Sub AddAnnounce()
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.Title.value.trim()==""){
     alert("请输入公告标题");
	 frm.Title.focus();
	 return false;
  }
  
  if(frm.Content.value.trim()==""){
     alert("请输入公告内容");
	 Editor.HtmlEdit.focus();
	 return false;
  }
  
  if(frm.Inputer.value.trim()==""){
     alert("请输入发布者");
	 frm.Inputer.focus();
	 return false;
  }
  
  SubmitOnce(frm);
  return;
}
</script>
<form name="myform" action="Admin_Announce.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="3" class="top_25"><strong>添加公告</strong></td>
  </tr>
  <tr>
    <td width="18%" class="td_ItemName"><strong>标题</strong></td>
    <td colspan="2" class="td_25"><input name="Title" type="text" class="RulerInput" id="Title" size="60"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>显示方式</strong></td>
    <td width="30%" class="td_25"><input name="ShowType" type="radio" class="nomargin" value="1" checked>
      滚动
        <input name="ShowType" type="radio" class="nomargin" value="2">
        弹出
        <input name="ShowType" type="radio" class="nomargin" value="0">
      两者</td>
    <td width="52%" class="td_25"><input name="Actived" type="checkbox" class="nomargin" id="Actived" value="<%=EL_True%>" checked>
    立即激活</td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>公告内容</strong></td>
    <td colspan="2" class="td_25">
	<textarea name='Content' id="Content" style='display:none'></textarea>
	<iframe ID='Editor' src='../editor.asp?ChannelID=<%=EL_Channel.ChannelID%>&ShowType=2&tContentid=Content' frameborder='1' scrolling='no' width='550' height='300' ></iframe>	</td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>发布者</strong></td>
    <td colspan="2" class="td_25"><input name="Inputer" type="text" id="Inputer" value="<%=EL_Admin.AdminName%>"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>配色风格</strong></td>
    <td colspan="2" class="td_25">
	<select name="SkinID" id="SkinID">
      <option value="0">使用系统默认</option>
      <%=EL_Common.SkinList(-1)%>
    </select>
	</td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>页面模板</strong></td>
    <td colspan="2" class="td_25">
	<select name="TemplateID" id="TemplateID">
      <option value="0">使用系统默认</option>
      <%=EL_Common.TemplateList(0, 19, -1)%>
    </select>
	</td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>发布日期</strong></td>
    <td colspan="2" class="td_25"><input name="UpdateTime" type="text" id="UpdateTime" value="<%=Now()%>">
      <span class="redText">格式如：2007-1-20 11:20:23</span></td>
  </tr>
  <tr>
    <td class="td_ItemName">&nbsp;</td>
    <td colspan="2" class="td_50"><input type="submit" name="Submit" value="添加公告">
      <input type="button" name="Submit2" value="返回上页" onClick="history.back()">
      <input name="Action" type="hidden" id="Action" value="Save"></td>
  </tr>
</table>
</form>
<%
EL_Common.ShowScriptError()
End Sub
%>


</body>
</html>