?? announcement.asp
字號(hào):
<%@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 = "參數(shù)錯(cuò)誤!~"
title = trim(request.form("title"))
title = replace(title,"'","")
if title ="" then ErrorMsg "請(qǐng)輸入公告標(biāo)題!~"
content = replace(request.form("content"),"'","")
if content = "" then ErrorMsg "請(qǐng)輸入公告內(nèi)容!~"
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 "參數(shù)錯(cuò)誤!~"
title = trim(request.form("title"))
title = replace(title,"'","")
if title ="" then ErrorMsg "請(qǐng)輸入公告標(biāo)題!~"
content = replace(request.form("content"),"'","")
if content = "" then ErrorMsg "請(qǐng)輸入公告內(nèi)容!~"
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">發(fā)布公告</font></strong></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30">發(fā)布到</td>
<td><%=trim(request.QueryString("BoardName"))%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="99" height="30">公告標(biāo)題： </td>
<td width="300">
<input name="title" type="text" id="title" size="30"></td>
</tr>
<tr valign="top" bgcolor="#FFFFFF">
<td height="30">公告內(nèi)容： </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 "參數(shù)錯(cuò)誤!~"
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">確認(rèn)刪除</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 "參數(shù)錯(cuò)誤!~"
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">公告標(biāo)題： </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">公告內(nèi)容： </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>公告標(biāo)題</strong></div></td>
<td width="91"><div align="center"><strong>論壇</strong></div></td>
<td width="87"><div align="center"><strong>發(fā)布人</strong></div></td>
<td width="83" bgcolor="#EFEFE7"> <div align="center"><strong>發(fā)布時(shí)間</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>?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -