📄 user.aspx
字号:
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="utf-8" Inherits="Auway.LiteBlaster.Pages.UserHelper" %>
<%@ Register Src="Controls/Header.ascx" TagName="Header" TagPrefix="LB" %>
<%@ Register Src="Controls/Footer.ascx" TagName="Footer" TagPrefix="LB" %>
<%@ 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/main.dwt.aspx" codeOutsideHTMLIsLocked="false" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title><%=SystemInfo.Instance.ForumTitle %></title>
<link type="text/css" rel="stylesheet" href="Skins/Styles/main.css" />
<link type="text/css" rel="stylesheet" href="Skins/Styles/itemList.css" />
<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>
<!-- InstanceBeginEditable name="head" -->
<link rel="stylesheet" type="text/css" href="Skins/Styles/user.css" />
<!-- InstanceEndEditable -->
</head>
<body style="min-width:900px">
<div id="BodyFrame" align="left">
<div id="BodyFrameInner">
<LB:Header id="HeaderFrame" runat="server" />
<div id="PathIndicator">
» <a href="Admin/../"><%=SystemInfo.Instance.ForumTitle %></a><span id="ExtraPathIndicator"></span>
</div>
<!-- InstanceBeginEditable name="PathIndicator" -->
<script language="javascript" type="text/javascript">
addExtraTitle('查看用户资料');
setExtraPathIndicator(' > 用户“<%=user.Name %>”的资料');
</script>
<!-- InstanceEndEditable -->
<br />
<table id="Container">
<tbody><tr><td>
<!-- InstanceBeginEditable name="Container" -->
<table class="ListBody" align="center"><tbody><tr><td>
<table class="ListTable">
<tbody class="ListHeader">
<tr>
<td><%=Server.HtmlEncode(user.Name) %></td>
</tr>
</tbody>
</table>
<table class="ListTable" style="line-height:20px">
<tbody valign="top">
<tr>
<td width="30%" class="ListItemsTd ListItemsTd_style2 txtright">
<span id="UserName"><%=Server.HtmlEncode(user.Name) %></span>
<% If user.ShowGender Then %>
<span id="UserGender" title="<%=IIf(user.Male, "帅哥", "美女") %>">
<%=IIf(user.Male, "♂", "♀") %>
</span>
<% End If %>
<br />
<% If Len(user.CustomTitle) > 0 Then %>
<span id="CustomTitle"><%=TextHelper.SolveRichText(user.CustomTitle, False, True) %></span>
<br />
<% End If %>
<% If Len(user.FacePath) > 0 Then %>
<img src="Faces/<%=user.FacePath %>" />
<% End If %>
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
个人简介:
<hr style="width:90%" align="left" />
<% If Len(user.Description) > 0 Then %>
<%=TextHelper.SolveRichText(user.Description, True, False) %>
<% Else %>
<i>懒人一个，惜墨如金——</i>
<% End If %>
</td>
</tr>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
ID:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<span id="UserID"><%=user.ID %></span>
</td>
</tr>
<% If Len(user.ComeFrom) > 0 Then %>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
来自:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<%=TextHelper.SolveRichText(user.ComeFrom, False, True) %>
</td>
</tr>
<% End If %>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
状态:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<% Select Case user.Status %>
<% Case UserStatus.Offline %>
离线
<% Case UserStatus.Online %>
在线
<% If usergroup.CanViewIP Then %>
<br />
当前 IP: <%=Server.HtmlEncode(user.GetIP()) %>
<% End If %>
<% Case UserStatus.Hidden %>
<%=IIf(user.ID = UserInfo.CurrentUserOrGuest.ID, "隐身", "离线") %>
<% End Select %>
<% If user.Locked Then %>
<br />
<span style="font-weight:bold">(此用户已经被锁定)</span>
<% End If %>
</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">
<span id="UserGroup">
<% If user.GroupType = GroupType.CommonUser Then %>
普通注册用户
<% Else %>
<%=Server.HtmlEncode(Groups.Instance.GetGroup(user.GroupType, user.EP).Title) %>
<% End If %>
</span>
<% 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 %>
<a href="Board.aspx?id=<%=BoardID %>">
<%=Server.HtmlEncode(bi.GetBoardNode(BoardID).Name) %>
</a>
<% Next %>
<% End If %>
</td>
</tr>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
浏览等级:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<span id="EPLevel">
<%=Server.HtmlEncode(Groups.Instance.GetUserGroup(GroupType.CommonUser, user.EP).Title) %>
</span>
</td>
</tr>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
发帖数量:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<%=user.PostCount %>
(平均每天 <%=(user.PostCount / Math.Ceiling(SharedLib.CurrentTimeUtc.Subtract(user.JoinTime).TotalDays)).ToString("0.00") %> 帖)
</td>
</tr>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
主题数量:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<%=user.TopicCount %>
</td>
</tr>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
精华数量:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<%=user.BestCount %>
</td>
</tr>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
经验值:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<%=user.EP %>
</td>
</tr>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
注册日期:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<%=Server.HtmlEncode(TimeCoordinator.ToUserTime(user.JoinTime)) %>
</td>
</tr>
<% If user.LoginCount > 0 Then %>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
上次登录:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<%=Server.HtmlEncode(TimeCoordinator.ToUserTime(user.LastLogin)) %>
</td>
</tr>
<% End If %>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
登录次数:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<%=user.LoginCount %>
</td>
</tr>
</tbody>
<tbody>
<tr>
<td colspan="2" class="ListHeaderSub">个人信息</td>
</tr>
</tbody>
<tbody>
<% If user.ShowRealName Then %>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
真实姓名:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<%=Server.HtmlEncode(user.RealName) %>
</td>
</tr>
<% End If %>
<% If user.ShowBirthday Then %>
<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>
<% End If %>
<% If user.ShowEmail Then %>
<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>
<% End If %>
<% If user.ShowAddress Then %>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
联系地址:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<%=Server.HtmlEncode(user.Address) %>
</td>
</tr>
<% End If %>
<% If user.ShowIM Then %>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
IM:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<%=Server.HtmlEncode(user.IM) %>
</td>
</tr>
<% End If %>
<tr>
<td class="ListItemsTd ListItemsTd_style2 txtright">
选定时区:
</td>
<td class="ListItemsTd ListItemsTd_style1 txtleft">
<%=user.TimeZone.ToString("0.0") %>
</td>
</tr>
</tbody>
<tbody>
<tr>
<td colspan="2" class="ListHeaderSub">相关操作</td>
</tr>
</tbody>
<tbody>
<tr>
<td colspan="2" class="ListItemsTd ListItemsTd_style3 txtcenter" style="font-weight:bold">
<% Dim UrlEncodedName As String = SharedLib.UrlEncode(user.Name) %>
<% If UserInfo.CurrentUserOrGuest.ID <> user.ID Then %>
<a href="Messages.aspx?msgto=<%=UrlEncodedName %>">发送短消息</a>
<% End If %>
<a href="Topics.aspx?author=<%=UrlEncodedName %>&search=true">相关主题</a>
</td>
</tr>
</tbody>
</table>
</td></tr></tbody></table>
<!-- InstanceEndEditable -->
</td></tr></tbody>
</table>
<br />
<LB:Footer id="FooterFrame" runat="server" />
</div>
</div>
</body>
<!-- InstanceEnd --></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -