📄 top.asp

📁 Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件
💻 ASP
字号:
<!--#include file="User_conn.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>用户管理中心</title>

<style type="text/css">
TD { FONT-SIZE: 9pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体; }
a{text-decoration: none;} /* 链接无下划线,有为underline */ 
a:link {color: #1E5494;} /* 未访问的链接 */
a:visited {color: #1E5494;} /* 已访问的链接 */
a:hover{color: #1E5494;} /* 鼠标在链接上 */ 
a:active {color: #1E5494;} /* 点击激活链接 */
#topmenu { color: #fff; font-size: 12px; background-image: url(images/m12_bg_03.gif); width:100%; height:29px  ;padding-top:3px;}
#topmenu ul {padding:0px 0px 0px 10px;	list-style:none;
}
#topmenu li { display:inline;
 }
#topmenu a {
			  float:left;
			  background:url(images/m_onleft.gif) no-repeat left top;
			  padding:0px 0px 0px 5px;
			  text-decoration: none;
			  }
#topmenu a span {
			  float:left;
			  display:block;
			  background:url(images/m_onright.gif) no-repeat right top;
			  padding:5px 10px 5px 4px;
			  color:#fff;
			  }
#topmenu a:hover {
			  background-position:0% -26px;
			  }
#topmenu a:hover span {
			  float:none;color:#FFF;
			  background-position:100% -26px;
			  }

</style>
</head>
<body>
<% 
Dim  UserHS
 Set UserHS = New Art_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" >
  <tr>
    <td width="308" height="40" rowspan="2" ><img src="images/log.gif" width="308" height="56"></td>
    <td height="31" colspan="2" align="right" >&nbsp;</td>
    <td width="25" align="right" valign="bottom" >&nbsp;</td>
  </tr>
  <tr>
    <td width="15" align="right">	</td>
    <td width="642" align="right" >&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="25" align="center" ></td>
  </tr>
</table>		
<div id="topmenu">
			<ul>
				<li><a href="../" target="_blank"><span><img src="images/myhome_06.gif" align="absBottom" border="0">网站首页</span></a></li>
				<li><a href="UserList.asp" target="main"><span><img src="images/user_face.gif" align="absBottom" border="0">所有会员</span></a></li>
				<%Dim MyMailTotal:MyMailTotal=Conn.Execute("Select Count(ID) From Art_Message Where Incept='" &UserHS.UserName &"' And Flag=0 and IsSend=1 and delR=0")(0)

		If MyMailTotal>0 Then 
		Response.Write "<bgsound src=""" & path & "User/images/mail.wmv"" border=0>"
		Response.write "<li><a target='main' href='Message_User.asp?action=inbox'><span id=NewMessage><img src='images/issend_1.gif' align='absBottom' border=0>收信箱(<font color='#ff0000'>" & MyMailTotal&"</font>)</span></a></li>"
		else
		Response.write "<li><a target='main' href='Message_User.asp?action=inbox'><span id=NewMessage><img src='images/issend_1.gif' align='absBottom' border=0>收信箱(" & MyMailTotal&")</span></a></li>"
		end if

 %></span></a></li>
 		<li><a href="Checklogin.asp?Action=LoginOut" target="main"><span><img src="images/m_list_47.gif" align="absBottom" border="0">安全退出</span></a></li>
			</ul>
		</div>
</body>
</html>
<% Set UserHS = Nothing:call CloseConn() %>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -