📄 admin_forum.asp
字号:
<!--#include file="../conn.asp"-->
<!--#include file="const.asp"-->
<%
Dim ii,ID
Dim Admin_Class
Call Master_Us()
Header()
ii=0:ID=Request("id")
Admin_Class=",2,"
Call Master_Se()
team.SaveLog ("论坛设置 [包括：编辑版块 ] 修改")
Select Case Request("Action")
Case "Manages"
Call Manages '管理板块
Case "FindForum"
ID= Request.Form("ForumID")
Call Manages '查找版块
Case "Forumadd"
Call Forumadd '编辑板块
Case "ForumSort" '版块排序
Dim Myid,MySortNum
Myid=Split(Request.Form("UID"),",")
MySortNum=Split(Request.Form("SortNum"),",")
For U=0 To Ubound(Myid)
team.Execute("Update "&IsForum&"Bbsconfig set SortNum="&MySortNum(U)&" where ID="&Myid(U))
Next
Cache.DelCache("BoardLists")
SuccessMsg("排序完成!")
Case "ForumAddok"
Dim fup
fup=ReQuest.Form("fup")
If Request.Form("newforum")="" Then Error2 "板块名称不能为空!"
Select Case Request("add")
Case "Forum_0"
team.Execute("insert into "&IsForum&"Bbsconfig(Followid,bbsname,Board_Last,Board_Setting) values (0,'"&Replace(Request.Form("newforum"),"'","")&"','暂无帖子$@$ - $@$"&Now&"','0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0,0,0|0,0,0|0,0,0|0,0,0|0,0,0|0,0,0|0,0,0|0,0,0|0,0,0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0') ")
Cache.DelCache("BoardLists")
SuccessMsg("一级分类 ["&Request.Form("newforum")&"] 添加成功<BR><a href=Admin_Forum.asp>请转入主菜单进行详细参数的设置</a>!")
Case "Forum_1"
team.Execute("insert into "&IsForum&"Bbsconfig(Followid,bbsname,Board_Last,Board_Setting) values ("&Request.Form("fup")&",'"&Replace(Request.Form("newforum"),"'","")&"','暂无帖子$@$ - $@$"&Now&"','0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0,0,0|0,0,0|0,0,0|0,0,0|0,0,0|0,0,0|0,0,0|0,0,0|0,0,0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0$$$0') ")
Cache.DelCache("BoardLists")
SuccessMsg("分类 ["&Request.Form("newforum")&"] 添加成功<BR><a href=Admin_Forum.asp>请转入主菜单进行详细参数的设置</a>!")
End Select
Case "Forumeditok"
Dim My_Board_Setting,U,My_ExtCredit,ExtCredits
If Request.Form("BbsName")="" Then Error2 "分类名称不能为空!"
My_Board_Setting=""
My_ExtCredit = ""
ExtCredits= Split(team.Club_Class(21),"|")
For U=0 to Ubound(ExtCredits)
If U=0 Then
My_ExtCredit=Replace(Request.Form("ExtCredits0_0"),",","")&","&Replace(Request.Form("ExtCredits0_1"),",","")&","&Replace(Request.Form("ExtCredits0_2"),",","")
Else
My_ExtCredit=My_ExtCredit & "|"&Replace(Request.Form("ExtCredits"&U&"_0"),",","")&","&Replace(Request.Form("ExtCredits"&U&"_1"),",","")&","&Replace(Request.Form("ExtCredits"&U&"_2"),",","")
End If
Next
For U=0 to 19
If U=0 Then
My_Board_Setting=Replace(Request.Form("Board_Setting(0)"),"$$$","")
ElseIf U=14 Then
My_Board_Setting=My_Board_Setting & "$$$"&My_ExtCredit
Else
My_Board_Setting=My_Board_Setting & "$$$"&Replace(Request.Form("Board_Setting("&U&")"),"$$$","")
End If
Next
team.Execute("Update "&IsForum&"Bbsconfig Set bbsname='"&HTMLEncode(Request.Form("BbsName"))&"',Readme='"&Replace(Trim(Request.Form("Readme")),"'","''")&"',Icon='"&Replace(Trim(Request.Form("Icon")),"'","''")&"',Board_Key='"&Replace(Trim(Request.Form("Board_Key")),"'","''")&"',Hide="&HTMLEncode(Trim(Request.Form("Hide")))&",Pass='"&HTMLEncode(Trim(Request.Form("Pass")))&"',Followid="&Cid(Request.Form("fupnew"))&",Board_URL='"&HtmlEncode(Trim(Request.Form("Board_URL")))&"',Board_Setting='"&My_Board_Setting&"',Lookperm='"&Replace(Request.Form("lookperm")," ","")&",',Postperm='"&Replace(Request.Form("postperm")," ","")&",',Downperm='"&Replace(Request.Form("downperm")," ","")&",',upperm='"&Replace(Request.Form("upperm")," ","")&",' Where ID="&ID)
Cache.DelCache("ForumsBoards_"&ID)
Cache.DelCache("Boards_"&ID)
Cache.DelCache("BoardLists")
SuccessMsg("分类 ["&Request.Form("BbsName")&"] 编辑成功，请等待系统自动返回到 <a href=Admin_Forum.asp>编辑版块</a> 页面 。<meta http-equiv=refresh content=3;url=Admin_Forum.asp>。")
Case "SetModerators"
Call SetModerators
Case "ModelSet_0"
If ID="" or (Not isNumeric(ID)) Then
SuccessMsg " ID参数错误! "
Else
team.execute("Update ["&Isforum&"BbsConfig] Set Board_Model = 1 Where Id="&ID&" or Followid="&ID)
Cache.DelCache("BoardLists")
SuccessMsg "已经将本版块的排列方式修改为简洁模式，请等待系统自动返回到 <a href=Admin_Forum.asp>编辑版块</a> 页面 。<meta http-equiv=refresh content=3;url=Admin_Forum.asp>。"
End If
Case "ModelSet_1"
If ID="" or (Not isNumeric(ID)) Then
SuccessMsg " ID参数错误! "
Else
team.execute("Update ["&Isforum&"BbsConfig] Set Board_Model = 0 Where Id="&ID&" or Followid="&ID)
Cache.DelCache("BoardLists")
SuccessMsg "已经将本版块的排列方式修改为标准模式，请等待系统自动返回到 <a href=Admin_Forum.asp>编辑版块</a> 页面 。<meta http-equiv=refresh content=3;url=Admin_Forum.asp>。"
End If
Case "DelForum"
Call DelForums
Case "ServerDelForum"
If ID="" or (Not isNumeric(ID)) Then
SuccessMsg " ID参数错误! "
Else
team.Execute("Delete From "&IsForum&"Bbsconfig Where ID="&ID)
Cache.DelCache("BoardLists")
Cache.DelCache("ForumsBoards_"&ID)
Cache.DelCache("Boards_"&ID)
SuccessMsg("删除论坛成功<BR><a href=Admin_Forum.asp>请转入主菜单进行其他设置</a>或等待3秒钟后，系统自动转入主菜单界面。<meta http-equiv=refresh content=3;url=Admin_Forum.asp>")
End if
Case Else
Call Main()
End Select
Sub Main()
%>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="10" topmargin="10">
<table cellspacing="1" cellpadding="4" width="90%" align="center" class="a2" >
<tr class="a1">
<td>技巧提示</td>
</tr>
<tr class="a3">
<td><BR><ul>
<li>您需要首先提交一级分类。</li>
</ul>
<ul>
<li>每级分类后面的管理功能后面带有添加下级版面功能，但分类版块推荐不要超过三级。</li>
</ul>
<ul>
<li>您可以对在“显示顺序”里面对论坛进行排序，每个级别的排序从 0 开始。</li>
</ul></td>
</tr>
</table><BR>
<form method="post" action="?Action=FindForum">
<table cellspacing="1" cellpadding="4" width="90%" align="center" class="a2">
<tr class="a1">
<td colspan="5">查找论坛</td>
</tr>
<tr align="center">
<td bgcolor="#F8F8F8" width="15%">名称:</td>
<td bgcolor="#FFFFFF" width="70%"><input type="text" name="ForumID" value="需查找的论坛ID" size="40" OnFocus="this.value = ''"></td>
<td bgcolor="#F8F8F8" width="15%"><input type="submit" name="forumsubmit" value="提 交"></td>
</tr>
</table>
</form>
<form method="Post" action="?Action=ForumAddok&add=Forum_0">
<table cellspacing="1" cellpadding="4" width="90%" align="center" class="a2">
<tr class="a1">
<td colspan="3">添加新一级分类</td>
</tr>
<tr align="center">
<td bgcolor="#F8F8F8" width="15%">名称:</td>
<td bgcolor="#FFFFFF" width="70%"><input type="text" name="newforum" value="新分类名称" size="40"></td>
<td bgcolor="#F8F8F8" width="15%"><input type="submit" name="catsubmit" value="提 交"></td>
</tr>
</table>
</form>
<form method="post" action="?Action=ForumSort">
<table cellspacing="1" cellpadding="4" width="90%" align="center" class="a2">
<tr class="a1">
<td>编辑论坛</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="100%" valign=top height=200>
<table cellspacing="1" cellpadding="1" width="98%" align="center" class="a2">
<tr class="a4"><td>
<% ForumList(0) %>
</td></tr>
</table></td>
</tr>
</table><br><center><input type="submit" name="detailsubmit" value="提 交"></form><br>
<%
End Sub
Sub Manages
Dim Board_Setting,RS
Dim B_Lookperm,B_Postperm,B_DownPerm,B_Upperm
If ID="" or (Not isNumeric(ID)) Then SuccessMsg " ID参数只能是数字! "
Set Rs=team.Execute("Select bbsname,Board_Setting,Hide,Pass,Icon,Ismaster,Readme,Board_Key,Board_URL,Lookperm,Postperm,DownPerm,Upperm From "&IsForum&"Bbsconfig Where ID="&ID)
If RS.Eof or Rs.Bof Then
SuccessMsg("ID参数错误!")
Else
Board_Setting = Split(RS("Board_Setting"),"$$$")
%>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="10" topmargin="10">
<form method="post" action="?Action=Forumeditok">
<input type="hidden" name="ID" value="<%=ID%>">
<input type="hidden" name="detailsubmit" value="submit">
<table cellspacing="1" cellpadding="4" width="90%" align="center" class="a2">
<tr class="a1">
<td>技巧提示</td>
</tr>
<tr bgcolor="#F8F8F8">
<td><br>
<ul>
以下设置没有继承性，即仅对当前论坛有效，不会对下级子论坛产生影响。
</ul></td>
</tr>
</table>
<br>
<br>
<a name="论坛详细设置 - <%=RS(0)%>"></a>
<table cellspacing="1" cellpadding="4" width="90%" align="center" class="a2">
<tr class="a1">
<td colspan="2">论坛详细设置 - <%=RS(0)%></td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>显示论坛:</b><br>
<span class="a3">选择“否”将暂时将论坛隐藏不显示，但论坛内容仍将保留，且用户仍可通过直接提供带有 id 的 URL 访问到此论坛，如果隐藏的是一级版块，那么其所在的下级版块将跟随主版块一起隐藏。</span></td>
<td bgcolor="#FFFFFF"><input type="radio" name="Hide" value="1" <%If RS("Hide")=1 Then%>checked<%End If%>>
是
<input type="radio" name="Hide" value="0" <%If RS("Hide")=0 Then%>checked<%End If%>>
否</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>上级论坛:</b><br>
<span class="a3">本论坛的上级论坛或分类</span></td>
<td bgcolor="#FFFFFF">
<select name="fupnew">
<option value="0"> >>一级论坛</option>
<% ForumList_Sel(0) %>
</select></td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>风格方案:</b><br>
<span class="a3">访问者进入本论坛所使用的风格方案</span></td>
<td bgcolor="#FFFFFF">
<select name="Board_Setting(0)">
<option value="<%=Int(team.Forum_setting(18))%>" SELECTED>采用论坛默认模版</option>
<%
Dim RS1,SytyleID
Set Rs1=team.Execute( "Select StyleName,ID From ["&IsForum&"Style] Order By ID Asc" )
Do While Not RS1.Eof
SytyleID = SytyleID & "<option value="&RS1(1)&""
If Int(Rs1(1)) = Int(Board_Setting(0)) Then SytyleID = SytyleID & " SELECTED"
SytyleID = SytyleID &">"&RS1(0)&"</option>"
Rs1.Movenext
Loop
RS1.CLOSE:Set RS1=Nothing
Response.Write SytyleID
'名称 参数 隐藏 密码 图标 权限 介绍 规则 转向地址
'bbsname,Board_Setting,Hide,Pass,Icon,Ismaster,Readme,Board_Key,Board_URL
%>
</select></td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>论坛转向 URL</b><br>
<span class="a3">如果设置转向 URL(例如 http://www.team5.cn)，用户点击本分论坛将进入转向中设置的 URL。一旦设定将无法进入论坛页面，请确认是否需要使用此功能，留空为不设置转向 URL，本站以外的URL地址必须加HTTP://</span></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="Board_URL" value="<%=RS("Board_URL")%>"></td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>论坛名称:</b></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="BbsName" value="<%=RS("BbsName")%>"></td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>论坛图标:</b><br>
<span class="a3">论坛名称和简介左侧的小图标，可填写相对或绝对地址</span></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="Icon" value="<%=RS("Icon")%>"></td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" valign="top"><b>论坛简介:</b><br>
<span class="a3">将显示于论坛名称的下面，提供对本论坛的简短描述，支持Ubb代码 </span></td>
<td bgcolor="#FFFFFF"><textarea rows="5" name="Readme" cols="30" style="height:70;overflow-y:visible;"><%=ReplaceStr(RS("Readme"),"<BR>",VbCrlf)%></textarea></td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" valign="top"><b>本论坛规则:</b><br>
<span class="a3">显示于主题列表页的当前论坛规则，支持 Ubb 代码，留空为不显示</span></td>
<td bgcolor="#FFFFFF"><textarea rows="5" name="Board_Key" cols="30" style="height:70;overflow-y:visible;"><%=ReplaceStr(RS("Board_Key"),"<BR>",VbCrlf)%></textarea></td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>允许版主修改本论坛规则:</b><br>
<span class="a3">设置是否允许超级版主和版主通过系统设置修改本版规则</span></td>
<td bgcolor="#FFFFFF"><input type="radio" name="Board_Setting(1)" value="0" <%If Board_Setting(1)=0 Then%>checked<%End If%>>
不允许版主修改
<input type="radio" name="Board_Setting(1)" value="1" <%If Board_Setting(1)=1 Then%>checked<%End If%>>允许版主修改 </td>
</tr>
</table>
<br>
<center><input type="submit" name="detailsubmit" value="提 交"><br>
<br>
<a name="帖子选项"></a>
<table cellspacing="1" cellpadding="4" width="90%" align="center" class="a2">
<tr class="a1">
<td colspan="2">帖子选项</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>发帖审核:</b><br>
<span class="a3">选择“是”将使用户在本版发表的帖子待版主或管理员审查通过后才显示出来，打开此功能后，您可以在用户组中设定哪些组发帖可不经审核，也可以在管理组中设定哪些组可以审核别人的帖子</span></td>
<td bgcolor="#FFFFFF"><input type="radio" name="Board_Setting(2)" value="0" <%If Board_Setting(2)=0 Then%>checked<%End If%>>
无<br>
<input type="radio" name="Board_Setting(2)" value="1" <%If Board_Setting(2)=1 Then%>checked<%End If%>>
审核新主题<br>
<input type="radio" name="Board_Setting(2)" value="2" <%If Board_Setting(2)=2 Then%>checked<%End If%>>
审核新主题和新回复 </td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>允许加入文集:</b><br>
<span class="a3">是否允许用户将在本版发表的主题加入其自己的 文集 中。注意: 一旦主题被加入 文集，其内容会被公开而无论当前论坛被添加什么样的权限设定</span></td>
<td bgcolor="#FFFFFF"><input type="radio" name="Board_Setting(4)" value="1" <%If Board_Setting(4)=1 Then%>checked<%End If%>>
是
<input type="radio" name="Board_Setting(4)" value="0" <%If Board_Setting(4)=0 Then%>checked<%End If%>>
否</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>允许使用 html 代码:</b><br>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -