📄 admin_placard.asp

📁 BBS源码利用ASP的一个功能齐全的BBS论坛源码
💻 ASP
字号:
<!--#include file="Admin_Check.asp"-->
<!--#include file="Inc/Page_Cls.asp"-->
<%
Dim Action,ID
Action=Lcase(Request.querystring("Action"))
ID=BBS94KK.Checknum(request.querystring("ID"))
AdminHead()
Select Case Action
Case"edit"
	EditPlacard()	
Case"del"
	BBS94KK.execute("Delete From [KK_Placard] where ID="&ID&"")
	Cache.Name="Placard"
	Cache.clean()
	Call Suc("","删除成功！","?")
Case Else
	SayPlacard()
End Select
AdminFooter()
Set BBS94KK=Nothing

Sub SayPlacard()
	Dim Caption,Content,Temp,TmpBoardID
	Caption=BBS94KK.Fun.Checkbad(BBS94KK.Fun.GetStr("caption"))
	Content=BBS94KK.Fun.Checkbad(BBS94KK.Fun.GetStr("Content"))
	IF Caption="" And Content="" Then%>
	<form style='margin: 0' method=POST name=kk><table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark=#FFFFFF bgcolor="#DEF0FE"><tr><td bgcolor="#4D65A4"  colspan=2 ><b><font color="#FFFFFF"> 发布公告</font></b></td></tr>
	<tr><td width="15%" height='24'>&nbsp;&nbsp;公告标题：</td>
	<td width="85%">&nbsp;<input name='Caption' type='text' id='Caption' size='60'></td></tr><tr><td>&nbsp;&nbsp;所在版块：</td>
	<td>
	&nbsp;
	<select name='BoardID'><option value='0'>论坛首页</option><%=BBS94KK.BoardIDList(0,0)%></select>
	</td></tr><tr><td >&nbsp;&nbsp;公告内容：</td><td><table width='100%'><tr><td width="85%"><img onClick=Cbold() src="Pic/Ubb/U_1.gif"  border=0 alt=粗体字> <img src="Pic/Ubb/U_2.gif" onClick=Citalic() border=0 alt=斜体字 > <img src="Pic/Ubb/U_3.gif" onClick=Cunder() border=0 alt=下划线> <img src="Pic/Ubb/U_4.gif" onClick=center() border='0' alt='居中'> <img src="Pic/Ubb/U_5.gif" onClick=fly() border=0 alt=飞行字> <img src="Pic/Ubb/U_6.gif" onClick=move() border=0 alt=移动字> <img src="Pic/Ubb/U_7.gif" onClick=Insert("[light]内容[/light]") border=0 alt=发光字> <img src="Pic/Ubb/U_8.gif" onClick=ying() border=0 alt=阴影字>
	<img src="Pic/Ubb/U_9.gif" onClick=Curl() border='0' alt='超连接'> <img src="Pic/Ubb/U_10.gif" onClick=Cemail() border='0' alt='Email连接'> <img src="Pic/Ubb/U_11.gif" onClick=showpic() border='0' alt='更多的心情图片'> <img src="Pic/Ubb/U_12.gif" onClick=image() border=0 alt=图片> <img src="Pic/Ubb/U_13.gif" onClick=swf() border=0 alt=Flash动画 > <img onClick=Cwmv()  src="Pic/Ubb/U_14.gif" border=0 alt='Media Player视频文件'> <img src="Pic/Ubb/U_15.gif" onClick=Crm() border=0 alt=realplay视频文件>  <img onClick=Csound() src="Pic/Ubb/U_16.gif" border='0' alt='插入背景音乐'>
	<TEXTAREA name=content  cols=90 rows='8' style='PADDING-RIGHT: 5px; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; PADDING-TOP: 5px;WIDTH: 100%;' onkeydown=presskey();></textarea></td><td valign='top' width='15%'><br><br><input type='button' style='BACKGROUND: url(Images/plus.gif); width:20;height:20;border:0;cursor:hand' onclick='textarea_Size(3,this.form.content)' ><br><br><input type='button' style='BACKGROUND: url(Images/minus.gif); width:20;height:20;border:0;cursor:hand' onclick='textarea_Size(-3,this.form.content)'></td></tr></Table></td></tr>
	<tr><td  height='30' colspan=2 align='center'> <input  type='submit' value='确定发布'>&nbsp;<input type='reset' value='取消重写'><div id='MaoDiv' style='position: absolute; width:570px; height:160px; display:none;'><iframe id='MView' name='MView' src='about:blank' frameborder='0' scrolling='no' valign='top' width='100%' height='100%'></iframe></div></tr></table></form>
	<%AdminPlacard()
	Else
		If Caption="" or Content="" Then Call GoBack("",""):Exit Sub
		TmpBoardID=BBS94KK.Fun.GetStr("BoardID")
		Temp=BBS94KK.Fun.UbbString(Content)
		BBS94KK.execute("insert into[KK_Placard](Caption,Content,AddTime,Name,BoardID,UbbString)values('"&Caption&"','"&Content&"','"&BBS94KK.NowBbsTime&"','"&AdminName&"',"&TmpBoardID&",'"&Temp&"')")
		Call Suc("","公告发布成功！","?")
		Cache.Name="Placard"
		Cache.clean()
	End If
