📄 info.aspx
字号:
<% @ Import Namespace="Packaging" %>
<% @ Import Namespace="System.Data" %>
<% @ Import Namespace="System.Globalization" %>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>个人资料显示</title>
<style>
td {
font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
font-size : 10pt;
}
.td1 {
color:white;
}
</style>
</head>
<body topmargin="0" leftmargin="1" bgcolor=#eaeaea>
<asp:Repeater id="myinfo" runat="server">
<ItemTemplate>
<table border="0" cellpadding="0" cellspacing="1" width="100%" height="90" bgcolor="#006699">
<tr bgcolor="#99CC00">
<td width="100%" colspan="4" height="43" align="center">
<%#DataBinder.Eval(Container.DataItem, "UserAccount") %>
的资料</td>
</tr>
<tr bgcolor="#CCFF99">
<td width="19%" height="18" bgcolor="#CCFF99" align="center" class="td1"><font color="#000000">真名</font></td>
<td width="31%" height="18">
<%#DataBinder.Eval(Container.DataItem, "UserName") %>
</td>
<td width="19%" height="18" align="center" class="td1"><font color="#000000">性别</font></td>
<td width="31%" height="18" align="center">
<%#ChkGender(Container.DataItem("UserGender") )%>
</td>
</tr>
<tr bgcolor="#CCFF99">
<td width="19%" height="18" bgcolor="#CCFF99" align="center" class="td1"><font color="#000000">生日</font></td>
<td width="31%" height="18">
<%#ChkBirth(Container.DataItem("UserBirthday"))%>
</td>
<td width="19%" height="18" align="center" class="td1"><font color="#000000">QQ</font></td>
<td width="31%" height="18" align="center">
<%#DataBinder.Eval(Container.DataItem, "UserQQ") %>
</td>
</tr>
<tr bgcolor="#CCFF99">
<td width="19%" height="18" bgcolor="#CCFF99" align="center" class="td1"><font color="#000000">Email</font></td>
<td width="81%" height="18" colspan="3"> <a href="mailto:<%#DataBinder.Eval(Container.DataItem, "UserEmail") %>">
<%#DataBinder.Eval(Container.DataItem, "UserEmail") %>
</a></td>
</tr>
<tr bgcolor="#CCFF99">
<td width="19%" height="18" bgcolor="#CCFF99" align="center" class="td1"><font color="#000000">MSN</font></td>
<td width="81%" height="18" colspan="3">
<%#DataBinder.Eval(Container.DataItem, "UserMSN") %>
</td>
</tr>
<tr bgcolor="#CCFF99">
<td width="19%" height="18" bgcolor="#CCFF99" align="center" class="td1"><font color="#000000">个人主页</font></td>
<td width="81%" height="18" colspan="3"> <a href="<%#DataBinder.Eval(Container.DataItem, "UserHomepage") %>" target="_blank">
<%#DataBinder.Eval(Container.DataItem, "UserHomepage") %>
</a></td>
</tr>
<tr bgcolor="#CCFF99">
<td width="19%" height="18" bgcolor="#CCFF99" align="center" class="td1"><font color="#000000">个人简介</font></td>
<td width="81%" height="18" colspan="3">
<%#DataBinder.Eval(Container.DataItem, "UserDesc") %>
</td>
</tr>
<tr bgcolor="#CCFF99">
<td width="19%" height="18" bgcolor="#CCFF99" align="center" class="td1"><font color="#000000">注册时间</font></td>
<td width="81%" height="18" colspan="3">
<%#DataBinder.Eval(Container.DataItem, "UserRegTime") %>
</td>
</tr>
<tr bgcolor="#CCFF99">
<td width="19%" height="18" bgcolor="#CCFF99" align="center" class="td1"><font color="#000000">上次访问</font></td>
<td width="81%" height="18" colspan="3">
<%#DataBinder.Eval(Container.DataItem, "UserLastAccess") %>
</td>
</tr>
<tr bgcolor="#CCFF99">
<td width="19%" height="18" bgcolor="#CCFF99" align="center" class="td1"><font color="#000000">在线状态</font></td>
<td width="81%" height="18" colspan="3">
<%#ChkOnline(Container.DataItem("UserOnline")) %>
</td>
</tr>
<tr bgcolor="#CCFF99">
<td width="19%" height="18" bgcolor="#CCFF99" align="center" class="td1"><font color="#000000">活动状态</font></td>
<td width="81%" height="18" colspan="3">
<%#ChkLocked(Container.DataItem("UserLocked")) %>
</td>
</tr>
<tr bgcolor="#99CC00">
<td width="100%" align="right" colspan="4"><a href="javascript:window.close()"><font color="#FFFFFF">关闭窗口</font></a></td>
</tr>
</table>
</ItemTemplate>
</asp:Repeater>
</body>
</html>
<script language="VB" runat="server">
Sub Page_Load(Sender As Object, e As EventArgs)
Dim MyUser As UserDB=New UserDB()
Dim account As String=Request("name")
If account<>"" Then
MyInfo.DataSource=MyUser.GetUserInfo(account)
MyInfo.DataBind()
Else
MyInfo.Visible=False
End If
End Sub
Function ChkGender(g As String) As String
If g="女" Then
Return("女生")
Else
Return("男生")
End If
End Function
Function ChkBirth(b As Object) As String
Try
Dim bb As DateTime=CDate(b)
Return(bb.ToString("yyyy-M-d",DateTimeFormatInfo.InvariantInfo))
Catch
Return(" ")
End Try
End Function
Function ChkOnline(b As Boolean) As String
If b Then
Return("在线")
Else
Return("离线")
End If
End Function
Function ChkLocked(b As Boolean) As String
If Not b Then
Return("活动")
Else
Return("<font color=red>锁定</font>")
End If
End Function
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -