group.asp

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

			Dvbbs.Execute("Delete From Dv_UserGroups Where UserGroupID = " & UserTitleID)
		End If
		Set tRs=Nothing
	End If
Dvbbs.LoadGroupSetting():iGroupSetting_UserName()
	Dv_suc("用户组（等级）资料删除成功！")
	Set Rs=Nothing
End Sub

Sub EditGroup()
	If Not IsNumeric(Replace(Request("groupid"),",","")) Then
		Errmsg = ErrMsg + "<BR><li>请选择对应的用户组。"
		Dvbbs_Error()
		Exit Sub
	End If
	
	If Request("groupaction")="yes" Then
		Dim GroupSetting,SaveGroupid
		Dim UpdateStr,OldStr,NewStr,k,rs,sql
		If Request.Form("title")="" Then
			Errmsg = ErrMsg + "<BR><li>请输入用户组名称！"
			Dvbbs_Error()
			Exit Sub
		End If
		SaveGroupid = Dvbbs.Checkstr(Request.Form("groupid"))
		GroupSetting=GetGroupPermission
		UpdateStr = ""
		Set Rs = Server.CreateObject("ADODB.Recordset")
		Sql="Select UserTitle,GroupPic,GroupSetting From Dv_UserGroups Where UserGroupID in ("&SaveGroupid&") "
		Rs.Open Sql,Conn,1,3
		Do While Not Rs.Eof
			If Instr(SaveGroupid,",")=0 Then
				Rs("UserTitle") = Request.Form("title")
				Rs("GroupPic") = Request.Form("grouppic")
				Rs("GroupSetting") = GroupSetting
				'Response.Write GroupSetting
			Else
				NewStr = Split(GroupSetting,",")
				OldStr = Split(Rs("GroupSetting"),",")
				For K = 0 To 90
					If Request.Form("CheckGroupSetting("&K&")")="on" Then
						UpdateStr = UpdateStr & NewStr(k)
					Else
						UpdateStr = UpdateStr & OldStr(k)
					End If
					If K<90 Then
						UpdateStr = UpdateStr & ","
					End If
				Next
				If Request.Form("CheckGroupPic")="on" Then
					Rs("GroupPic") = Request.Form("grouppic")
				End If
				Rs("GroupSetting") = UpdateStr
				UpdateStr = ""
			End If
			'Rs("isdisp")=Request("isdisp")
			Rs.update
		Rs.MoveNext
		Loop
		Rs.close
		Set Rs=Nothing
		Dv_suc("用户组（等级）资料修改成功！")
		Dvbbs.LoadGroupSetting():iGroupSetting_UserName()
	Else
		Dim reGroupSetting
		Set Rs=Dvbbs.Execute("Select * From Dv_Usergroups Where UserGroupID="&Request("groupid"))
		If Rs.Eof And Rs.Bof Then
			Errmsg = ErrMsg + "<BR><li>未找到该用户组！"
			Dvbbs_Error()
			Exit Sub
		End If
		reGroupSetting=Split(Rs("GroupSetting"),",")
%>
<FORM METHOD=POST ACTION="?action=editgroup" name="TheForm">
<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center">
<tr>
<th style="text-align:center;" colspan="4">
论坛用户组权限设置
</th>
</tr>
<tr><td colspan=4 height=25 class="td1"><B>说明</B>：
<BR>①在这里您可以设置各个用户组（等级）在论坛中的默认权限；
<BR>②可以删除和编辑新添加的用户组；
<BR>③<font color="red">在更新多个用户组设置时，请选取最左边的复选表单，只有选取的设置项目才会更新；</font>
<BR>④不执行多用户组更新时，不需要选取左边的复选表单。
</td></tr>
<tr><td colspan=4 height=25 class="td1">
<b>设置功能</b>：
[<a href="#setting1">编辑用户组(等级)资料信息</a>] 
[<a href="#setting2">浏览相关选项</a>] 
[<a href="#setting3">发帖权限</a>] 
[<a href="#setting4">帖子/主题编辑权限</a>] 
[<a href="#setting5">上传权限设置</a>] 
[<a href="#setting6">管理权限</a>] 
[<a href="#setting7">短信权限</a>] 
[<a href="#setting8">其他权限</a>] 
[<a href="#setting9">重要权限设置</a>] 
</td></tr>
<tr><td colspan=4 height=25 class="td1">
<b>批量更新用户组设置</b>：<input type="button" class="button" value="选择用户组" onclick="getGroup('Select_Group');">
</td></tr>
<tr>
<th style="text-align:center;" colspan="4" align=left>
<a name="setting1"></a>
<INPUT TYPE="checkbox" class="checkbox" NAME="chkall" onclick="CheckAll(this.form);">[全选]
编辑用户组(等级)资料信息
</th>
</tr>
<tr><td colspan=4 height=25 class="bodytitle">
<B><a href="?">用户组(等级)管理</a> >> <%=SysGroupName(Rs("ParentGID"))%></B>
<%=Rs("UserTitle")%>
<input name="groupid" type="hidden" value="<%=Request("groupid")%>">
</td></tr>
<tr>
<td width="1%" class=td1>&nbsp;</td>
<td height="23" class=td1>用户组(等级)名称</td>
<td height="23" class=td1 colspan=2><input size=35 name="title" type=text value="<%=Rs("UserTitle")%>"></td>
</tr>
<tr>
<td width="1%" class=td1><INPUT TYPE="checkbox" class="checkbox" NAME="CheckGroupPic"></td>
<td height="23" class=td1>用户组(等级)图片</td>
<td height="23"class=td1 colspan=2><input size=35 name="grouppic" type=text value="<%=rs("grouppic")%>"></td>
</tr>
<%
GroupPermission(rs("GroupSetting"))
%>
<input type=hidden value="yes" name="groupaction">
</FORM>
</table>
<%
		Set Rs=Nothing
		Call Select_Group(Request("groupid"))
	End If
