📄 announcement.asp

📁 BBS论坛的开发和设计
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#Include file = "BBSConfig.asp"-->
<!--#include file="Session.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>论坛公告管理</title>
<link href="Style.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_callJS(jsStr) { //V2.3
  return eval(jsStr)
}
//-->
</script>
</head>

<body leftmargin="0" topmargin="0">
<%
Sub errorMsg(theError)
response.write"<script language=javascript>alert('"& theError &"');history.back();</script>"
response.End
End Sub
'---------------------------------------
action = trim(request.QueryString("action"))
SELECT CASE action
	Case "add"
		Call add()
	Case "SaveNew"
		Call SaveNew()
	Case "Edit"
		Call Edit()
	Case "SaveEdit"
		Call SaveEdit()
	Case "Del"
		Call Del()
	Case "modify"
		Call modify()
	Case else
		Call list()
End SELECT
'========================
Sub SaveNew()
	BoardID = trim(request.QueryString("BoardID"))
		if Not(IsNumeric(BoardID)) then ErrorMsg = "参数错误!~"
	title = trim(request.form("title"))
	title = replace(title,"'","")
		if title ="" then ErrorMsg  "请输入公告标题!~"
	content = replace(request.form("content"),"'","")
		if content = "" then ErrorMsg "请输入公告内容!~"
	UserID = request.Cookies(JBBMasterCookies)("UserID")
	if UserID="" then UserID=1
	Conn.ExeCute("insert into JBB_announcement(title,content,BoardID,UserID,times) values('"& title &"','"& content &"',"& BoardID &","& UserID &",'"& Now() &"')")
	response.write "<br><br>　　添加成功!~"
End Sub
'============================
Sub SaveEdit()
	ID = trim(request.QueryString("ID"))
		if Not(IsNumeric(ID)) then ErrorMsg  "参数错误!~"
	title = trim(request.form("title"))
	title = replace(title,"'","")
		if title ="" then ErrorMsg  "请输入公告标题!~"
	content = replace(request.form("content"),"'","")
		if content = "" then ErrorMsg "请输入公告内容!~"
	Conn.ExeCute("update JBB_announcement set title='"& title &"',content='"& content &"' where id = "&id)
	response.write "<br><br>　　修改成功!~"
End Sub
'============================
Sub add()
%>
<br>
  
<form name="form1" method="post" action="?action=SaveNew&BoardID=<%=trim(request.querystring("BoardID"))%>">
  <table width="481" height="40" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
    <tr bgcolor="#EFEFE7"> 
      <td colspan="2"><strong><font color="#000000">发布公告</font></strong></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="30">发布到</td>
      <td><%=trim(request.QueryString("BoardName"))%></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="99" height="30">公告标题： </td>
      <td width="300"> 
        <input name="title" type="text" id="title" size="30"></td>
    </tr>
    <tr valign="top" bgcolor="#FFFFFF"> 
      <td height="30">公告内容： </td>
      <td> 
        <textarea name="content" cols="50" rows="5" id="content"></textarea></td>
    </tr>
  </table>
<div align="center"><br>
    <input name="Submit" type="submit" class="form1" value="添加">
    　 
    <input name="Submit2" type="reset" class="form1" value="重置">
</div>
  </form>
<%
End Sub
'================================
Sub list()
	response.Write("<br>　　<a href=?action=add&boardID=0&BoardName=所有论坛>添加公告到所有的论坛</a><br><br>")
	set rs = server.CreateObject("adodb.recordset")
	rs.open "select Class_ID,Class_name from JBB_Class order By Class_order asc",conn,1,1
	if Not(rs.eof and rs.bof) then
		do while not rs.eof
			response.Write("　　<b>"& rtrim(rs(1)) &"</b><br>")
			set rs1 = server.CreateObject("adodb.recordset")
			rs1.open "select BoardID,title from JBB_Board where ClassID="&rs(0) &" order By Boardorder asc",conn,1,1
			if Not(rs1.eof and rs1.Bof) then
				for i = 1 to rs1.recordCount
					response.Write("　　　　"& rtrim(rs1(1)) &"　<a href=?action=add&BoardID="& rtrim(rs1(0)) &"&BoardName="& rtrim(rs1(1)) &">[添加公告]</a><br>")
				rs1.MoveNext
				Next
			End if
			rs1.close
			set rs1 = Nothing
		rs.MoveNext
		Loop
	End if
	rs.close
	set rs = Nothing
End Sub
'=============================
Sub Del()
	id = trim(request.QueryString("id"))
		if Not(IsNumeric(newsid)) then ErrorMsg "参数错误!~"
	if trim(request.Form("Submit")) = "确定删除" then
		Conn.ExeCute("Delete From JBB_announcement where ID="&id)
		response.Write("<br><br>　　删除完毕!~")
	else
%>
<br>
<table width="340" height="47" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
  <form name="form2" method="post" action="?action=Del&id=<%=id%>">
    <tr> 
      <td bgcolor="#EFEFE7">
<div align="center"><strong><font color="#000000">确认删除</font></strong></div></td>
    </tr>
    <tr> 
      <td height="50" bgcolor="#FFFFFF">
<div align="center"><font color="#FF0000">您确定删除此条公告吗？</font></div></td>
    </tr>
    <tr> 
      <td bgcolor="#EFEFE7">
<div align="center"> 
          <input name="Submit" type="submit" class="form1" id="Submit" value="确定删除">
          　 
          <input name="Submit6" type="button" class="form1" onClick="MM_callJS('history.back()')" value="返回">
        </div></td>
    </tr>
  </form>
</table>
<%
	End if
End Sub
'==========================
Sub Edit()
	id = trim(request.QueryString("id"))
		if Not(IsNumeric(id)) then ErrorMsg "参数错误!~"
	set rs = server.CreateObject("adodb.recordset")
	rs.open "select title,content from JBB_announcement where id="&id,conn,1,1
	if Not(rs.eof and rs.bof) then
%><br>
  
<form name="form1" method="post" action="?action=SaveEdit&id=<%=id%>">
  <table width="481" height="40" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
    <tr bgcolor="#EFEFE7"> 
      <td colspan="2"><strong>编辑公告</strong></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="99" height="30">公告标题： </td>
      <td width="300"> 
        <input name="title" type="text" id="title3" value="<%=rtrim(rs(0))%>" size="30"></td>
    </tr>
    <tr valign="top" bgcolor="#FFFFFF"> 
      <td height="30">公告内容： </td>
      <td> 
        <textarea name="content" cols="50" rows="5" id="textarea2"><%=rs(1)%></textarea></td>
    </tr>
  </table>
  <div align="center"><br>
    <input name="Submit" type="submit" class="form1" value="修改">
    　 
    <input name="Submit2" type="reset" class="form1" value="重置">
</div>
  </form>
<%
	End if
	rs.close
	set rs = nothing	
End Sub
'=============================
Sub modify()
	set rs = server.CreateObject("adodb.recordset")
	rs.open "select * From JBB_announcement",conn,1,1
	if Not(rs.Eof And rs.Bof) then
%>
<br>
<table width="560" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
  <tr bgcolor="#EFEFE7"> 
    <td width="183"><div align="center"><strong>公告标题</strong></div></td>
    <td width="91"><div align="center"><strong>论坛</strong></div></td>
    <td width="87"><div align="center"><strong>发布人</strong></div></td>
    <td width="83" bgcolor="#EFEFE7"> <div align="center"><strong>发布时间</strong></div></td>
    <td width="80" bgcolor="#EFEFE7"><div align="center"><strong>管理</strong></div></td>
  </tr>
  <%
	for i = 1 to rs.recordCount
	%>
  <tr bgcolor="#FFFFFF"> 
    <td> <div align="center"><a href="../announcement.asp?action=show&id=<%=rs("id")%>" target="_blank"><%=trim(rs("title"))%></a></div></td>
    <td> <div align="center"> 
        <%
	if rs("BoardID") < 1 then
		response.Write("所有论坛")
	else
		set rsb = Conn.exeCute("select title From JBB_Board where Boardid="&rs("BoardID"))
			if not rsb.eof then	response.Write(rtrim(rsb(0)))
		set rsb = nothing
	End if
	%>
      </div></td>
    <td> <div align="center"> 
        <%
	set rsu = Conn.exeCute("select UserName From JBB_user where userid="&rs("UserID"))
	if not rsu.eof then response.Write(rtrim(rsu(0)))
	set rsu = nothing
	%>
      </div></td>
    <td> <div align="center"><%=formatdatetime(trim(rs("times")),2)%></div></td>
    <td> <div align="center">[<a href="?action=Edit&ID=<%=rs("ID")%>">编辑</a>][<a href="?action=Del&ID=<%=rs("ID")%>">删除</a>]</div></td>
  </tr>
  <%
	rs.MoveNext
	Next
	%>
</table>

<%
	End if
	rs.close
	set rs = Nothing
End Sub
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -