📄 admin_group.asp
字号:
是
<input type="radio" name="Manage_Set_Class(9)" value="0" <%if Manage_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="Manage_Set_Class(13)" value="1" <%if Manage_Set_Class(13)=1 Then%>checked<%end if%>>
是
<input type="radio" name="Manage_Set_Class(13)" value="0" <%if Manage_Set_Class(13)=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="Manage_Set_Class(14)" value="1" <%if Manage_Set_Class(14)=1 Then%>checked<%end if%>>
是
<input type="radio" name="Manage_Set_Class(14)" value="0" <%if Manage_Set_Class(14)=0 Then%>checked<%end if%>>
否 </td>
</tr>
</table>
<br>
<center>
<input type="submit" name="groupsubmit" value="提 交">
<center>
</form>
<%
End If
End Sub
Sub EditUserManages
Dim myid,Saves,u
myid = Request.form("myid")
If myid = "" or (Not IsNumeric(myid)) Then
SuccessMsg "参数错误! "
Else
for u=0 to 14
if Saves ="" Then
Saves = Request.form("Manage_Set_Class(0)")
else
Saves = Saves & "|"& Request.form("Manage_Set_Class("&u&")")
End if
next
team.execute("Update UserGroup set IsManage = '"&Saves&"' Where ID="& MyID)
SuccessMsg " 管理组权限更新成功!"
End If
End Sub
Sub IsuserGroup
%>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="10" topmargin="10">
<br>
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
<tr class="a1">
<td>技巧提示</td>
</tr>
<tr bgcolor="#F8F8F8">
<td><br>
<ul>
<li>TEAM论坛用户组分为系统组、特殊组和会员组，会员组以积分确定组别和权限，而系统组和特殊组是人为设定，不会由论坛系统自行改变。
</ul>
<ul>
<li>系统组和特殊组的设定不需要指定积分，TEAM 预留了从论坛管理员到游客等的 8 个系统头衔，特殊组的用户需要在编辑会员时将其加入。
</ul>
<ul>
<li>会员用户组至少分为两组，其积分下限为0，否则将导致部分用户无法与用户组匹配的问题。
</ul></td>
</tr>
</table>
<br>
<form method="post" action="?Action=ManagesMember&master=0">
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
<tr class="a1">
<td colspan="7">会员用户组</td>
</tr>
<a name="会员用户组"></a>
<tr class="a4" align="center">
<td width="48"><input type="checkbox" name="chkall" class="a4" onClick="checkall(this.form)">
删?</td>
<td>组头衔</td>
<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,Rank,UserColor,Userimg from "&IsForum&"UserGroup Where GroupTips=1 Order By Memberrank Desc")
Do While Not Rs.Eof
%><input type="hidden" name="upid" value="<%=RS(0)%>">
<tr align="center">
<td bgcolor="#F8F8F8">
<input type="checkbox" name="myid" value="<%=RS(0)%>">
</td>
<td bgcolor="#FFFFFF"><input type="text" size="12" name="GroupName" value="<%=Replace(RS(2)," ","")%>"></td>
<td bgcolor="#F8F8F8"><input type="text" size="6" name="Memberrank" value="<%=RS(3)%>"></td>
<td bgcolor="#F8F8F8"><input type="text" size="2"name="Rank" value="<%=RS(7)%>"></td>
<td bgcolor="#FFFFFF"><input type="text" size="6"name="UserColor" value="<%=RS(8)%>"></td>
<td bgcolor="#F8F8F8"><input type="text" size="12" name="Userimg" value="<%=RS(9)%>"></td>
<td bgcolor="#FFFFFF" nowrap><a href="?Action=Editmodel_1&ID=<%=RS(0)%>">[详情]</a></td>
</tr>
<% Rs.Movenext
Loop
Rs.Close:Set Rs=Nothing
%>
<tr>
<td colspan="7" class="a4" height="2"></td>
</tr>
<tr align="center" bgcolor="#F8F8F8">
<td>新增:</td>
<td bgcolor="#FFFFFF"><input type="text" size="12" name="GroupName1" value=""></td>
<td bgcolor="#F8F8F8"><input type="text" size="6" name="Memberrank1" value=""></td>
<td bgcolor="#F8F8F8"><input type="text" size="2"name="Rank1" value=""></td>
<td bgcolor="#FFFFFF"><input type="text" size="6"name="UserColor1" value=""></td>
<td bgcolor="#F8F8F8"><input type="text" size="12" name="Userimg1" value=""></td>
<td> </td>
</tr>
</table>
<br>
<center>
<input type="submit" name="groupsubmit" value="提 交">
</form>
<br>
<br>
<form method="post" action="?Action=ManagesMember&master=1">
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
<tr class="a1">
<td colspan="6">特殊用户组</td>
</tr>
<a name="特殊用户组"></a>
<tr class="a4" align="center">
<td width="48"><input type="checkbox" name="chkall" class="a4" onClick="checkall(this.form)">
删?</td>
<td nowrap>组头衔</td>
<td nowrap>星星数</td>
<td nowrap>名称颜色</td>
<td nowrap>组头像</td>
<td nowrap>编辑</td>
</tr>
<%
Set Rs=team.Execute("Select ID,Members,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank,UserColor,Userimg from "&IsForum&"UserGroup Where GroupTips=2 Order By ID Desc")
Do While Not Rs.Eof
%><input type="hidden" name="upid" value="<%=RS(0)%>">
<tr align="center">
<td bgcolor="#F8F8F8">
<input type="checkbox" name="myid" value="<%=RS(0)%>">
</td>
<td bgcolor="#FFFFFF"><input type="text" size="12" name="GroupName" value="<%=Replace(RS(2)," ","")%>"></td>
<td bgcolor="#F8F8F8"><input type="text" size="2"name="Rank" value="<%=RS(7)%>"></td>
<td bgcolor="#FFFFFF"><input type="text" size="6"name="UserColor" value="<%=RS(8)%>"></td>
<td bgcolor="#F8F8F8"><input type="text" size="12" name="Userimg" value="<%=RS(9)%>"></td>
<td bgcolor="#FFFFFF" nowrap><a href="?Action=Editmodel_1&ID=<%=RS(0)%>&OnGroup=yes">[详情]</a></td>
</tr>
<% Rs.MoveNext
Loop
Rs.Close:Set Rs=Nothing
%>
<tr>
<td colspan="6" class="a4" height="2"></td>
</tr>
<tr align="center" bgcolor="#F8F8F8">
<td>新增:</td>
<td><input type="text" size="12" name="GroupName1"></td>
<td><input type="text" size="2" name="Rank1"></td>
<td><input type="text" size="6" name="UserColor1"></td>
<td><input type="text" size="12" name="Userimg1"></td>
<td> </td>
</tr>
</table>
<br>
<center>
<input type="submit" name="groupsubmit" value="提 交">
</center>
</form>
<br>
<form method="post" action="?Action=ManagesMember&master=2">
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
<tr class="a1">
<td colspan="48">系统用户组</td>
</tr>
<a name="系统用户组"></a>
<tr class="a4" align="center">
<td width="2"></td>
<td>系统头衔</td>
<td>组头衔</td>
<td>星星数</td>
<td>名称颜色</td>
<td>组头像</td>
<td>编辑</td>
</tr>
<%
Set Rs=team.Execute("Select ID,Members,GroupName,Memberrank,GroupRank,IsBrowse,IsManage,Rank,UserColor,Userimg from "&IsForum&"UserGroup Where MemberRank = -1 Order By GroupRank Desc")
Do While Not Rs.Eof
%>
<tr align="center">
<td bgcolor="#FFFFFF"><input type="hidden" name="myid" value="<%=RS(0)%>"></td>
<td bgcolor="#F8F8F8"><%=RS(1)%></td>
<td bgcolor="#FFFFFF"><input type="text" size="12" name="GroupName" value="<%=Replace(RS(2)," ","")%>"></td>
<td bgcolor="#F8F8F8"><input type="text" size="2"name="Rank" value="<%=RS(7)%>"></td>
<td bgcolor="#FFFFFF"><input type="text" size="6"name="UserColor" value="<%=RS(8)%>"></td>
<td bgcolor="#F8F8F8"><input type="text" size="12" name="Userimg" value="<%=RS(9)%>"></td>
<td bgcolor="#FFFFFF" nowrap><a href="?Action=Editmodel_1&ID=<%=RS(0)%>">[详情]</a></td>
</tr>
<% Rs.MoveNext
Loop
Rs.Close:Set Rs=Nothing
%>
</table>
<br>
<center>
<input type="submit" name="groupsubmit" value="提 交">
</center>
</form>
<br>
<br>
<%
End Sub
Sub ManagesMember
Dim Myid,GroupName,Rank,Memberrank,UserColor,Userimg,tmp,u
Dim ho
tmp = ""
GroupName = ""
Select Case Request("master")
Case "0"
for each ho in request.form("myid")
Team.execute("Delete from "&isforum&"UserGroup Where ID="&ho)
next
If request.form("myid") = "" Then
If Instr(Request.Form("upid"),",")>0 Then
Myid=Split(Request.Form("upid"),",")
GroupName=Split(Replace(Request.Form("GroupName")," ",""),",")
Rank = Split(Replace(Request.Form("Rank")," ",""),",")
UserColor = Split(Replace(Request.Form("UserColor")," ",""),",")
Userimg = Split(Replace(Request.Form("Userimg")," ",""),",")
For U=0 To Ubound(Myid)
team.Execute("Update "&IsForum&"UserGroup set GroupName='"&GroupName(U)&"',Memberrank="&Cid(Memberrank(U))&",Rank="&Cid(Rank(U))&",UserColor='"&UserColor(U)&"',Userimg='"&Userimg(U)&"' where ID="&Myid(U))
Next
Else
team.Execute("Update "&IsForum&"UserGroup set GroupName='"&HtmlEncode(Request.Form("GroupName"))&"',Rank="&Cid(Request.Form("Rank"))&",UserColor='"&Request.Form("UserColor")&"',Userimg='"&Request.Form("Userimg")&"' where ID="&Request.Form("upid"))
End If
if Not (Request.Form("GroupName1")="" and Request.Form("Rank1")="") Then
team.Execute("insert into "&IsForum&"UserGroup (GroupName,GroupTips,Rank,UserColor,Userimg,GroupRank,MemberRank,Members,IsBrowse,IsManage) values ('"&HtmlEncode(Request.Form("GroupName1"))&"',1,"&Cid(Request.Form("Rank1"))&",'"&Request.Form("UserColor1")&"','"&Request.Form("Userimg1")&"',0,"&CID(Request.Form("Memberrank1"))&",'注册用户','1|1|1|0|0|0|1|0|0|0|0|0|20|1|1|1|0|0|0|0|0|0|0|0|0|0|1|100|50|','0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0')")
End If
End If
tmp = tmp & " 会员用户组 修改设置成功! "
Case "1"
for each ho in request.form("myid")
Team.execute("Delete from "&isforum&"UserGroup Where ID="&ho)
next
If request.form("myid") = "" Then
If Instr(Request.Form("upid"),",")>0 Then
Myid=Split(Request.Form("upid"),",")
GroupName=Split(Replace(Request.Form("GroupName")," ",""),",")
Rank = Split(Replace(Request.Form("Rank")," ",""),",")
UserColor = Split(Replace(Request.Form("UserColor")," ",""),",")
Userimg = Split(Replace(Request.Form("Userimg")," ",""),",")
For U=0 To Ubound(Myid)
team.Execute("Update "&IsForum&"UserGroup set GroupName='"&GroupName(U)&"',Rank="&Cid(Rank(U))&",UserColor='"&UserColor(U)&"',Userimg='"&Userimg(U)&"' where ID="&Myid(U))
Next
Else
team.Execute("Update "&IsForum&"UserGroup set GroupName='"&HtmlEncode(Request.Form("GroupName"))&"',Rank="&Cid(Request.Form("Rank"))&",UserColor='"&Request.Form("UserColor")&"',Userimg='"&Request.Form("Userimg")&"' where ID="&Request.Form("upid"))
End If
if Not (Request.Form("GroupName1")="" and Request.Form("Rank1")="") Then
team.Execute("insert into "&IsForum&"UserGroup (GroupName,GroupTips,Rank,UserColor,Userimg,GroupRank,MemberRank,Members,IsBrowse,IsManage) values ('"&HtmlEncode(Request.Form("GroupName1"))&"',2,"&Cid(Request.Form("Rank1"))&",'"&Request.Form("UserColor1")&"','"&Request.Form("Userimg1")&"',4,-1,'嘉宾','1|255|1|1|1|2|0|1|1|1|1|1|50|1|1|1|0|1|0|0|1|1|1|50|1|1|10|1024|200|','0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0')")
End If
End If
tmp = tmp & " 特殊用户组 修改设置成功! "
Case "2"
Myid=Split(Request.Form("myid"),",")
GroupName=Split(Replace(Request.Form("GroupName")," ",""),",")
Rank = Split(Replace(Request.Form("Rank")," ",""),",")
UserColor = Split(Replace(Request.Form("UserColor")," ",""),",")
Userimg = Split(Replace(Request.Form("Userimg")," ",""),",")
For U=0 To Ubound(Myid)
team.Execute("Update "&IsForum&"UserGroup set GroupName='"&GroupName(U)&"',Rank="&Rank(U)&",UserColor='"&UserColor(U)&"',Userimg='"&Userimg(U)&"' where ID="&Myid(U))
Next
tmp = tmp & " 系统用户组 修改设置成功! "
Case Else
tmp = tmp & "参数错误! "
End Select
Application.Contents.RemoveAll()
SuccessMsg tmp &" <br />感谢使用TEAM论坛系统,稍后系统将自动返回设置页面! <meta http-equiv=refresh content=3;url=Admin_Group.asp?Action=IsuserGroup#系统用户组>"
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -