📄 admin_group.asp
字号:
<!--#include file="../conn.asp"-->
<!--#include file="const.asp"-->
<%
Dim ii,ID
Dim Admin_Class
Call Master_Us()
Header()
ii=0:
ID=CID(Request("ID"))
Admin_Class=",5,"
Call Master_Se()
team.SaveLog ("分组与级别 [包括：管理组 ，用户组 ] ")
Select Case Request("Action")
Case "Editmodel_1"
Call Editmodel_1
Case "Editmodel_2"
Call Editmodel_2
Case "IsuserGroup"
Call IsuserGroup
Case "EditUserGroup"
Call EditUserGroup
Case "EditUserManages"
Call EditUserManages
Case "ManagesMember"
Call ManagesMember
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>TEAM's提示</td>
</tr>
<tr class="a3">
<td><br>
<ul>
<li>TEAM's! 管理组包括管理员、超级版主、版主以及关联了管理权限的特殊组，除管理员组以外，其他管理组均可详细设置管理权限。
</ul>
<ul>
<li>增加自定义管理组方法为：
<ul>
<li>进入<a href="Admin_Group.asp?Action=IsuserGroup"><b>用户组设置</b></a>，增加一个新的特殊组；
<li>编辑该特殊组，将该特殊组关联某种管理权限(管理员、超级版主或版主)，同时编辑该组的其他项目设置；
<li>进入<a href="Admin_Group.asp"><b>管理组设置</b></a>，编辑该组的管理权限。
</ul>
</ul>
<ul>
<li>删除自定义管理组的方法有如下二种：
<ul>
<li>编辑该组基本设置，取消管理权限关联；
<li>进入<a href="Admin_Group.asp?Action=IsuserGroup"><b>用户组设置</b></a>，编辑并取消管理权限关联或者直接删除该特殊组。
</ul>
</ul></td>
</tr>
</table>
<br />
<table cellspacing="1" cellpadding="4" width="90%" align="center" class=a2>
<tr class="a1" align="center">
<td>名称</td>
<td>类型</td>
<td>管理级别</td>
<td>基本设置</td>
<td>管理权限</td>
</tr>
<%
Dim Rs
Set Rs=team.Execute("Select ID,Members,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,UserColor,UserImg,Rank from "&IsForum&"UserGroup Where GroupTips = 3 and MemberRank = -1 or (GroupRank = 1 or GroupRank = 2 or GroupRank = 3)")
Do While Not Rs.Eof
%>
<tr align="center">
<td class="a3"><%=Rs(2)%></td>
<td class="a4">内置</td>
<td class="a3"><%=Rs(1)%></td>
<td class="a4"><a href="Admin_Group.asp?Action=Editmodel_1&ID=<%=Rs(0)%>">[编辑]</a></td>
<td class="a3"><a href="Admin_Group.asp?Action=Editmodel_2&ID=<%=Rs(0)%>">[编辑]</a></td>
</tr>
<%
Rs.MoveNext
Loop
Rs.Close:Set Rs=Nothing
Response.Write "</table>"
End Sub
Sub Editmodel_1
Dim Rs,Group_Set_Class
Set Rs=team.Execute("Select ID,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,UserColor,UserImg,Rank from "&IsForum&"UserGroup Where ID="&ID)
If Rs.Eof Then
SuccessMsg "参数错误! "
Else
Group_Set_Class = Split(Rs(4),"|")
%>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="10" topmargin="10">
<br>
<form method="post" action="?Action=EditUserGroup">
<input type="hidden" name="myid" value="<%=ID%>">
<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></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="GroupName" value="<%=Replace(RS(1)," ","")%>"></td>
</tr>
</table>
<br>
<%If Request("OnGroup")="yes" Then%>
<table cellspacing="1" cellpadding="4" width="90%" align="center" class="a2">
<tr class="a1">
<td colspan="2">用户所属组类别</td>
</tr>
<tr class="a4">
<td><table cellspacing="0" cellpadding="0" border="0" width="100%" align="center">
<tr class="a4">
<input type="hidden" name="oldgroup" value="<%=Rs(3)%>">
<%
Dim Gs,u
Set Gs = team.execute("Select Max(ID) as ID,Members From ["&IsForum&"UserGroup] Where GroupTips=3 or GroupTips=2 or GroupTips=1 Group By Members")
If Gs.Eof or Gs.Bof Then
SuccessMsg " 用户权限表数据损坏,请手动导入新表! "
Else
u=0
Do While Not Gs.Eof
u = u+1
Echo "<td> "
Response.write "<input type=""radio"" name=""mygroups"" value="""&Gs(0)&""" "
If int(Rs(3)) = int(Gs(0)) Then Response.write " checked "
Response.write "> "&Gs(1)&" </td>"
If U= 5 Then
Echo "</tr><tr class=""a4"">"
U=0
End If
Gs.MoveNext
Loop
End If
Gs.Close:Set Gs=Nothing%>
</table></td>
</tr>
</table>
<%End if%>
<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="a4">选择“否”将彻底禁止用户访问论坛的任何页面</span></td>
<td bgcolor="#FFFFFF">
<input type="radio" name="Group_Set_Class(0)" value="1" <%if Group_Set_Class(0)=1 Then%>checked<%end if%>>
是
<input type="radio" name="Group_Set_Class(0)" value="0" <%if Group_Set_Class(0)=0 Then%>checked<%end if%>>
否</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>阅读权限:</b><br>
<span class="a4">设置用户浏览帖子或附件的权限级别，范围 0～255，0 为禁止用户浏览任何帖子或附件。当用户的阅读权限小于帖子的阅读权限许可(默认时为 1)时，用户将不能阅读该帖子或下载该附件</span></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="Group_Set_Class(1)" value="<%=Group_Set_Class(1)%>"></td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>允许查看用户资料:</b><br>
<span class="a4">设置是否允许查看其他用户的资料信息</span></td>
<td bgcolor="#FFFFFF">
<input type="radio" name="Group_Set_Class(2)" value="1" <%if Group_Set_Class(2)=1 Then%>checked<%end if%>>是
<input type="radio" name="Group_Set_Class(2)" value="0" <%if Group_Set_Class(2)=0 Then%>checked<%end if%>>否</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>允许积分转账:</b><br>
<span class="a4">设置是否允许用户在银行中将自己的交易积分转让给其他用户。注意: 本功能需在选项中启用交易积分及个人开设银行帐号后才可使用</span></td>
<td bgcolor="#FFFFFF">
<input type="radio" name="Group_Set_Class(3)" value="1" <%if Group_Set_Class(3)=1 Then%>checked<%end if%>>
是
<input type="radio" name="Group_Set_Class(3)" value="0" <%if Group_Set_Class(3)=0 Then%>checked<%end if%>>
否</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>允许使用搜索:</b><br>
<span class="a4">设置是否允许通过数据库进行帖子搜索和短消息搜索。注意: 当数据量大时，全文搜索将非常耗费服务器资源，请慎用</span></td>
<td bgcolor="#FFFFFF">
<input type="radio" name="Group_Set_Class(4)" value="0" <%if Group_Set_Class(4)=0 Then%>checked<%end if%>>
禁用搜索<br>
<input type="radio" name="Group_Set_Class(4)" value="1" <%if Group_Set_Class(4)=1 Then%>checked<%end if%>>
只允许搜索标题<br>
<input type="radio" name="Group_Set_Class(4)" value="2" <%if Group_Set_Class(4)=2 Then%>checked<%end if%>>
允许全文搜索</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>允许使用头像:</b><br>
<span class="a4">设置是否允许使用自定义头像功能</span></td>
<td bgcolor="#FFFFFF">
<input type="radio" name="Group_Set_Class(5)" value="0" <%if Group_Set_Class(5)=0 Then%>checked<%end if%>>
禁止使用头像<br>
<input type="radio" name="Group_Set_Class(5)" value="1" <%if Group_Set_Class(5)=1 Then%>checked<%end if%>>
允许使用论坛头像<br>
<input type="radio" name="Group_Set_Class(5)" value="2" <%if Group_Set_Class(5)=2 Then%>checked<%end if%>>
允许使用论坛头像或上传头像<br>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>允许对用户评分:</b><br>
<span class="a4">设置是否允许对其他用户的帖子进行评分操作</span></td>
<td bgcolor="#FFFFFF">
<input type="radio" name="Group_Set_Class(10)" value="1" <%if Group_Set_Class(10)=1 Then%>checked<%end if%>>
是
<input type="radio" name="Group_Set_Class(10)" value="0" <%if Group_Set_Class(10)=0 Then%>checked<%end if%>>
否</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>操作理由短消息通知作者:</b><br>
<span class="a4">设置用户在对他人评分或管理操作时是否强制输入理由和通知作者</span></td>
<td bgcolor="#FFFFFF">
<input type="radio" name="Group_Set_Class(6)" value="0" <%if Group_Set_Class(6)=0 Then%>checked<%end if%>>
不强制<br>
<input type="radio" name="Group_Set_Class(6)" value="1" <%if Group_Set_Class(6)=1 Then%>checked<%end if%>>
强制输入理由<br>
<input type="radio" name="Group_Set_Class(6)" value="2" <%if Group_Set_Class(6)=2 Then%>checked<%end if%>>
强制通知作者<br>
<input type="radio" name="Group_Set_Class(6)" value="3" <%if Group_Set_Class(6)=3 Then%>checked<%end if%>>
强制输入理由和通知作者</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>允许使用 文集:</b><br>
<span class="a4">设置是否允许把文章加入个人的 文集 中，从而供他人浏览</span></td>
<td bgcolor="#FFFFFF">
<input type="radio" name="Group_Set_Class(7)" value="1" <%if Group_Set_Class(7)=1 Then%>checked<%end if%>>
是
<input type="radio" name="Group_Set_Class(7)" value="0" <%if Group_Set_Class(7)=0 Then%>checked<%end if%>>
否</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>允许发起投票:</b><br>
<span class="a4">设置是否允许用户发表投票帖子</span></td>
<td bgcolor="#FFFFFF">
<input type="radio" name="Group_Set_Class(8)" value="1" <%if Group_Set_Class(8)=1 Then%>checked<%end if%>>
是
<input type="radio" name="Group_Set_Class(8)" value="0" <%if Group_Set_Class(8)=0 Then%>checked<%end if%>>
否</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>允许发起活动:</b><br>
<span class="a4">设置是否允许用户发表组织活动帖子</span></td>
<td bgcolor="#FFFFFF">
<input type="radio" name="Group_Set_Class(9)" value="1" <%if Group_Set_Class(9)=1 Then%>checked<%end if%>>
是
<input type="radio" name="Group_Set_Class(9)" value="0" <%if Group_Set_Class(9)=0 Then%>checked<%end if%>>
否</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>允许悬赏问题:</b><br>
<span class="a4">设置是否允许用户发表悬赏问题的帖子</span></td>
<td bgcolor="#FFFFFF">
<input type="radio" name="Group_Set_Class(20)" value="1" <%if Group_Set_Class(20)=1 Then%>checked<%end if%>>
是
<input type="radio" name="Group_Set_Class(20)" value="0" <%if Group_Set_Class(20)=0 Then%>checked<%end if%>>
否</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>允许自定义头衔:</b><br>
<span class="a4">设置是否允许用户设置自己的头衔名字并在帖子中显示</span></td>
<td bgcolor="#FFFFFF">
<input type="radio" name="Group_Set_Class(11)" value="1" <%if Group_Set_Class(11)=1 Then%>checked<%end if%>>
是
<input type="radio" name="Group_Set_Class(11)" value="0" <%if Group_Set_Class(11)=0 Then%>checked<%end if%>>
否</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>短消息收件箱容量:</b><br>
<span class="a4">设置用户短消息最大可保存的消息数目，0 为禁止使用短消息</span></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="Group_Set_Class(12)" value="<%=Group_Set_Class(12)%>"></td>
</tr>
</table>
<br>
<center>
<input type="submit" name="detailsubmit" value="提 交">
</center>
<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="a4">设置是否允许发新话题。注意: 只有当用户组阅读权限高于 0 时，才能发新话题</span></td>
<td bgcolor="#FFFFFF">
<input type="radio" name="Group_Set_Class(13)" value="1" <%if Group_Set_Class(13)=1 Then%>checked<%end if%>>
是
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -