admin_announce.asp

网络上经典的图片程序

<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
Admin_header
'=====================================================================
' 公告名称：新云网站管理系统
' 当前版本：NewCloud Site Management System Version 2.1
' 文件名称：admin_announce.asp
' 更新日期：2004-11-20
' 官方网站：新云网络(www.newasp.net) QQ：94022511
'=====================================================================
' Copyright 2002-2005 newasp.net - All Rights Reserved.
' newasp is a trademark of newasp.net
'=====================================================================
Dim Action,AnnounceID
Dim i,isEdit,TextContent,FoundSQL,oRs,strClass
Dim maxperpage,CurrentPage,totalnumber,TotalPageNum
Action = LCase(Request("action"))
If Not ChkAdmin("Announce") Then
	Server.Transfer("showerr.asp")
	Response.End
End If
%>
<table border=0 align=center cellpadding=3 cellspacing=1 class=tableborder>
<tr>
	<th>公告管理</th>
</tr>
<tr>
	<td class=tablerow2><strong>公告导航：</strong> <a href='admin_announce.asp'>管理首页</a> 
<%
	Set oRs = Newasp.Execute("Select ChannelID,ChannelName,ChannelType From NC_Channel where ChannelType < 2  Order By orders")
	Do While Not oRs.EOF
		Response.Write " | <a href='?ChannelID="
		Response.Write oRs("ChannelID")
		Response.Write "'>"
		Response.Write oRs("ChannelName")
		Response.Write "</a>"
	oRs.movenext
	Loop
	oRs.Close:Set oRs = Nothing
%>
| <a href='admin_announce.asp?action=add'><font color=blue>发布公告</font></a> 
	</td>
</tr>
</table>
<br>
<%
Select Case Trim(Action)
	Case "save"
		Call SaveAnnounce
	Case "modify"
		Call ModifyAnnounce
	Case "add"
		isEdit = False
		Call EditAnnounce(isEdit)
	Case "edit"
		isEdit = True
		Call EditAnnounce(isEdit)
	Case "view"
		Call ViewAnnounce
	Case "del"
		Call DelAnnounce
	Case Else
		Call MainPage
End Select
If FoundErr = True Then
	ReturnError(ErrMsg)
End If
Admin_footer
SaveLogInfo(AdminName)
CloseConn
Private Sub MainPage()
%>
<table border=0 align=center cellpadding=3 cellspacing=1 class=tableborder>
<tr>
	<th class=tablerow1>公告标题</th>
	<th class=tablerow1>显示位置</th>
	<th class=tablerow1>公告类型</th>
	<th class=tablerow1>操作选项</th>
	<th class=tablerow1>发布时间</th>
</tr>
<%
	maxperpage = 20 '###每页显示数
	
	If Not IsNumeric(Request("page")) And Len(Request("page")) <> 0 Then
		Response.Write ("错误的系统参数!请输入整数")
		Response.End
	End If
	If Not IsEmpty(Request("page")) And Len(Request("page")) <> 0 Then
		CurrentPage = CInt(Request("page"))
	Else
		CurrentPage = 1
	End If
	If CInt(CurrentPage) = 0 Then CurrentPage = 1
	If Request("ChannelID") <> "" Then
		FoundSQL = "where ChannelID = " & Request("ChannelID")
	Else
		FoundSQL = ""
	End If
	TotalNumber = Newasp.Execute("Select Count(AnnounceID) from NC_Announce "& FoundSQL &"")(0)
	TotalPageNum = CInt(TotalNumber / maxperpage)  '得到总页数
	If TotalPageNum < TotalNumber / maxperpage Then TotalPageNum = TotalPageNum + 1
	If CurrentPage < 1 Then CurrentPage = 1
	If CurrentPage > TotalPageNum Then CurrentPage = TotalPageNum
	Set Rs = Server.CreateObject("ADODB.Recordset")
	SQL = "select * from [NC_Announce] "& FoundSQL &" order by PostTime desc ,AnnounceID desc"
	If IsSqlDataBase = 1 Then
		If CurrentPage > 100 Then
			Rs.Open SQL, Conn, 1, 1
		Else
			Set Rs = Conn.Execute(SQL)
		End If
	Else
		Rs.Open SQL, Conn, 1, 1
	End If
	Newasp.SqlQueryNum = Newasp.SqlQueryNum + 1
	If Rs.bof And Rs.EOF Then
		Response.Write "<tr><td align=center colspan=5 class=TableRow2>还没有找到任何公告！</td></tr>"
	Else
		If TotalPageNum > 1 then Rs.Move (CurrentPage - 1) * maxperpage
		i = 0
%>
<tr>
	<td colspan=5 class=tablerow2><%Call showpage()%></td>
</tr>
<%
	Do While Not Rs.EOF And i < CInt(maxperpage)
		If Not Response.IsClientConnected Then Response.End
		If (i mod 2) = 0 Then
			strClass = "class=TableRow1"
		Else
			strClass = "class=TableRow2"
		End If
		Response.Write "<tr>"
		Response.Write "	<td " & strClass & "><a href='?action=view&AnnounceID="
		Response.Write Rs("AnnounceID")
		Response.Write "	'>"
		Response.Write Rs("title")
		Response.Write "	</a></td>"
		Response.Write "	<td align=center " & strClass & ">"

		If Rs("ChannelID") = 0 Then
			Response.Write "首页公告"
		ElseIf Rs("ChannelID") = 1 Then
			Response.Write "<span class=style1>文章频道</span>"
		ElseIf Rs("ChannelID") = 2 Then
			Response.Write "<span class=style2>下载频道</span>"
		ElseIf Rs("ChannelID") = 3 Then
			Response.Write "<span class=style3>商城频道</span>"
		ElseIf Rs("ChannelID") = 4 Then
			Response.Write "<span class=style2>动画频道</span>"
		ElseIf Rs("ChannelID") = 5 Then
			Response.Write "<span class=style3>留言频道</span>"
		Else
			Response.Write "<span class=style1>所有页面显示</span>"
		End If
		Response.Write "	</td>"
		Response.Write "	<td align=center class=tablerow1>"
		If Rs("AnnounceType") = 1 Then
			Response.Write "<span class=style2>内容公告</span>"
		ElseIf Rs("AnnounceType") = 2 Then
			Response.Write "<span class=style1>弹出公告</span>"
		Else
			Response.Write "列表公告"
		End If
%>
	</td>
	<td align=center <%=strClass%>><a href='?action=edit&AnnounceID=<%=Rs("AnnounceID")%>'>编辑</a> | 
	<a href='?action=del&AnnounceID=<%=Rs("AnnounceID")%>' onclick="{if(confirm('公告删除后将不能恢复，您确定要删除该公告吗?')){return true;}return false;}">删除</a></td>
	<td align=center <%=strClass%>>
<%
		If Rs("PostTime") >= Date Then
			Response.Write "<font color=red>"
			Response.Write Newasp.FormatDate(Rs("PostTime"), 2)
			Response.Write "</font>"
		Else
			Response.Write Newasp.FormatDate(Rs("PostTime"), 2)
		End If
%>
	</td>
</tr>
<%
		Rs.movenext
			i = i + 1
			If i >= maxperpage Then Exit Do
		Loop
	End If
	Rs.Close:Set Rs = Nothing
%>
<tr>
	<td colspan=5 class=tablerow2><%Call showpage()%></td>
</tr>
</table>

<%
End Sub

Private Sub EditAnnounce(isEdit)
	Dim EditTitle
	If isEdit Then
		SQL = "select * from NC_Announce where AnnounceID=" & Request("AnnounceID")
		Set Rs = Newasp.Execute(SQL)
		EditTitle = "编辑公告"
	Else
		EditTitle = "添加公告"
	End If
%>
<script language=javascript>
    function CheckForm(form1)
{
	if (!validateSubmit()) return (false);
	if (form1.title.value == "")
	{
		alert("公告标题不能为空！");
		form1.title.focus();
		return (false);
	}
	form1.content.value=IframeID.document.body.innerHTML; 
	MessageLength=IframeID.document.body.innerHTML.length;
	if(MessageLength<2){alert("公告内容不能小于2个字符！");return false;}
}
</script>
<div onkeydown=CtrlEnter()>
<table width="100%"  border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorder">
  <tr>
    <th colspan="2"><%=EditTitle%></th>
  </tr>
    	<form method=Post name="myform" action="admin_announce.asp" onSubmit="return CheckForm(this);">
<%
	If isEdit Then
		Response.Write "<input type=""Hidden"" name=""action"" value=""modify"">"
		Response.Write "<input type=""Hidden"" name=""AnnounceID"" value="""& Request("AnnounceID") &""">"
	Else
		Response.Write "<input type=""Hidden"" name=""action"" value=""save"">"
	End If
%>
  <tr>
    <td width="20%" align="right" class="TableRow2"><strong>公告标题：</strong></td>
    <td width="80%" class="TableRow1"><input name="title" type="text" id="title" size="50" value='<%If isEdit Then Response.Write Rs("title")%>'> 
      <span class="style1">* </span></td>
  </tr>
  <tr>