End Sub

Sub GroupOnline()
%>
<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center">
<tr> 
<th style="text-align:center;" align=left>操作提示</th>
</tr>
<tr align=left>
<td height="23" class="td1" style="LINE-HEIGHT: 140%">
<li>可以给每个用户组分别定制其在线图例图片，该图片显示于用户在线列表的用户名前面，<B>图片路径为风格模板中所定义路径</B>
<li>排序为 0 则不显示于首页在线图例说明中，排序大于 0 则按序显示于首页的在线图例说明中
</td>
</tr>
<tr align=left>
<td height="23" class="td2" style="LINE-HEIGHT: 140%">
<B>快捷操作</B>： <a href="?">用户组管理首页</a> | <a href="?#1">系统组</a> | <a href="?#2">特殊组</a> | <a href="?#3">多属性组</a> | <a href="?action=editgroup&groupid=4">编辑默认组资料</a>
</td>
</tr>
</table>
<BR>
<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center">
<tr> 
<th style="text-align:center;" align=left colspan=3>用户组在线图例管理</th>
</tr>
<tr> 
<td width="20%" class=bodytitle><B>组名称</B></td>
<td height="23" width="10%" class=bodytitle><B>排序</B></td>
<td width="*" class=bodytitle><B>组图例</B></td>
</tr>
<FORM METHOD=POST ACTION="?action=saveonline">
<%
Dim rs
Set Rs=Dvbbs.Execute("Select * From Dv_UserGroups Order By ParentGID,UserGroupID")
Do While Not Rs.Eof
%>
<input type=hidden value="<%=rs("UserGroupID")%>" name="usertitleid">
<tr align=left>
<td height="23" class="td1">
<%=Rs("UserTitle")%>
</td>
<td height="23" class="td1">
<Input type=text size=5 name="Orders" value="<%=Rs("Orders")%>">
</td>
<td height="23" class="td1">
<Input type=text size=20 name="TitlePic" value="<%=Rs("TitlePic")%>">
<img src="../<%=Dvbbs.Forum_PicUrl%><%=rs("TitlePic")%>" border="0">
<%
If Rs("ParentGID")=0 Then Response.Write "修改注册用户组名称请点击 <a href=""?action=editgroup&groupid=4"">编辑默认组资料</a>"
%>
</td>
</tr>
<%
Rs.MoveNext
Loop
Rs.Close
Set Rs=Nothing
%>
<tr align=center>
<td colspan=3 height=25 class="td2">
<input type=submit class="button" name=submit value="提交更改">
</td></tr>
</FORM>
</table>
<BR>
<%
End Sub

Sub iGroupSetting_UserName()
	Dvbbs.Name="GroupSetting_UserName"
	Dim i,Str,OutputStr,Outputvalue
	Dim Rs,SQL
	SQL = "Select UserGroupID,GroupSetting From [Dv_UserGroups] order by UserGroupID"
	Set Rs = Dvbbs.Execute(SQL)
	Do while not Rs.Eof
		Str = Str & Rs(0) &","& Split(Rs(1),",")(58)
		Str = Str & "|||"
	Rs.MoveNext
	Loop
	Rs.Close : Set Rs = Nothing
	Dvbbs.value = Left(str,Len(str)-3)
	Str = Split(Dvbbs.value,"|||")
	For i=0 to Ubound(Str)
		OutputStr = Split(Str(i),",")
		Outputvalue = Outputvalue & "GroupUserName["&OutputStr(0)&"]='"&Replace(Replace(Replace(Replace(OutputStr(1),"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"")&"';"
	Next
	Dvbbs.value = "var GroupUserName = new Array(); " & Outputvalue
End Sub

Sub SaveGroupOnline()
	Dim UserTitleID,Orders,TitlePic,i,rs
	For i=1 To Request.Form("usertitleid").Count
		UserTitleID=Replace(Request.Form("usertitleid")(i),"'","")
		Orders=Replace(Request.Form("Orders")(i),"'","")
		TitlePic=Replace(Request.Form("TitlePic")(i),"'","")
		Dvbbs.Execute("Update Dv_UserGroups Set Orders="&Orders&",TitlePic='"&TitlePic&"' Where UserGroupID="&UserTitleID)
	Next
	Dv_suc("批量更新用户组在线图例资料成功！")
	Set Rs=Nothing
	Dvbbs.LoadGroupSetting():iGroupSetting_UserName()
End Sub

Sub iGroupSetting_UserName()
	Dvbbs.Name="GroupSetting_UserName"
	Dim i,Str,OutputStr,Outputvalue
	Dim Rs,SQL
	SQL = "Select UserGroupID,GroupSetting From [Dv_UserGroups] order by UserGroupID"
	Set Rs = Dvbbs.Execute(SQL)
	Do while not Rs.Eof
		Str = Str & Rs(0) &","& Split(Rs(1),",")(58)
		Str = Str & "|||"
	Rs.MoveNext
	Loop
	Rs.Close : Set Rs = Nothing
	Dvbbs.value = Left(str,Len(str)-3)
	Str = Split(Dvbbs.value,"|||")
	For i=0 to Ubound(Str)
		OutputStr = Split(Str(i),",")
		Outputvalue = Outputvalue & "GroupUserName["&OutputStr(0)&"]='"&Replace(Replace(Replace(Replace(OutputStr(1),"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"")&"';"
	Next
	Dvbbs.value = "var GroupUserName = new Array(); " & Outputvalue
End Sub
%>