📄 admin_broad.asp
字号:
<!--#include file="Inc/Level012.asp" -->
<!--#include file="Connections/connY.asp" -->
<!--#include file="Inc/TimeFormat.asp" -->
<!--#include file="Inc/UBBCode.asp" -->
<!--#include file="Inc/SetCss.asp" -->
<html>
<head>
<title><%=Forum_Title%></title>
<meta http-equiv="Content-Type" content="text/html;">
<meta http-equiv="Expires" CONTENT="0">
<meta http-equiv="Cache-Control" CONTENT="no-cache">
<meta http-equiv="Pragma" CONTENT="no-cache">
<!--#include file="Inc/Css.asp" -->
<script language=Javascript src="Js/Menu.Js"></script>
<script language=Javascript src="Js/Button.Js"></script>
<script language=Javascript src="Js/Operate.Js"></script>
</head>
<body leftmargin="0" topmargin="0" bgcolor="<%=Forum_ColorList_BgColor%>" vlink="<%=Forum_Css_A_Link_Color%>" onLoad="MM_preloadImages('<%=Forum_Pic_Write2%>','<%=Forum_Pic_Vote2%>')">
<!--#include file="Inc/Top.asp" -->
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="<%=Forum_ColorList_BorderColor%>">
<tr>
<td height="20" bgcolor="<%=Forum_ColorList_BgColor%>">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="font">
<tr>
<td> 您所在的位置： <a href="../" onfocus="this.blur()">首页</a> >>
<a href="List.asp" onFocus="this.blur()">讨论组</a> >> <font color="<%=Forum_ColorList_NavFontColor%>">论坛管理系统</font></td>
<td width="18">
<div align="center"></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height=1></td>
</tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="2" align="center" bgcolor="<%=Forum_ColorList_BorderColor%>" class="font">
<tr>
<td valign="top" width="102" bgcolor="<%=Forum_ColorList_BgColor%>">
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td>
<!--#include file="Inc/Menu.asp" -->
</td>
</tr>
</table>
</td>
<td bgcolor="<%=Forum_ColorList_BgColor%>" valign="top"> <br>
<table width="80%" border="0" cellspacing="1" cellpadding="2" align="center" class="font" bgcolor="<%=Forum_ColorList_BorderColor%>">
<tr>
<td bgcolor="<%=Forum_ColorList_TitleColor%>" height="20"> 公告管理</td>
</tr>
<tr>
<td bgcolor="<%=Forum_ColorList_BgColor%>" valign="top"> 1. 论坛公告显示在论坛版面列表.只显示一条,即最新一条.<br>
-------------------------------------------------------------------------------<br>
<b> <a href="Admin_Broad.asp" onFocus="this.blur()">列表</a> | <a href="Admin_Broad.asp?Action=AddBroad" onFocus="this.blur()">添加</a></b><br>
-------------------------------------------------------------------------------<br>
<%
If Request("Action")="DelBroad" Then
Set rsDel = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tBroadManage Where rID="&Request("I")
rsDel.Open Sql,ConnY,3,3
rsDel.Delete
rsDel.Close
Set rsDel=Nothing
Response.Write " 成功删除系统公告."
End If
If Request("Action")="BroadNow" Then
Set rsAdd = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tBroadManage"
rsAdd.Open Sql,ConnY,3,3
rsAdd.AddNew
rsAdd("rTitle")=Request("Title")
rsAdd("rContent")=Request("Content")
rsAdd("rSubject")=0
rsAdd("rTime")=Now()
rsAdd("rPoster")=Session("SNickName")
rsAdd("rIsSystem")=True
rsAdd.Update
rsAdd.Close
Response.Write " 成功添加系统公告."
End If
If Request("Action")="AddBroad" Then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="font">
<form name="form１" method="post" action="Admin_Broad.asp?Action=BroadNow">
<tr>
<td width="11%">
<div align="center">标题</div>
</td>
<td width="89%">
<input type="text" name="Title" class="Textfiled" size="40" value="公告标题">
</td>
</tr>
<tr>
<td width="11%" valign="top">
<div align="center">内容</div>
</td>
<td width="89%">
<textarea name="Content" cols="57" rows="12" style="BACKGROUND-COLOR:<%=Forum_Css_Textfiled1_BackGroundColor%>; BORDER-BOTTOM: 1px inset SOLID <%=Forum_Css_Textfiled1_BorderColor%>;BORDER-LEFT: 1px inset SOLID <%=Forum_Css_Textfiled1_BorderColor%>; BORDER-RIGHT: 1px inset SOLID <%=Forum_Css_Textfiled1_BorderColor%>; BORDER-TOP: 1px inset SOLID <%=Forum_Css_Textfiled1_BorderColor%>; COLOR: <%=Forum_Css_Textfiled1_FontColor%>; font-size:<%=Forum_Css_Textfiled1_FontSize%>">公告内容</textarea>
</td>
</tr>
<tr>
<td width="11%" height="35"> </td>
<td width="89%" height="35">
<input type="submit" name="Submit" value="提交公告" class="button">
</td>
</tr>
</form>
</table>
<%
End If
If Request("Action")="" Then
Set rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tBroadManage Where rIsSystem Order By rTime Desc"
rs.Open Sql,ConnY,3,3
%>
<table width="100%" border="0" cellspacing="0" cellpadding="2" class="font">
<tr>
<td width="89%"> 标题</td>
</tr>
<%
While Not rs.Eof
%>
<tr>
<td width="89%"> <%=rs("rTitle")%> <a href="Admin_Broad.asp?Action=DelBroad&I=<%=rs("rID")%>" onFocus="this.blur()">删除</a></td>
</tr>
<%
rs.MoveNext
Wend
rs.Close
Set rs=Nothing
%>
</table>
<%
End If
%>
</td>
</tr>
</table>
<div align="center"><br>
</div>
<div align="center"></div>
</td>
</tr>
</table>
<!--#include file="Inc/Bottom.asp" -->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -