<!--#include file="../act_inc/ACT.User.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>用户管理中心</title>
<link href="Images/css/top_css.css" rel="stylesheet" type="text/css">
</head>
<body>
<% Dim  UserHS
 Set UserHS = New ACT_User
		IF Cbool(UserHS.UserLoginChecked)=false then
		  Response.Write "<script>top.location.href ='login.asp' ;</script>"
		  Response.end
		End If
		%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg.jpg" class="table">
  <tr>
    <td width="308" height="40" rowspan="2" class="bg_tr"><img src="images/log.gif" width="308" height="56"></td>
    <td height="31" colspan="2" align="right" class="bg_tr">&nbsp;</td>
    <td width="100" align="right" valign="bottom" class="bg_tr">&nbsp;</td>
  </tr>
  <tr>
    <td align="right" class="bg_tr">
<% 			Dim MyMailTotal:MyMailTotal=Conn.Execute("Select Count(ID) From Message_Act Where Incept='" &UserHS.UserName &"' And Flag=0 and IsSend=1 and delR=0")(0)

		If MyMailTotal>0 Then 
		Response.Write "<bgsound src=""" & Actcms.ActCMSDM & "User/images/mail.wmv"" border=0>"
		Response.write "<a target='main' href='Message_User.asp?action=inbox'>收信箱(<font color='#ff0000'>" & MyMailTotal&"</font>)</a>"
		else
		Response.write "<a target='main' href='Message_User.asp?action=inbox'>收信箱(" & MyMailTotal&")</a>"
		end if

 %>	</td>
    <td align="right" class="bg_tr">&nbsp;<font color=blue><%=UserHS.UserName%></font>,欢迎您！
账户资金&nbsp;<font color="green"><%=UserHS.Money%></font>&nbsp;元,积分&nbsp;<font color="green"><%=UserHS.Score%></font>&nbsp;分。</td>
    <td width="50" align="center" class="bg_tr"><a href="Checklogin.asp?Action=LoginOut" target="main">安全退出</a></td>
  </tr>
</table>
</body>
</html>
