📄 usersettings.aspx
字号:
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="utf-8" EnableViewState="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 = Groups.Instance
Sub Page_Load()
CheckIsAdmin()
If Not Page.IsPostBack Then
Dim SpecialTitle As String = gi.GetGroup(GroupType.Special, Integer.MinValue).Title
Dim VIPTitle As String = gi.GetGroup(GroupType.VIP, Integer.MinValue).Title
Dim BoardMasterTitle As String = gi.GetGroup(GroupType.BoardMaster, Integer.MinValue).Title
Dim SuperMasterTitle As String = gi.GetGroup(GroupType.SuperMaster, Integer.MinValue).Title
Dim AdminTitle As String = gi.GetGroup(GroupType.Admin, Integer.MinValue).Title
Dim SpecialItem As New ListItem(SpecialTitle, "2")
Dim VIPItem As New ListItem(VIPTitle, "3")
Dim BoardMasterItem As New ListItem(BoardMasterTitle, "4")
Dim SuperMasterItem As New ListItem(SuperMasterTitle, "5")
Dim AdminItem As New ListItem(AdminTitle, "6")
PrivilegesGroup.Items.Add(SpecialItem)
PrivilegesGroup.Items.Add(VIPItem)
PrivilegesGroup.Items.Add(BoardMasterItem)
PrivilegesGroup.Items.Add(SuperMasterItem)
PrivilegesGroup.Items.Add(AdminItem)
PrivilegesSecond.Items.Add(SpecialItem)
PrivilegesSecond.Items.Add(VIPItem)
PrivilegesSecond.Items.Add(BoardMasterItem)
PrivilegesSecond.Items.Add(SuperMasterItem)
PrivilegesSecond.Items.Add(AdminItem)
End If
End Sub
Sub LockingBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Try
Dim name As String = LockingUserName.Value
Dim Locked As Boolean = LockingLocked.Checked
Dim LockType As String = CStr(IIf(Locked, "锁定", "解锁"))
Dim Reason As String = LockingReason.Value
UserInfo.UpdateLocked(name, Locked, Reason)
StatusMsg.InnerHtml = "用户“" & Server.HtmlEncode(name) & "”" & LockType & "成功。"
Catch ex As Exception
StatusMsg.InnerText = ex.Message
End Try
End Sub
Sub CommentBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Try
Dim name As String = CommentUserName.Value
Dim comment As String = CommentComment.Value
UserInfo.UpdateComment(name, comment)
StatusMsg.InnerHtml = "用户“" & Server.HtmlEncode(name) & "”的管理备注更新成功。"
Catch ex As Exception
StatusMsg.InnerText = ex.Message
End Try
End Sub
Sub PrivilegesBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Try
Dim name As String = PrivilegesUserName.Value
Dim type As GroupType = CType(Convert.ToByte(PrivilegesGroup.Value) ,GroupType)
Dim second As GroupType = CType(Convert.ToByte(PrivilegesSecond.Value) ,GroupType)
UserInfo.UpdateGroupType(name, type, second)
StatusMsg.InnerHtml = "成功更改用户“" & Server.HtmlEncode(PrivilegesUserName.Value) & "”所在的组。"
Catch ex As Exception
StatusMsg.InnerText = ex.Message
End Try
End Sub
Sub ChangeNameBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Try
Dim id As Integer = Convert.ToInt32(ChangeNameUserID.Value)
UserInfo.ChangeName(id, ChangeNameNewName.Value)
StatusMsg.InnerText = "更改用户(ID-" & id & ")的用户名成功。"
Catch ex As Exception
StatusMsg.InnerText = ex.Message
End Try
End Sub
Sub RemovalBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim id As String = RemovalUserID.Value
Dim name As String = RemovalUserName.Value
Try
If Len(id) > 0 Then
UserInfo.RemoveUser(Convert.ToInt32(id))
StatusMsg.InnerText = "删除用户(ID-" & id & ")成功。"
Else If Len(name) > 0 Then
UserInfo.RemoveUser(name)
StatusMsg.InnerText = "删除用户(名称-" & name & ")成功。"
End If
Catch ex As Exception
StatusMsg.InnerText = 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>
<table class="ListTable">
<tbody>
<tr>
<td class="ListItemsTd ListItemsTd_style3 txtcenter">
<span id="StatusMsg" style="font-weight:bold" runat="server" />
</td>
</tr>
</tbody>
</table>
<br />
<form runat="server">
<table class="ListTable">
<tbody>
<tr>
<td colspan="2" class="ListHeader">用户锁定模式切换</td>
</tr>
</tbody>
<tbody>
<tr>
<td class="ListItemsTd ListItemsTd_style1 txtleft" width="50%">
用户名:
<input id="LockingUserName" type="text" class="input_text_sml" runat="server" />
</td>
<td class="ListItemsTd ListItemsTd_style2 txtleft">
<input id="LockingLocked" type="checkbox" checked="true" value="true" runat="server" /><label for="LockingLocked">锁定(不选定代表解锁)</label>
</td>
</tr>
<tr>
<td colspan="2" class="ListItemsTd ListItemsTd_style1 txtleft">
原因:
<input id="LockingReason" type="text" class="input_text" runat="server" />
</td>
</tr>
<tr>
<td colspan="2" class="ListItemsTd ListItemsTd_style3 txtcenter">
<input id="LockingBtn" type="button" value="更新" runat="server" onServerClick="LockingBtn_Click" />
</td>
</tr>
</tbody>
</table>
<table class="ListTable">
<tbody>
<tr>
<td colspan="2" class="ListHeader">用户管理备注</td>
</tr>
</tbody>
<tbody>
<tr>
<td class="ListItemsTd ListItemsTd_style1 txtleft" width="50%">
用户名:
<input id="CommentUserName" type="text" class="input_text_sml" runat="server" />
</td>
<td class="ListItemsTd ListItemsTd_style2 txtleft">
备注：
<input id="CommentComment" type="text" class="input_text_sml" runat="server" />
</td>
</tr>
<tr>
<td colspan="2" class="ListItemsTd ListItemsTd_style3 txtcenter">
<input id="CommentBtn" type="button" value="更新" runat="server" onServerClick="CommentBtn_Click" />
</td>
</tr>
</tbody>
</table>
<table class="ListTable">
<tbody>
<tr>
<td colspan="2" class="ListHeader">更改用户所在组</td>
</tr>
</tbody>
<tbody>
<tr>
<td class="ListItemsTd ListItemsTd_style1 txtleft" width="50%">
用户名:
<input id="PrivilegesUserName" type="text" class="input_text_sml" runat="server" />
</td>
<td class="ListItemsTd ListItemsTd_style2 txtleft">
首选组：
<select id="PrivilegesGroup" class="input_select" runat="server">
<option value="1">普通注册用户</option>
</select>
<br />
备用组：
<select id="PrivilegesSecond" class="input_select" runat="server">
<option value="0">无备用</option>
</select>
<br /><br />
如果要提高权限至版主，请到相应版面的版面管理模块中添加该用户为版主。
</td>
</tr>
<tr>
<td colspan="2" class="ListItemsTd ListItemsTd_style3 txtcenter">
<input id="PrivilegesBtn" type="button" value="更改" runat="server" onServerClick="PrivilegesBtn_Click" />
</td>
</tr>
</tbody>
</table>
<table class="ListTable">
<tbody>
<tr>
<td colspan="2" class="ListHeader">更改用户名</td>
</tr>
</tbody>
<tbody>
<tr>
<td class="ListItemsTd ListItemsTd_style1 txtleft" width="50%">
用户 ID:
<input id="ChangeNameUserID" type="text" class="input_text_sml" runat="server" />
</td>
<td class="ListItemsTd ListItemsTd_style2 txtleft">
新用户名:
<input id="ChangeNameNewName" type="text" class="input_text_sml" runat="server" />
</td>
</tr>
<tr>
<td colspan="2" class="ListItemsTd ListItemsTd_style3 txtcenter">
<input id="ChangeNameBtn" type="button" value="更改" onClick="if(!confirm('确定要更改用户名吗？'))return false;" runat="server" onServerClick="ChangeNameBtn_Click" />
</td>
</tr>
</tbody>
</table>
<table class="ListTable">
<tbody>
<tr>
<td colspan="2" class="ListHeader">删除用户</td>
</tr>
</tbody>
<tbody>
<tr>
<td class="ListItemsTd ListItemsTd_style1 txtleft" width="50%">
用户 ID:
<input id="RemovalUserID" type="text" class="input_text_sml" runat="server" />
</td>
<td class="ListItemsTd ListItemsTd_style2 txtleft">
用户名:
<input id="RemovalUserName" type="text" class="input_text_sml" runat="server" />
</td>
</tr>
<tr>
<td colspan="2" class="ListItemsTd ListItemsTd_style3 txtcenter">
<input id="RemovalBtn" type="button" value="删除" onClick="if(!confirm('删除用户会删除所有相关数据。确定要删除该用户吗？'))return false;" runat="server" onServerClick="RemovalBtn_Click" />
</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 + -