group.asp

公司企业网站管理系统全站源码,用于企业内部对网站的管理

<!--#include file=../conn.asp-->
<!--#include file="inc/const.asp"-->
<!--#include file="../inc/GroupPermission.asp"-->
<%
Head()
Dim admin_flag
admin_flag=",17,"
CheckAdmin(admin_flag)
Main()
Footer()

Sub Main()
	Select Case Request("action")
	Case "editgroup"
		EditGroup()
	Case "saveusergroup"
		SaveUserGroup()
	Case "savesysgroup"
		SaveSysGroup()
	Case "delusergroup"
		DelUserGroup()
	Case "online"
		GroupOnline()
	Case "saveonline"
		SaveGroupOnline()
	Case Else
		UserGroup()
	End Select
End Sub

Sub UserGroup()
%>
<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center">
<tr> 
<th style="text-align:center;" align=left>&nbsp;操作提示</th>
</tr>
<tr align=left>
<td height="23" class="td1" style="LINE-HEIGHT: 140%">
<li>动网论坛用户组分为系统用户组、特殊用户组、注册用户组、多属性用户组四种类型
<li>系统用户组为内置固定用户组，不能添加，供论坛管理之用，不能随意更改，如删除则会引起论坛运行异常
<li>特殊用户组不随用户等级升降而变更，通常建立来分配给一些对论坛有特殊贡献或操作的人员
<li>多属性用户组不随用户等级升降而变更，该组用户<U>可设置享有多个不同用户组的权限</U>，通常建立来分配给一些对论坛有特殊贡献或操作的人员
<li>注册用户组即为传统的用户等级，每个组(等级)可设定不同的权限
<li>默认权限为添加新的用户组时使用其中一些定义好的权限设置，通常新添加用户组后都要再次定义其权限
</td>
</tr>
<tr align=left>
<td height="23" class="td2" style="LINE-HEIGHT: 140%">
<B>快捷操作</B>：<a href="#1">系统组</a> | <a href="#2">特殊组</a> | <a href="#3">多属性组</a>
 | <a href="#4">Vip用户组管理</a>
| <a href="?action=editgroup&groupid=4">编辑默认组资料</a> | <a href="?action=online">在线图例定制</a>
</td>
</tr>
</table>
<BR>
<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center">
<tr> 
<th style="text-align:center;" colspan="6">注册用户组(等级)管理</th>
</tr>
<tr><td colspan=6 height=25 class="td1">
小提示：点击权限您可以分别设定每个注册用户组(等级)分别拥有不同的论坛权限
</td></tr>
<tr>
<td height="23" width="5%" class=bodytitle><B>组ID</B></td>
<td height="23" width="20%" class=bodytitle><B>用户组(等级)名称</B></td>
<td width="15%" class=bodytitle><B>最少发贴</B></td>
<td width="30%" class=bodytitle><B>组(等级)图片</B></td>
<td height="23" width="10%" class=bodytitle><B>用户数</B></td>
<td width="20%" class=bodytitle><B>操作</B></td>
</tr>
<FORM METHOD=POST ACTION="?action=saveusergroup">
<%
Dim Trs,rs
Set Rs=Dvbbs.Execute("Select * From Dv_UserGroups Where ParentGID=3 Order By MinArticle")
Do While Not Rs.Eof
%>
<input type=hidden value="<%=rs("UserGroupID")%>" name="usertitleid">
<tr>
<td class=td1 align=center><%=Rs("UserGroupID")%></td>
<td height="23" class=td1><input size=15 value="<%=rs("usertitle")%>" name="usertitle" type=text></td>
<td class=td1><input size=5 value="<%=rs("MinArticle")%>" name="minarticle" type=text></td>
<td class=td1><input size=15 value="<%=rs("grouppic")%>" name="titlepic" type=text><img src="../<%=Dvbbs.Forum_PicUrl%>star/<%=rs("grouppic")%>" border="0"></td>
<td class=td1>
<B><%
Set Trs=Dvbbs.Execute("Select Count(*) From [Dv_User] Where UserGroupID="&Rs("UserGroupID"))
Response.Write Trs(0)
%></B>
</td>
<td class=td1><a href="?action=editgroup&groupid=<%=rs("UserGroupID")%>">编辑</a> | <a href="user.asp?action=userSearch&userSearch=10&usergroupid=<%=rs("usergroupid")%>">列出用户</a> | <a href="?action=delusergroup&id=<%=rs("UserGroupID")%>" onclick="{if(confirm('删除操作将会自动更新一部分用户的等级，并且不可恢复，确定吗?')){return true;}return false;}">删除</a></td>
</tr>
<%
Rs.MoveNext
Loop
Set Rs=Nothing
Set Trs=Nothing
%>
<input type=hidden value="0" name="usertitleid">
<tr>
<td class=td1 align=center><font color=blue>新</font></td>
<td height="23" class=td1><input size=15 value="" name="usertitle" type=text></td>
<td class=td1><input size=5 value="0" name="minarticle" type=text></td>
<td class=td1><input size=15 value="level0.gif" name="titlepic" type=text></td>
<td class=td1>
<B>0</B>
</td>
<td width="20%" class=td1>&nbsp;</td>
</tr>
<tr align=center>
<td colspan=6 height=25 class="td2">
<input type=submit class="button" name=submit value="提交更改">
</td></tr>
</FORM>
</table>
<BR>
<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center">
<tr> 
<th style="text-align:center;" colspan="6">系统用户组管理<a name="1"></a></th>
</tr>
<tr><td colspan=6 height=25 class="td1">
小提示：点击权限您可以分别设定每个系统用户组分别拥有不同的论坛权限，系统组头衔和图标显示在前台用户信息中
</td></tr>
<tr>
<td height="23" width="5%" class=bodytitle><B>组ID</B></td>
<td height="23" width="20%" class=bodytitle><B>系统组头衔</B></td>
<td width="15%" class=bodytitle><B>系统中名称</B></td>
<td height="23" width="30%" class=bodytitle><B>系统组图标</B></td>
<td height="23" width="10%" class=bodytitle><B>用户数</B></td>
<td width="20%" class=bodytitle><B>操作</B></td>
</tr>
<FORM METHOD=POST ACTION="?action=savesysgroup">
<input type=hidden value="1" name="ParentID">
<%
Set Rs=Dvbbs.Execute("Select * From Dv_UserGroups Where ParentGID=1 Order By UserGroupID")
Do While Not Rs.Eof
%>
<input type=hidden value="<%=rs("UserGroupID")%>" name="usertitleid">
<input value="<%=rs("title")%>" name="title" type=hidden>
<input type=hidden value="<%=rs("IsSetting")%>" name="issetting">
<tr>
<td class=td1 align=center><%=Rs("UserGroupID")%></td>
<td height="23" class=td1><input size=15 value="<%=rs("usertitle")%>" name="usertitle" type=text></td>
<td class=td1><%=Rs("Title")%></td>
<td class=td1><input size=15 value="<%=rs("grouppic")%>" name="titlepic" type=text>
<img src="../<%=Dvbbs.Forum_PicUrl%>star/<%=rs("grouppic")%>" border="0">
</td>
<td class=td1>
<B><%
Set Trs=Dvbbs.Execute("Select Count(*) From [Dv_User] Where UserGroupID="&Rs("UserGroupID"))
Response.Write Trs(0)
%></B>
</td>
<td class=td1><a href="?action=editgroup&groupid=<%=rs("UserGroupID")%>">编辑</a> | <a href="user.asp?action=userSearch&userSearch=10&usergroupid=<%=rs("usergroupid")%>">列出用户</a></td>
</tr>
<%
Rs.MoveNext
Loop
Set Rs=Nothing
Set Trs=Nothing
%>
<tr align=center>
<td colspan=6 height=25 class="td2">
<input type=submit class="button" name=submit value="提交更改">
</td></tr>
</FORM>
</table>

<BR>
<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center">
<tr> 
<th style="text-align:center;" colspan="6">特殊用户组管理<a name="2"></a></th>
</tr>
<tr><td colspan=6 height=25 class="td1">
小提示：点击权限您可以分别设定每个特殊用户组分别拥有不同的论坛权限，通常建立来分配给论坛上比较特殊的用户群体，特殊组头衔和图标显示在前台用户信息中
</td></tr>
<tr>
<td width="5%" class=bodytitle><B>组ID</B></td>
<td height="23" width="15%" class=bodytitle><B>特殊组头衔</B></td>
<td width="15%" class=bodytitle><B>系统中名称</B></td>
<td width="30%" class=bodytitle><B>特殊组图片</B></td>
<td height="23" width="10%" class=bodytitle><B>用户数</B></td>
<td width="20%" class=bodytitle><B>操作</B></td>
</tr>
<FORM METHOD=POST ACTION="?action=savesysgroup">
<input type=hidden value="2" name="ParentID">
<%
Set Rs=Dvbbs.Execute("Select * From Dv_UserGroups Where ParentGID=2 Order By UserGroupID")
Do While Not Rs.Eof
%>
<input type=hidden value="<%=rs("UserGroupID")%>" name="usertitleid">
<input type=hidden value="<%=rs("IsSetting")%>" name="issetting">
<tr>
<td class=td1 align=center><%=Rs("UserGroupID")%></td>
<td height="23" class=td1><input size=15 value="<%=rs("usertitle")%>" name="usertitle" type=text></td>
<td class=td1><input size=15 value="<%=rs("title")%>" name="title" type=text></td>
<td class=td1><input size=15 value="<%=rs("grouppic")%>" name="titlepic" type=text>
<img src="../<%=Dvbbs.Forum_PicUrl%>star/<%=rs("grouppic")%>" border="0">
</td>
<td class=td1>
<B><%
Set Trs=Dvbbs.Execute("Select Count(*) From [Dv_User] Where UserGroupID="&Rs("UserGroupID"))
Response.Write Trs(0)
%></B>
</td>
<td class=td1><a href="?action=editgroup&groupid=<%=rs("UserGroupID")%>">编辑</a> | <a href="user.asp?action=userSearch&userSearch=10&usergroupid=<%=rs("usergroupid")%>">列出用户</a> | <a href="?action=delusergroup&id=<%=rs("UserGroupID")%>" onclick="{if(confirm('删除操作将会自动更新一部分用户的等级，并且不可恢复，确定吗?')){return true;}return false;}">删除</a></td>
</tr>
<%
Rs.MoveNext
Loop
Set Rs=Nothing
Set Trs=Nothing
%>
<input type=hidden value="0" name="usertitleid">
<input type=hidden value="" name="issetting">
<tr>
<td class=td1 align=center><font color=blue>新</font></td>
<td height="23" class=td1><input size=15 value="" name="usertitle" type=text></td>
<td class=td1><input size=15 value="" name="title" type=text ></td>
<td class=td1><input size=15 value="level0.gif" name="titlepic" type=text></td>
<td class=td1>
<B>0</B>
</td>
<td class=td1>&nbsp;</td>
</tr>
<tr align=center>
<td colspan=6 height=25 class="td2">
<input type=submit class="button" name=submit value="提交更改">
</td></tr>
</FORM>
</table>

<BR>
<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center">
<tr> 
<th style="text-align:center;" colspan="7">多属性用户组管理<a name="3"></a></th>
</tr>
<tr><td colspan=7 height=25 class="td1">
小提示：点击权限您可以分别设定每个多属性用户组的默认论坛权限，通常建立来分配给论坛上比较特殊的用户群体，多属性组头衔和图标显示在前台用户信息中，多属性用户组的用户可同时拥有多个用户组的权限。<BR><font color=blue>包含组ID请慎重填写，组ID的获取可参考上面的各个组列表，内容用竖线分隔(如：2|8)，如果发现不能更新，请仔细检查所填写组ID是否正确</font>
</td></tr>
<tr>
<td width="5%" class=bodytitle><B>组ID</B></td>
<td height="23" width="13%" class=bodytitle><B>多属性组头衔</B></td>
<td width="10%" class=bodytitle><B>系统中名称</B></td>
<td width="17%" class=bodytitle><B>包含组ID</B></td>
<td width="28%" class=bodytitle><B>多属性组图片</B></td>
<td height="23" width="8%" class=bodytitle><B>用户数</B></td>
<td width="25%" class=bodytitle><B>操作</B></td>
</tr>
<FORM METHOD=POST ACTION="?action=savesysgroup">
<input type=hidden value="4" name="ParentID">
<%
Set Rs=Dvbbs.Execute("Select * From Dv_UserGroups Where ParentGID=4 Order By UserGroupID")
Do While Not Rs.Eof
%>
<input type=hidden value="<%=rs("UserGroupID")%>" name="usertitleid">
<tr>
<td class=td1 align=center><%=Rs("UserGroupID")%></td>
<td height="23" class=td1><input size=15 value="<%=rs("usertitle")%>" name="usertitle" type=text></td>
<td class=td1><input size=15 value="<%=rs("title")%>" name="title" type=text></td>