📄 userinfo.aspx
字号:
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="utf-8" %>
<%@ 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 user As UserInfo
Sub Page_Load()
CheckIsAdmin()
Dim id As String = Request.Form("id")
Dim name As String = Request.Form("name")
Try
If Len(id) > 0 Then
user = New UserInfo(CInt(id), True)
Else If Len(name) > 0 Then
user = New UserInfo(name, True)
End If
Catch ex As Exception
ExceptionHandler.HandleExceptionToErrorPage(ex.Message, True)
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 action="UserInfo.aspx" enctype="application/x-www-form-urlencoded" method="POST">
<table class="ListTable">
<tbody>
<tr>
<td colspan="2" class="ListHeader">查询用户</td>
</tr>
</tbody>
<tbody>
<tr>
<td class="ListItemsTd ListItemsTd_style1 txtcenter" width="50%">
用户 ID:
<input name="id" type="text" class="input_text_sml" />
</td>
<td class="ListItemsTd ListItemsTd_style2 txtcenter">
用户名:
<input name="name" type="text" class="input_text_sml" />
</td>
</tr>
<tr>
<td colspan="2" class="ListItemsTd ListItemsTd_style3 txtcenter">
<input type="submit" value="查询" />
</td>
</tr>
</tbody>
</table>
</form>
<% If Not (user Is Nothing) Then %>
<br />
<table class="ListTable">
<tbody>
<tr>
<td colspan="2" class="ListHeader">用户信息</td>
</tr>
</tbody>
<tbody>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright" width="30%">
ID:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<%=user.ID %>
</td>
</tr>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
用户名:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<%=Server.HtmlEncode(user.Name) %>
</td>
</tr>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
头像:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<%=Server.HtmlEncode(user.FacePath) %>
</td>
</tr>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
用户组:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<% If user.GroupType = GroupType.CommonUser Then %>
普通注册用户
<% Else %>
<%=Server.HtmlEncode(Groups.Instance.GetGroup(user.GroupType, user.EP).Title) %>
<% End If %>
<% If user.SecondGroup <> GroupType.Guest AndAlso user.SecondGroup <> GroupType.CommonUser Then %>
(备用：<%=Server.HtmlEncode(Groups.Instance.GetGroup(user.SecondGroup, user.EP).Title) %>)
<% End If %>
<% If user.MasterBoards.Length > 0 Then %>
<br />
版务:
<% Dim BoardID As Integer, bi As Boards = Boards.Instance
For Each BoardID In user.MasterBoards %>
<%=Server.HtmlEncode(bi.GetBoardNode(BoardID).Name) %>(<%=BoardID %>)
<% Next %>
<% End If %>
</td>
</tr>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
状态:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<% Select Case user.Status %>
<% Case UserStatus.Offline %>
离线
<% Case UserStatus.Online %>
在线
<br />
当前 IP: <%=Server.HtmlEncode(user.GetIP()) %>
<% Case UserStatus.Hidden %>
隐身
<br />
当前 IP: <%=Server.HtmlEncode(user.GetIP()) %>
<% End Select %>
<% If user.Locked Then %>
<br />
<span style="font-weight:bold">(此用户已经被锁定)</span>
<% End If %>
</td>
</tr>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
管理备注:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<%=Server.HtmlEncode(user.Comment) %>
</td>
</tr>
</tbody>
<tbody>
<tr>
<td colspan="2" class="ListHeaderSub">详细信息</td>
</tr>
</tbody>
<tbody>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
真实姓名:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<%=Server.HtmlEncode(user.RealName) %>
</td>
</tr>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
性别:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<%=IIf(user.Male, "男", "女") %>
</td>
</tr>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
出生日期:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<%=Server.HtmlEncode(user.Birthday.ToString("yyyy年MM月dd日")) %>
(<%=Server.HtmlEncode(UserInfo.GetUserAge(user.Birthday).ToString()) %>)
</td>
</tr>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
Email:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<a href="mailto:<%=user.Email %>"><%=Server.HtmlEncode(user.Email) %></a>
</td>
</tr>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
联系地址:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<%=Server.HtmlEncode(user.Address) %>
</td>
</tr>
</tbody>
</table>
<% End If %>
</td></tr></tbody></table>
<!-- InstanceEndEditable -->
</div>
</div>
</body>
<!-- InstanceEnd --></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -