placard.asp

YxBBs是由Y网出品的一套ASP论坛系统,拥有小巧、高速、简捷、易用等特点。在YxBBs1.X刚起步的时候经过了大量的版本测试,现在YxBBs完善了技术

<!--#include file="Inc/SysConfig.Asp"-->
<!--#include file="Inc/Page_Cls.Asp"-->
<%
Dim Action,ID,BoardID,Caption,Content,Rs
Action=Lcase(Request.QueryString("Action"))
ID=YxBBs.Checknum(Request.QueryString("ID"))
Select Case Action
	
Case"editrule"
	EditRule()	
	
Case"boardsetting"
	BoardSetting()

Case"editsetting"
	EditSetting()

Case Else
	Brule()
End Select
YxBBs.Footer()
Set YxBBs=Nothing

Sub EditSetting()
Dim BoardSetting,sql
IF YxBBs.ClassID>3 Then YxBBs.Error("版面管理权限不足！")
If YxBBs.BoardID>0 Then
		YxBBs.CheckBoard()
	End If
Call YxBBs.Head("版块权限设置")
BoardID=Request.form("BoardID")
IF BoardID="" or not isNumeric(BoardID) then
	YxBBs.Error("参数错误码，请确认正确的参数！")
End if

BoardSetting=Request.form("TopicCode") & "," & Request.form("UpLoadType") & "," & Request.form("TopicMaxLong") & "," & Request.form("ArticleMaxLong") & "," & Request.form("BoardMaxVote") & "," & Request.form("UserMinPost") & "," & Request.form("UserMinRemark") & "," & Request.form("UserMinMoneys") & "," & Request.form("UserMinLoginTimes") & "," & Request.form("UserMinDigestNum") & "," & Request.form("UserMinRegTime") & "," & Request.form("ALeast")
Set Rs=Server.CreateObject("Adodb.Recordset")
YxBBs.execute("update [YX_Board] Set BoardSetting='"&BoardSetting&"' where BoardID="&BoardID&"")
Set rs=nothing
Cache.name="BoardInfo":Cache.clean()
Caption="操作成功"
Content="<div style='margin:15;line-height: 150%'><li>版块权限设置成功！ <li><a href=Default.Asp>返回论坛首页</a></div>"
Call YxBBs.ShowTable(Caption,Content)
End sub

Sub BoardSetting()
IF YxBBs.ClassID>3 Then YxBBs.Error("版面管理权限不足！")
If YxBBs.BoardID>0 Then
		YxBBs.CheckBoard()
	End If
IF  YxBBs.ClassID=3 And YxBBs.IsBoardAdmin=False Then YxBBs.Error("版面管理权限不足！")
Call YxBBs.Head("版块权限设置")
dim BoardName,BoardSetting,ClassID
BoardID=Request("BoardID")
if Not IsNumeric(ClassID) then
	YxBBs.Error("参数错误，请从新检查！")
end if

set rs=Conn.execute("Select BoardID,BoardName,BoardSetting from YX_Board where BoardID="& BoardID)
if rs.eof or rs.bof then
	YxBBs.Error("找不到此版块或已删除！")
else
	BoardName=rs("BoardName")
	BoardSetting=split(rs("BoardSetting"),",")
Caption=" 版 块 权 限 设 置"
Content="<form action='?action=editsetting' method=post name='creator'><table cellpadding=6 cellspacing=1 border=0 width=95% bgcolor='#FFFFFF' align='center'>"&_
 		"<tr><td bgcolor=#d7d7d7 width=35% height=20>版块名称</td><td bgcolor=#d7d7d7 height=20><INPUT TYPE=hidden name=BoardID value="&BoardID&" readonly>"&_
		""&BoardName&"　</td>"&_
		"</tr><tr><td bgcolor=#E7E7E7 colspan=2 height=14><font color=#000077><b>版块相关</b></font></td>"&_
		"</tr><tr><td bgcolor=#d7d7d7 height=20>发贴使用验证码</td>"&_
		"<td bgcolor=#d7d7d7 height=20>是<input name=TopicCode type=radio value=1 if "&BoardSetting(0)&"=1 then checked>&nbsp;否<input name=TopicCode type=radio value=0 if "&BoardSetting(0)&"=0 then checked></td>"&_
		"</tr><tr><td bgcolor=#d7d7d7 height=20>上传类型</td><td bgcolor=#d7d7d7 height=0>"&_
        "<input name=UpLoadType size=20 value="&BoardSetting(1)&"></td></tr><tr><td bgcolor=#d7d7d7 height=20>主题限制长度</td>"&_
		"<td bgcolor=#d7d7d7 height=20><input name=TopicMaxLong size=20 value="&BoardSetting(2)&"></td></tr><tr>"&_
	    "<td bgcolor=#d7d7d7 height=26>帖子内容最多字节数</td><td bgcolor=#d7d7d7 height=26><input name=ArticleMaxlong size=20 value="&BoardSetting(3)&" ></td>"&_
        "</tr><tr><td bgcolor=#d7d7d7 height=20>最多投票项目</td><td bgcolor=#d7d7d7 height=20>"&_
	    "<input name=BoardMaxVote size=20 value="&BoardSetting(4)&" ></td></tr><tr>"&_
		"<td bgcolor=#E7E7E7 colspan=2 height=14><font color=#000077><b>用户相关</b></font></td>"&_		
		"</tr><tr><td bgcolor=#d7d7d7 height=20>用户至少文章数</td><td bgcolor=#d7d7d7 height=20>"&_
		"<input name=UserMinPost size=20 value="&BoardSetting(5)&" ></td></tr><tr>"&_
		"<td bgcolor=#d7d7d7 height=20>用户至少积分</td><td bgcolor=#d7d7d7 height=20>"&_
		"<input name=UserMinRemark size=20 value="&BoardSetting(6)&" ></td>"&_
		"</tr><tr><td bgcolor=#d7d7d7 height=20>用户至少金钱</td><td bgcolor=#d7d7d7 height=20>"&_
		"<input name=UserMinMoneys size=20 value="&BoardSetting(7)&" ></td></tr><tr>"&_
		"<td bgcolor=#d7d7d7 height=20>登陆次数至少几次</td><td bgcolor=#d7d7d7 height=20>"&_
		"<input name=UserMinLoginTimes size=20 value="&BoardSetting(8)&" ></td>"&_
		"</tr><tr><td bgcolor=#d7d7d7 height=20>用户至少精华文章</td><td bgcolor=#d7d7d7 height=20>"&_
		"<input name=UserMinDigestNum size=20 value="&BoardSetting(9)&" ></td>"&_
		"</tr><tr><td bgcolor=#d7d7d7 height=20>至少注册时间（单位为分钟）</td><td bgcolor=#d7d7d7 height=20>"&_
		"<input name=UserMinRegTime size=20 value="&BoardSetting(10)&" ></td></tr><tr>"&_
		"<td bgcolor=#d7d7d7 height=26>帖子内容最少字节数</td><td bgcolor=#d7d7d7 height=26><input name=ALeast size=20 value="&BoardSetting(11)&" ></td></tr><tr>"&_
		"<td bgcolor=#e7e7e7 valign=middle colspan=2 align=center height=20><input type=submit value='修 改' name='B1'></td></tr>"&_
	        "</table></form>"
Call YxBBs.ShowTable(Caption,Content)
end if
End sub


Sub Brule()
	Dim Temp,TmpBoardID
	IF YxBBs.ClassID>3 Then YxBBs.Error("版规设置权限不足！")
	If YxBBs.BoardID>0 Then
		YxBBs.CheckBoard()
	End If
	IF  YxBBs.ClassID=3 And YxBBs.IsBoardAdmin=False Then YxBBs.Error("版面管理权限不足！")
	Call YxBBs.Head("版规设置")
	BoardID=Request("BoardID")
	Caption=YxBBs.Fun.Checkbad(YxBBs.Fun.GetStr("caption"))
	Content=YxBBs.Fun.Checkbad(YxBBs.Fun.GetStr("Content"))
       Set Rs=YxBBs.execute("select Brule from [YX_Board] where BoardID="&BoardID&"")
		Caption="版规设置"
		Content="<br><form method=POST action='?action=editrule&BoardID="&BoardID&"'>&nbsp;&nbsp;<textarea rows=8 cols=90 name=Brule>"&Rs("Brule")&"</textarea><br><BR>&nbsp;&nbsp;<input class=submit type=submit value=' 提交 ' name=B1>&nbsp;&nbsp;&nbsp; <input class=submit type=reset value=' 重置 ' name=B2></form>&nbsp;&nbsp;* 设置版规的内容支持HTML.<br>&nbsp;&nbsp;* 版规默认支持格式&lt;div class=rule&gt;版规内容&lt;/div&gt;<br>&nbsp;&nbsp;* 内容只支持255个字符."
	Call YxBBs.ShowTable(Caption,Content)
End Sub
	
Sub EditRule()
dim Brule
	Call YxBBs.Head("版规设置")
	BoardID=Request("BoardID")
    Brule=YxBBs.Fun.GetStr("Brule")
		YxBBs.execute("update [YX_Board] Set Brule='"&Brule&"' where BoardID="&BoardID&"")
		Caption="操作成功"
		Content="<div style='margin:15;line-height: 150%'><li>版规设置完成！<li><a href=placard.Asp?Action=edit&BoardID="&BoardID&">返回继续管理</a> <li><a href=Default.Asp>返回论坛首页</a></div>"
		Call YxBBs.ShowTable(Caption,Content)
	End Sub
%>