End Sub

Sub EditPlacard()
	Dim Caption,Content,Temp,Rs,TmpBoardID
	Caption=BBS94KK.Fun.Checkbad(BBS94KK.Fun.GetStr("caption"))
	Content=BBS94KK.Fun.Checkbad(BBS94KK.Fun.GetStr("Content"))
	IF Caption="" And Content="" Then
		Set Rs=BBS94KK.execute("select ID,BoardID,Caption,Content,AddTime,Name,hits from [KK_Placard] where ID="&ID&"")
		IF Not rs.eof Then%>
	<form style='margin: 0' method=POST name=kk>
	<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark=#FFFFFF bgcolor="#DEF0FE"><tr>
	  <td bgcolor="#4D65A4"  colspan=2 ><b><font color="#FFFFFF"> 修改公告</font></b></td>
	</tr>
	<tr><td width="15%" height='30'>&nbsp;&nbsp;公告标题：</td><td width="85%">&nbsp;<input name='ID' type='hidden' value="<%=Rs("ID")%>"><input name='Caption' type='text' id='Caption' value="<%=Rs("caption")%>" size='60'></td></tr>
	<tr><td>&nbsp;&nbsp;所在版块：</td><td>&nbsp;<select name='BoardID'><option value='0'>论坛首页</option><%=BBS94KK.BoardIDList(Rs("BoardID"),0)%></select>
	</td></tr><tr><td valign="top">&nbsp;&nbsp;公告内容：</td><td><table width='100%'><tr><td width="80%"><img onClick=Cbold() src="Pic/Ubb/U_1.gif"  border=0 alt=粗体字> <img src="Pic/Ubb/U_2.gif" onClick=Citalic() border=0 alt=斜体字 > <img src="Pic/Ubb/U_3.gif" onClick=Cunder() border=0 alt=下划线> <img src="Pic/Ubb/U_4.gif" onClick=center() border='0' alt='居中'> <img src="Pic/Ubb/U_5.gif" onClick=fly() border=0 alt=飞行字> <img src="Pic/Ubb/U_6.gif" onClick=move() border=0 alt=移动字> <img src="Pic/Ubb/U_7.gif" onClick=Insert("[light]内容[/light]") border=0 alt=发光字> <img src="Pic/Ubb/U_8.gif" onClick=ying() border=0 alt=阴影字>
	<img src="Pic/Ubb/U_9.gif" onClick=Curl() border='0' alt='超连接'> <img src="Pic/Ubb/U_10.gif" onClick=Cemail() border='0' alt='Email连接'> <img src="Pic/Ubb/U_11.gif" onClick=showpic() border='0' alt='更多的心情图片'> <img src="Pic/Ubb/U_12.gif" onClick=image() border=0 alt=图片> <img src="Pic/Ubb/U_13.gif" onClick=swf() border=0 alt=Flash动画 > <img onClick=Cwmv()  src="Pic/Ubb/U_14.gif" border=0 alt='Media Player视频文件'> <img src="Pic/Ubb/U_15.gif" onClick=Crm() border=0 alt=realplay视频文件>  <img onClick=Csound() src="Pic/Ubb/U_16.gif" border='0' alt='插入背景音乐'>
	<TEXTAREA name=content  cols=90 rows='8' style='PADDING-RIGHT: 5px; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; PADDING-TOP: 5px;WIDTH: 100%;' onkeydown=presskey();><%=Rs("content")%></textarea></td><td valign='top' width='20%'><br><br><input type='button' style='BACKGROUND: url(Images/plus.gif); width:20;height:20;border:0;cursor:hand' onclick='textarea_Size(3,this.form.content)' ><br><br><input type='button' style='BACKGROUND: url(Images/minus.gif); width:20;height:20;border:0;cursor:hand' onclick='textarea_Size(-3,this.form.content)'></td></tr></Table></td></tr>
	<tr><td  height='30' colspan=2 align='center'> <input  type='submit' value='确定发布'>&nbsp;<input type='reset' value='取消重写'><div id='MaoDiv' style='position: absolute; width:570px; height:160px; display:none;'><iframe id='MView' name='MView' src='about:blank' frameborder='0' scrolling='no' valign='top' width='100%' height='100%'></iframe></div></tr></table></form>
	<%
		Else
			Call GoBack("","不存在公告记录！"):Exit Sub
		End If
	Else
		ID=BBS94KK.Fun.GetStr("ID")
		TmpBoardID=BBS94KK.Fun.GetStr("BoardID")
		If Caption="" or Content="" Then Call GoBack("",""):Exit Sub
		Temp=BBS94KK.Fun.UbbString(Content)
		BBS94KK.execute("update [KK_Placard] Set Caption='"&Caption&"',Content='"&Content&"',AddTime='"&BBS94KK.NowBBSTime&"',ubbString='"&Temp&"',BoardID="&TmpBoardID&" where ID="&ID&"")
		Call Suc("","公告修改成功！","?")
		Cache.Name="Placard"
		Cache.clean()
	End If
