📄 userlogin.asp

📁 PDA,若你死昂师傅你说的附件是打开附件上课的附件四度空间就大方快速减肥
💻 ASP
字号:
<!--#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>
⌨️ 快捷键说明

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