<!--#include file="../act_inc/ACT.User.asp"-->
<%
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Dim UserHS
Set UserHS = New ACT_User
%>
<html>
<head>
<title>会员登录</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.textbox
{
BACKGROUND-COLOR: #ffffff;
BORDER-BOTTOM: #666666 1px solid;
BORDER-LEFT: #666666 1px solid;
BORDER-RIGHT: #666666 1px solid;
BORDER-TOP: #666666 1px solid;
COLOR: #666666;
HEIGHT: 18px;
border-color: #666666 #666666 #666666 #666666; font-size: 9pt
}
TD
{
FONT-FAMILY:宋体;FONT-SIZE: 9pt;line-height: 130%;
}
a{text-decoration: none;} /* 链接无下划线,有为underline */
a:link {color: #000000;} /* 未访问的链接 */
a:visited {color: #333333;} /* 已访问的链接 */
a:hover{COLOR: #AE0927;} /* 鼠标在链接上 */
a:active {color: #0000ff;} /* 点击激活链接 */
body {
	background-color: #FFFFFF;
}

-->
</style>
<script language="javascript">
function CheckForm(){
			 var username=document.myform.Username.value;
			 var pass=document.myform.Password.value;
			 if (username=='')
			 {
			  alert('请输入用户名');
			  document.myform.Username.focus();
			  return false;
			 }
			 if (pass=='')
			 {
			  alert('请输入登录密码');
			  document.myform.Password.focus();
			  return false;
			 }
			 document.myform.submit();
			}
</script>
</head>
<body leftmargin=0 topmargin=0>
			<%
		
		   Call Login1()
		
		Sub Login1()
			If CBool(UserHS.UserLoginChecked) = False Then
			%>
			<table align="center" width="98%" border="0" cellspacing="0" cellpadding="0">
			 <form name="myform" action="<%= ACTCMS.ActSys %>User/Checklogin.asp?Action=LoginCheck" method="post" onSubmit="return(CheckForm())">
			  <tr>
				<td height="25">用户名：
				<input name="UserName" type="text" class="textbox" id="UserName" size="15"></td>
			  </tr>
			  <tr>
				<td height="25">密　码：
				<input name="PassWord" type="PassWord" class="textbox" id="Password" size="16"></td>
			  </tr>
			  <% if ACTCMS.ActCMS_Sys(15) = 0 Then%>
			  <tr>
				<td height="25">验证码：
				<input name="Code" type="text" class="textbox" id="Code" size="6">
				<img src="../act_inc/code.asp?s='+Math.random();" alt="验证码" title="看不清楚? 换一张！" style="cursor:hand;" onClick="src='../act_inc/code.asp?s='+Math.random()"/> 
				</td>
			  </tr>
			  	<%end if %>
			  <tr>
				<td height="25"><div align="center"><img src="<%= ACTCMS.ActCMSDM %>user/images/losspass.gif" align="absmiddle"> <a href="<%= ACTCMS.ActCMSDM %>user/GetPass.asp" target="_parent">忘记密码</a> <img src="<%= ACTCMS.ActCMSDM %>user/images/mas.gif" align="absmiddle"> <a href="<%= ACTCMS.ActCMSDM %>User/Reg.asp" target="_parent">新会员注册</a>    </div></td>
			  </tr>
			  <tr>
				<td height="25"><div align="center">
				  <input type="submit" name="Submit" class="inputButton" value="登录">
				  <input name="CookieDate" type="checkbox" id="CookieDate" value="checkbox"><label for="CookieDate">永久登录</label></div></td>
			  </tr>
			  </form>
            </table><%
			Else
			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 MyMailTotal="<font color=red>" & MyMailTotal & "</font>"
			 dim  ChargeTypeStr
			 if UserHS.ChargeType=1 Then
			   ChargeTypeStr="扣点"
			 elseif UserHS.ChargeType=2 Then
			   ChargeTypeStr="有效期"
			 else
			   ChargeTypeStr="无限期"
			 End If
			%>
			<table align="center" width="80%" border="0" cellspacing="0" cellpadding="0">
			<tr><td align="center"><font color=red><%=UserHS.UserName%></font>,
           <%
			If (Hour(Now) < 6) Then
            Response.Write "<font color=##0066FF>凌晨好!</font>"
			ElseIf (Hour(Now) < 9) Then
				Response.Write "<font color=##000099>早上好!</font>"
			ElseIf (Hour(Now) < 12) Then
				Response.Write "<font color=##FF6699>上午好!</font>"
			ElseIf (Hour(Now) < 14) Then
				Response.Write "<font color=##FF6600>中午好!</font>"
			ElseIf (Hour(Now) < 17) Then
				Response.Write "<font color=##FF00FF>下午好!</font>"
			ElseIf (Hour(Now) < 18) Then
				Response.Write "<font color=##0033FF>傍晚好!</font>"
			Else
				Response.Write "<font color=##ff0000>晚上好!</font>"
			End If
			%>&nbsp;&nbsp;&nbsp;</td></tr>
			<tr><td>计费方式： <strong><%= ChargeTypeStr%></strong> </td></tr>
			<tr><td>经验积分： <strong><%=UserHS.Score%></strong> 分</td></tr>
			<%if UserHS.ChargeType=1 or UserHS.ChargeType=2 then%>
			<% if UserHS.ChargeType=1 then%>
			<tr><td>可用点券： <strong><%=UserHS.Point%></strong> 点</td></tr>
			<%else%>
			<tr><td>剩余天数： <strong><%=UserHS.Edays%></strong></td></tr>
			<%end if%>
			<%end if%>
			<tr><td>待阅短信： <strong><%=MyMailTotal%></strong> 条</td></tr>
			<tr><td>登录次数： <strong><%=UserHS.LoginNumber%></strong> 次</td></tr>
            <tr><td nowrap="nowrap">【<a href="<%=ACTCMS.ActCMSDM%>User/index.asp" target="_blank">会员中心</a>】【<a href="<%=ACTCMS.ActCMSDM%>User/Checklogin.asp?Action=LoginOut">退出登录</a>】</td></tr>
			</table>
<%End IF
		End sub
			%>
</body>
</html>