End Sub
Function GetBoardName(Ast)
	Dim i
	If IsArray(BBS94KK.Board_Rs) Then
		For i=0 To Ubound(BBS94KK.Board_Rs,2)
		IF BBS94KK.Board_Rs(1,i)=Ast Then
			GetBoardName=BBS94KK.Board_Rs(3,i)
			Exit For
		End IF
		Next
	End If
	If GetBoardName="" Then GetBoardName="首页"
End Function
Sub AdminPlacard()
	Dim Pages,Page,arr_Rs,i,Temp,Content,PageInfo
	Page = Request.QueryString("page")
	Set pages = New Cls_PageView
	pages.strTableName = "[KK_Placard]"
	pages.strPageUrl = "?Action="&Action
	pages.strFieldsList = "ID,Caption,BoardID,Name,AddTime,hits"
	'pages.strCondiction = ""
	pages.strPrimaryKey ="ID"
	pages.strOrderList = "BoardID,ID desc"
	pages.intPageSize = 30
	pages.intPageNow = Page
	pages.strCookiesName = "Placard_List"'客户端记录总数
	pages.Reloadtime=0'每三分钟更新Cookies
	pages.strPageVar = "page"
	pages.InitClass
	Arr_Rs = pages.arrRecordInfo
	PageInfo = pages.strPageInfo
	page=pages.intPageNow
	Set pages = nothing
	Content="<tr bgcolor='#D7DAEA'><td width='35%' align='center' height=25><b>公告标题</b></td><td width='15%' align='center'><b>所在版块</b></td><td width='10%' align='center'><b>作者</b></td><td width='20%' align='center'><b>时间</b></td><td width='20%' align='center'><b>管理</b></td></tr>"
	If IsArray(Arr_Rs) Then
		For i = 0 to UBound(Arr_Rs, 2)
		Content=Content&"<tr><td height=25>&nbsp;<a href=javascript: onclick=javascript:window.open('See.asp?Action=placard&ID="&Arr_Rs(0,i)&"','','width=500,height=400,resizable=1,scrollbars=yes,menubar=no,status=yes')>"&BBS94KK.Fun.HtmlCode(Arr_Rs(1,i))&"</td><td align='center'>"&GetBoardName(Arr_Rs(2,i))&"</td><td align='center'>"&Arr_Rs(3,i)&"</td><td align='center'>"&Arr_Rs(4,i)&"</td><td align='center'><a href='?Action=Edit&ID="&Arr_Rs(0,i)&"'><img src='Images/Edit.gif' border='0'>修改</a> <a onclick=checkclick('删除这条公告！！\n\n您确定要删除吗？') href='?Action=del&ID="&Arr_Rs(0,i)&"'><img src='Images/del.gif' border='0'>删除</a></td></tr>"
		Next
	%>
	<br>
	<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark=#FFFFFF bgcolor="#DEF0FE"><tr><td bgcolor="#4D65A4"  colspan=8 ><b><font color="#FFFFFF"> 公告列表</font></b></td></tr>
	<%=Content%>
	<tr><td colspan=8 bgcolor="#E8F4EF"><%=PageInfo%></td>
	</tr></table>
	<%End If
End Sub
%>
<SCRIPT src="inc/Fun.js"></SCRIPT>
⌨️ 快捷键说明

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