📄 top.asp

📁 PDA,若你死昂师傅你说的附件是打开附件上课的附件四度空间就大方快速减肥

💻 ASP

字号:

<!--#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>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -