admin_announce.asp

正版创力4.1SQL商业版!!!ASP版。

<!--#include file="Inc/Const.asp"-->
<%
if Not Cl.TrueOtherPurview("Announce") then
	Cl.ShowErr("<br /><li>您无此操作权限！</li>")
end if
dim rsChannel
dim Action
Action=Trim(Request("Action"))
ChannelID=Trim(Request("ChannelID"))
if Not IsNumeric(ChannelID) or ChannelID="" then ChannelID=-1
ChannelID=CLng(ChannelID)
FileName="Admin_announce.asp?ChannelID="&ChannelID
Header
%>
<script language="JavaScript" type="text/javascript">
function unselectall()
{
    if(document.myform.chkAll.checked){
	document.myform.chkAll.checked = document.myform.chkAll.checked&0;
    } 	
}

function CheckAll(form)
{
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements[i];
    if (e.name != "chkAll"&&e.disabled!=true)
       e.checked = form.chkAll.checked;
    }
}
function ConfirmDel()
{
	if(document.myform.Action.value=="Del")
	{
		if(confirm("确定要删除选中的公告吗？"))
		    return true;
		else
			return false;
	}
}
</script>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr class="title"> 
    <td height="22" colspan="2" align="center"><b>网 站 公 告 管 理</b></td>
  </tr>
  <tr class="tdbg"> 
    <td width="70" height="30"><strong>管理导航：</strong></td>
    <td height="30"><a href="Admin_Announce.asp?Action=Add">添加新公告</a> | <a href="Admin_Announce.asp">所有</a> <%
	Dim Node
	For Each Node In Application(Cl.CacheName & "_channellist").documentElement.SelectNodes("channel[@channeltype<2]")
	Response.write " | <a href=""Admin_Announce.asp?ChannelID="&Node.SelectSingleNode("@channelid").text&""">"&Node.SelectSingleNode("@channelname").text&"</a>"
	Next
	Set Node = Nothing
	%></td>
  </tr>
</table>
<br />
<%
Select Case Action
Case "Add","Modify"
	call AnnounceInfo()
Case "SaveAdd","SaveModify"
	call SaveAnnounceInfo()
Case "SetNew"
	call SetNew()
Case "CancelNew"
	call CancelNew()
Case "SetShowType"
	call SetShowType()
Case "Move"
	call MoveAnnounce()
Case "Del"
	call DelAnnounce()
Case "RefreshAnnounceJs"
	RefreshAnnounceJs
	Cl.OutMsg 0,"恭喜您，所有公告Js刷新成功！","Admin_Announce.asp"
Case else
	call main()
end Select

Footer

sub main()
	sql="select * from Cl_Announce"
	if ChannelID >= 0 then sql=sql & " where ChannelID=" & ChannelID
	sql=sql & " order by ChannelID,IsSelected,id desc"
	set rs=server.createobject("adodb.recordset")
	OpenConn : rs.open sql,Conn,1,1
%>
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
	<form action="<%=FileName%>" method="post" name="myform" id="myform" onsubmit="return ConfirmDel();">
    <tr class="title"> 
      <td width="30" height="22" align="center"><strong>选择</strong></td>
      <td width="50" height="22" align="center"><strong>公告ID</strong></td>
      <td height="22" align="center"><strong>标 题</strong></td>
      <td width="70" height="22" align="center"><strong>所属频道</strong></td>
      <td width="60" height="22" align="center"><strong>显示方式</strong></td>
      <td width="60" height="22" align="center"><strong>发布人</strong></td>
      <td width="120" height="22" align="center"><strong>发布时间</strong></td>
      <td width="60" height="22" align="center"><strong>操作</strong></td>
    </tr>
    <%
	if not(rs.bof and rs.eof) then
		do while not rs.eof
%>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'"> 
      <td width="30" align="center"> 
        <input type="checkbox" value="<%=rs("ID")%>" name="AnnounceID" />
      </td>
      <td width="50" align="center"><%=rs("ID")%> </td>
      <td><a href="<%=FileName%>&Action=Modify&ID=<%=rs("ID")%>" title="<%=left(Cl.Nohtml(rs("content")),200)%>"><%=rs("Title")%></a></td>
      <td width="70" align="center"><%
			response.write Cl.GetChannelName(rs("ChannelID"))
			if rs("IsSelected")=True then response.write "&nbsp;<font color=#009900>新</font>"
			%></td>
      <td width="60" align="center"><%
		Select Case rs("ShowType")
		Case 0 : response.write "全部"
		Case 1 : response.write "滚动"
		Case 2 : response.write "弹出"
		End Select
		%></td>
      <td width="60" align="center"><%=rs("Author")%></td>
      <td width="120" align="center"><%=rs("AddTime")%></td>
      <td width="60" align="center"><%
	  response.write "<a href='" & FileName & "&Action=Modify&ID=" & rs("ID") & "'>修改</a>&nbsp;&nbsp;"
	  response.write "<a href='" & FileName & "&Action=Del&AnnounceID=" & rs("ID") & "' onClick=""return confirm('确定要删除此公告吗？');"">删除</a>"
	  %></td>
    </tr>
    <%
		rs.movenext
	loop
	%>
    <tr class="tdbg"> 
      <td colspan="8" height="30"> 
        <input name="chkAll" type="checkbox" id="chkAll" onclick="CheckAll(this.form)" value="checkbox" />
        选中所有公告 
        <input name="Action" type="hidden" id="Action" value="del" />
        &nbsp;&nbsp;&nbsp;&nbsp;说明：只有将公告设为最新公告后才会在前台显示
		<% if Cl.Web_Setting(1)="No" then response.write "<font color='red'>(网站配置中已将弹出公告禁用)</font>"%>
      </td>
    </tr>
    <tr class="tdbg">
      <td colspan="8" height="30">将选定的公告： 
        <input type="submit" value=" 删除 " name="submit" onClick="document.myform.Action.value='Del'" />
        &nbsp;&nbsp;
        <input type="submit" value="设为最新公告" name="submit" onClick="document.myform.Action.value='SetNew'" />
        &nbsp;&nbsp;
        <input type="submit" value="取消最新公告" name="submit" onClick="document.myform.Action.value='CancelNew'" />
        &nbsp;&nbsp;
        <input type="submit" value="设置显示方式" name="submit" onClick="document.myform.Action.value='SetShowType'" />
		<select name='ShowType'>
			<option value='0'>全部</option>
			<option value='1'>滚动</option>
			<option value='2'>弹出</option>
		</select>
        &nbsp;&nbsp;
        <input type="submit" value="移动至" name="submit" onClick="document.myform.Action.value='Move'" />
		<select name='MtChannelID'>
		<option value="-1">所有频道</option>
		<%
		Dim Node
		For Each Node In Application(Cl.CacheName & "_channellist").DocumentElement.selectNodes("channel[@channeltype<2]")
		Response.write "<option value=""" & Node.selectSingleNode("@channelid").text& """>" & Node.selectSingleNode("@channelname").text& "</option>"
		Next
		Set Node = Nothing%>
		</select>
	  </td>
    </tr>
	</form>
    <% end if
if Cl.Web_Info(15) = "1" then
  %>
<form action="<%=FileName%>" method="post" name="formRefresh" id="formRefresh">
   <tr class="tdbg">
      <td height="40" colspan="8" align="center">
		<input name="Action" type="hidden" id="Action" value="RefreshAnnounceJs" /> 
        <input name="Submit" type="submit" value=" 刷新所有公告JS文件 " /></td>
    </tr>
</form>
<%end if%>
  </table>
<%
	rs.close : set rs=Nothing
end sub

Sub AnnounceInfo()
	Dim ID,sSubmit
	Dim Title,IsLink,LinkUrl,Content,Author,AddTime,ShowType,IsSelected
	ID=Cl.GetClng(request("ID"))
	if Action="Modify" then
		if ID=0 then
			Cl.ShowErr("<br /><li>请指定要修改的公告ID！</li>")
		end if
		sql="select * from Cl_Announce where ID=" & ID
		set rs=server.createobject("adodb.recordset")
		OpenConn : rs.open sql,Conn,1,1
		if rs.bof and rs.eof then
			rs.close:set rs=Nothing
			Cl.ShowErr("<br /><li>找不到指定的公告！</li>")
		end if
		Title		= Rs("Title")	: IsLink	= Rs("IsLink")
		LinkUrl		= Rs("LinkUrl")	: Content	= Rs("Content")
		Author		= Rs("Author")	: AddTime	= Rs("AddTime")
		ChannelID	= Rs("ChannelID"): ShowType	= Rs("ShowType")
		IsSelected	= Rs("IsSelected") : sSubmit= "修 改"
		rs.close:set rs=Nothing
	else
		Title		= ""	: IsLink	= False
		LinkUrl		= ""	: Content	= ""
		Author		= Cl.MemberName: AddTime	= Now()
		ChannelID	= -1	: ShowType	= 0
		IsSelected	= True : sSubmit= "添 加"
	end if
%>
<form action="Admin_Announce.asp" method="post" name="myform" id="myform">
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
    <tr align="center" class="title"> 
      <td height="22" colspan="2"><strong><%=sSubmit%> 公 告</strong></td>
    </tr>
    <tr class="tdbg"> 
      <td width="20%" align="right">公告标题：</td>
      <td width="80%"> 
        <input type="text" name="Title" size="66" id="Title" value="<%=Server.HTMLEnCode(Title)%>" /> 
        <font color="#0000ff">支持HTML语法，不能超过250个字符！</font>
      </td>
    </tr>
	<tr class="tdbg">
		<td width="20%" align="right">转向链接：</td>
		<td><input name="IsLink" type="checkbox" id="IsLink" value="True" onclick="ChkLink();" <%if IsLink=True then%>Checked<%end if%> />
		&nbsp;转向链接</td>
	</tr>
    <tr class="tdbg" id="ChkIsLink" style="display:none;"> 
      <td align="right">链接地址：</td>
      <td><input name="LinkUrl" type="text" id="LinkUrl" value="<%=LinkUrl%>" size="66" maxlength="200" /> 
      <font color="#0000ff">请输入完整的URL地址！</font>
      </td>
    </tr>
    <tr class="tdbg" id="ChkNoLink"> 
      <td align="right">公告内容：</td>
      <td> 
        <textarea name="Content" id="Content" style="Display:none"><%=Content%></textarea>
		<iframe id="editor" src="../Editor/Editor.asp?id=Content&style=Other&cid=0" frameborder="0" scrolling="No" width="550" height="250"></iframe>
      </td>
    </tr>
    <tr class="tdbg"> 
      <td align="right">发 布 人：</td>
      <td> 
        <input name="Author" type="text" id="Author" value="<%=Cl.HTMLCode(Author)%>" size="20" maxlength="20" />
      </td>
    </tr>
    <tr class="tdbg"> 
      <td align="right">发布时间：</td>
      <td> 
        <input name="AddTime" type="text" id="AddTime" value="<%=AddTime%>" size="20" maxlength="20" />
      </td>
    </tr>
    <tr class="tdbg"> 
      <td align="right">所属频道：</td>
      <td> 
		<select name="ChannelID">
		<option value="-1">所有频道</option>