📄 userlogin.asp

📁 Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件
💻 ASP
字号:
<!--#include file="User_conn.asp"-->
<%
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Dim UserHS
Set UserHS = New Art_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 form=document.myform;
   if (form.UserName.value=='')
    { alert("请输入用户名!");   
	  form.UserName.focus();    
	   return false;
    }
    if (form.PassWord.value=='')  
	  { alert("请输入密码!");   
	    form.PassWord.focus();   
		  return false;   
		 }  
	    form.Submit.value="登　录";
		form.Submit.disabled=true;	
	    form.submit();
        return true;
}
//-->
</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="<%=path%>User/Checklogin.asp?Action=LoginCheck" method="post" >
			  <tr>
				<td height="25">用户名：
				<input name="UserName" type="text" class="textbox" id="UserName" size="17"></td>
			  </tr>
			  <tr>
				<td height="25">密　码：
				<input name="PassWord" type="PassWord" class="textbox" id="Password" size="17"></td>
			  </tr>
			  <% if UserSetting(3) = 0 Then%>
			  <tr>
				<td height="25">验证码：
                   <input name="artYzm" size="5" maxlength="5" class="textbox">               <img align="absmiddle" src="../Include/vCode.asp?" onClick="this.src+=Math.random()" alt="图片看不清？点击重新得到验证码" style="cursor:hand;"></td>
			  </tr>
			  	<%end if %>
			  <tr>
				<td height="25"><div align="center"><img src="<%=path%>user/images/losspass.gif" align="absmiddle"> <a href="<%=path%>user/GetPass.asp" target="_parent">忘记密码</a> <img src="<%=path%>user/images/mas.gif" align="absmiddle"> <a href="<%=path%>User/Reg.asp" target="_parent">新会员注册</a>    </div></td>
			  </tr>
			  <tr>
				<td height="25"><div align="center">
				  <input type="submit" name="Submit" class="inputButton"  onclick="return CheckForm()" 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 Art_Message 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><%= UserHS.G_Name%></strong> </td></tr>
			<tr><td>经验积分： <strong><%=UserHS.Score%></strong> 点</td></tr>
			
			<tr><td>可用资金： <strong><%=UserHS.Money%></strong> 元</td></tr>
			
			<tr><td>待阅短信： <strong><%=MyMailTotal%></strong> 条</td></tr>
			<tr><td>登录次数： <strong><%=UserHS.LoginNumber%></strong> 次</td></tr>
            <tr><td nowrap="nowrap">【<a href="<%=path%>User/index.asp" target="_blank">会员中心</a>】【<a href="<%=path%>User/Checklogin.asp?Action=LoginOut">退出登录</a>】</td></tr>
			</table>
<%End IF
		End sub
			
		
			
			
			%>
</body>
</html>
<% Set UserHS = Nothing:call CloseConn() %>
⌨️ 快捷键说明

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