📄 groupmanager.aspx

📁 LiteBlaster 是一款基于 .NET Framework 原创的 ASP.NET 论坛系统。后台程序库采用 C#/VB.NET 编写
💻 ASPX
字号:
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="utf-8" EnableViewState="True" SmartNavigation="True" %>
<%@ Import Namespace="Auway.LiteBlaster.Core" %>
<%@ Import Namespace="Auway.LiteBlaster.Enumerations" %>
<%@ Import Namespace="Auway.LiteBlaster.Exceptions" %>
<%@ Import Namespace="Auway.LiteBlaster.Extensions" %>
<%@ Import Namespace="Auway.LiteBlaster.Forum" %>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html><!-- InstanceBegin template="/Templates/admin_main.dwt.aspx" codeOutsideHTMLIsLocked="false" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<!-- InstanceBeginEditable name="doctitle" -->
<title>论坛后台管理系统</title>
<!-- InstanceEndEditable -->
<link rel="stylesheet" type="text/css" href="../Skins/Styles/main.css" />
<link rel="stylesheet" type="text/css" href="../Skins/Styles/itemList.css" />
<style type="text/css">
	.input_text{
		border:#999FFF 1px solid;
		width:90%;
	}
	.input_text_sml{
		border:#999FFF 1px solid;
		width:45%;
	}
	.input_select{
		width:60%;
	}
</style>
<script language="javascript" type="text/javascript" src="../Lib/sarissa.js"></script>
<script language="javascript" type="text/javascript" src="../Lib/ajax.js"></script>
<script language="javascript" type="text/javascript" src="../Lib/x/x_core.js"></script>
<script language="javascript" type="text/javascript" src="../Lib/x/x_event.js"></script>
<script language="javascript" type="text/javascript" src="../Lib/main.js"></script>
<script runat="server">
	Private Sub CheckIsAdmin()
		Try
			UserInfo.GetCurrentUser().CheckIsAdmin()
		Catch ex As Exception
			ShowError(ex.Message)
		End Try
	End Sub
	Private Sub CheckIsSuperMaster()
		Try
			UserInfo.GetCurrentUser().CheckIsSuperMaster()
		Catch ex As Exception
			ShowError(ex.Message)
		End Try
	End Sub
	Private Sub ShowError(ByVal ErrorMsg As String)
		Response.Clear()
		Response.Redirect("Error.aspx?msg=" & SharedLib.UrlEncode(ErrorMsg), True)
	End Sub
</script>
<!-- InstanceBeginEditable name="head" -->
<script runat="server">
	Private gi As Groups

	Sub Page_Load()
		CheckIsAdmin()
		gi = Groups.Instance
		If Not IsPostBack Then
			RefreshGroupList()
		End If
	End Sub
	
	Sub RefreshGroupList()
		Dim g As Auway.LiteBlaster.Forum.Group
		Dim g_list() As Auway.LiteBlaster.Forum.Group = gi.GetAllGroups()
		GroupSelector.Items.Clear()
		For Each g In g_list
			GroupSelector.Items.Add(New ListItem(g.Title, g.ID.ToString()))
		Next
		GroupSelector.SelectedIndex = 0
		LoadGroupDetails(g_list(0).ID)
	End Sub
	
	Sub LoadGroupDetails(ByVal GroupID As Integer)
		Dim g As Auway.LiteBlaster.Forum.Group = gi.GetGroup(GroupID)
		GroupTypeLabel.Text = g.Type.ToString()
		Title.Text = g.Title
		MinEP.Text = g.MinEP.ToString()
		CanCustomTitle.Checked = g.CanCustomTitle
		CanCustomFace.Checked = g.CanCustomFace
		CanListBoards.Checked = g.CanListBoards
		CanListTopics.Checked = g.CanListTopics
		CanListPosts.Checked = g.CanListPosts
		CanReadRestrictedPosts.Checked = g.CanReadRestrictedPosts
		CanMoveOwnTopics.Checked = g.CanMoveOwnTopics
		CanPostTopics.Checked = g.CanPostTopics
		CanMakeOwnTopicsStriking.Checked = g.CanMakeOwnTopicsStriking
		CanReplyTopics.Checked = g.CanReplyTopics
		CanEditOwnPosts.Checked = g.CanEditOwnPosts
		CanEnterMoods.Checked = g.CanEnterMoods
		CanEnterCodes.Checked = g.CanEnterCodes
		CanPostRestrictedPosts.Checked = g.CanPostRestrictedPosts
		CanPostVotes.Checked = g.CanPostVotes
		CanJoinVotes.Checked = g.CanJoinVotes
		CanBookmark.Checked = g.CanBookmark
		CanViewUserInfo.Checked = g.CanViewUserInfo
		CanViewIP.Checked = g.CanViewIP
		CanUploadFiles.Checked = g.CanUploadFiles
		CanDownloadFiles.Checked = g.CanDownloadFiles
		CanSendMessages.Checked = g.CanSendMessages
	End Sub
	
	Sub RefreshGroupsButton_Click(sender As Object, e As EventArgs)
		RefreshGroupList()
	End Sub
	
	Sub GroupSelectorIndex_Changed(sender As Object, e As EventArgs)
		LoadGroupDetails(CInt(GroupSelector.SelectedValue))
	End Sub
	
	Sub UpdateGroups_Click(ByVal sender As Object, ByVal e As System.EventArgs)
		Try
			Groups.UpdateGroup(CInt(GroupSelector.SelectedValue), _
								Title.Text, CInt(MinEP.Text), _
								CanCustomTitle.Checked, CanCustomFace.Checked, _
								CanListBoards.Checked, CanListTopics.Checked, CanListPosts.Checked, _
								CanReadRestrictedPosts.Checked, CanMoveOwnTopics.Checked, _
								CanPostTopics.Checked, CanMakeOwnTopicsStriking.Checked, _
								CanReplyTopics.Checked, CanEditOwnPosts.Checked, _
								CanEnterMoods.Checked, CanEnterCodes.Checked, _
								CanPostRestrictedPosts.Checked, _
								CanPostVotes.Checked, CanJoinVotes.Checked, _
								CanBookmark.Checked, _
								CanViewUserInfo.Checked, CanViewIP.Checked, _
								CanUploadFiles.Checked, CanDownloadFiles.Checked, _
								CanSendMessages.Checked)
		Catch ex As Exception
			ShowError(ex.Message)
		End Try
	End Sub
</script>
<!-- InstanceEndEditable -->
</head>

<body>
	<div id="BodyFrame" align="left">
		<div id="BodyFrameInner">
			<!-- InstanceBeginEditable name="Container" -->
			<table class="ListBody" align="center"><tbody><tr><td>
				<form runat="server">
					<table class="ListTable">
						<tbody>
							<tr>
								<td class="ListHeader">用户组管理</td>
							</tr>
						</tbody>
						<tbody>
							<tr>
								<td class="ListHeaderSub">
									选择组：
									<asp:DropDownList AutoPostBack="true" ID="GroupSelector" OnSelectedIndexChanged="GroupSelectorIndex_Changed" runat="server" CssClass="input_select"></asp:DropDownList>
									<asp:Button ID="RefreshGroupsButton" Text="刷新组列表" OnClick="RefreshGroupsButton_Click" runat="server"></asp:Button>
									<br />
									内部类：
									<asp:Label ID="GroupTypeLabel" runat="server"></asp:Label>
								</td>
							</tr>
						</tbody>
					</table>
					<table class="ListTable">
						<tbody>
							<tr>
								<td width="30%" class="ListItemsTd ListItemsTd_style2 txtright">
									说明:
								</td>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:TextBox ID="Title" CssClass="input_text" runat="server" TextMode="SingleLine"></asp:TextBox>
								</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style2 txtright">
									最少达到经验值:
								</td>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:TextBox ID="MinEP" CssClass="input_text" runat="server" TextMode="SingleLine"></asp:TextBox>
								</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style2 txtright">
									自定义头衔:
								</td>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:CheckBox ID="CanCustomTitle" runat="server" Text="允许"></asp:CheckBox>
								</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style2 txtright">
									自定义头像:
								</td>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:CheckBox ID="CanCustomFace" runat="server" Text="允许"></asp:CheckBox>
								</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style2 txtright">
									显示版面:
								</td>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:CheckBox ID="CanListBoards" runat="server" Text="允许"></asp:CheckBox>
								</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style2 txtright">
									显示主题:
								</td>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:CheckBox ID="CanListTopics" runat="server" Text="允许"></asp:CheckBox>
								</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style2 txtright">
									显示帖子:
								</td>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:CheckBox ID="CanListPosts" runat="server" Text="允许"></asp:CheckBox>
								</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style2 txtright">
									查看隐藏帖:
								</td>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:CheckBox ID="CanReadRestrictedPosts" runat="server" Text="允许"></asp:CheckBox>
								</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style2 txtright">
									移动原创主题:
								</td>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:CheckBox ID="CanMoveOwnTopics" runat="server" Text="允许"></asp:CheckBox>
								</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style2 txtright">
									发起主题:
								</td>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:CheckBox ID="CanPostTopics" runat="server" Text="允许"></asp:CheckBox>
								</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style2 txtright">
									使原创主题醒目:
								</td>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:CheckBox ID="CanMakeOwnTopicsStriking" runat="server" Text="允许"></asp:CheckBox>
								</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style2 txtright">
									回复主题:
								</td>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:CheckBox ID="CanReplyTopics" runat="server" Text="允许"></asp:CheckBox>
								</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style2 txtright">
									编辑原创帖子:
								</td>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:CheckBox ID="CanEditOwnPosts" runat="server" Text="允许"></asp:CheckBox>
								</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style2 txtright">
									使用表情:
								</td>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:CheckBox ID="CanEnterMoods" runat="server" Text="允许"></asp:CheckBox>
								</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style2 txtright">
									使用代码:
								</td>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:CheckBox ID="CanEnterCodes" runat="server" Text="允许"></asp:CheckBox>
								</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style2 txtright">
									发起隐藏帖:
								</td>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:CheckBox ID="CanPostRestrictedPosts" runat="server" Text="允许"></asp:CheckBox>
								</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style2 txtright">
									发起投票:
								</td>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:CheckBox ID="CanPostVotes" runat="server" Text="允许"></asp:CheckBox>
								</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style2 txtright">
									参与投票:
								</td>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:CheckBox ID="CanJoinVotes" runat="server" Text="允许"></asp:CheckBox>
								</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style2 txtright">
									编辑收藏:
								</td>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:CheckBox ID="CanBookmark" runat="server" Text="允许"></asp:CheckBox>
								</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style2 txtright">
									查看用户信息:
								</td>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:CheckBox ID="CanViewUserInfo" runat="server" Text="允许"></asp:CheckBox>
								</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style2 txtright">
									查看 IP:
								</td>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:CheckBox ID="CanViewIP" runat="server" Text="允许"></asp:CheckBox>
								</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style2 txtright">
									上传文件:
								</td>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:CheckBox ID="CanUploadFiles" runat="server" Text="允许"></asp:CheckBox>
								</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style2 txtright">
									下载文件:
								</td>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:CheckBox ID="CanDownloadFiles" runat="server" Text="允许"></asp:CheckBox>
								</td>
							</tr>
							<tr>
								<td class="ListItemsTd ListItemsTd_style2 txtright">
									发送短消息:
								</td>
								<td class="ListItemsTd ListItemsTd_style1 txtleft">
									<asp:CheckBox ID="CanSendMessages" runat="server" Text="允许"></asp:CheckBox>
								</td>
							</tr>
						</tbody>
						<tbody>
							<tr>
								<td colspan="2" class="ListItemsTd ListItemsTd_style3 txtcenter">
									<asp:Button ID="UpdateGroups" runat="server" Text="更新" OnClick="UpdateGroups_Click"></asp:Button>
								</td>
							</tr>
						</tbody>
					</table>
				</form>
			</td></tr></tbody></table>
			<!-- InstanceEndEditable -->
		</div>
	</div>
</body>
<!-- InstanceEnd --></html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -