cf_userlogin.asp

1.核心采用.Net、Mssql数据库、存储过程、缓存技术构建

<%
'乘风多用户计数器
'制作：乘　风
'QQ：178575
'E-Mail：[e-mail]
'开发网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cfcount
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示
%>
<script language=JavaScript>
function changeimg()
{
 document.getElementById("ccimg").src = 'CF_CheckCode.asp?a=' + Math.random();
}


function check()
{
  if(window.document.form1.username.value=="")
  {
     alert("请输入用户名!");
	 window.document.form1.username.focus();
	 return false;
  }
  if(window.document.form1.pwd.value=="")
  {
     alert("请输入密码!");
	 window.document.form1.pwd.focus();
	 return false;
  }
 if(window.document.form1.checkcode.value=="")
  {
     alert("请输入四位数字的验证码!");
	 window.document.form1.checkcode.focus();
	 return false;
  }
  return true;
}

</script>

<%
If ChkStr(Request("Action"),1)="login" Then
 UserName=Trim(GoBack(ChkStr(Request("UserName"),1),"请输入用户名称"))
 Pwd=Trim(GoBack(ChkStr(Request("Pwd"),1),"请输入用户密码"))
 Cookies_Time=CLng(ChkStr(Request("Cookies_Time"),2))
 CheckCode=ChkStr(Trim(Request("CheckCode")),1)

 If Session("ValidCode")<>CheckCode Then Call AlertUrl("四位数字的验证码输入错误!","Index.asp")

 Set Rs=Server.CreateObject("Adodb.RecordSet")
 Sql="Select * From CFCount_User Where UserName='"&UserName&"'"
 Rs.Open Sql,Conn,1,1

 If Rs.Eof And Rs.Bof Then Call AlertUrl("没有此注册用户!","Index.asp")

 If Rs("Pwd")<>Md5(Pwd,1) Then Call AlertUrl("密码错误!","Index.asp")

 Set Rs=Server.CreateObject("Adodb.RecordSet")
 Sql="Select * From CFCount_User Where UserName='"&UserName&"'"
 Rs.Open Sql,Conn,3,2
 Rs("LoginTotal")=Rs("LoginTotal")+1
 Rs("LastLoginTime")=Now()
 Rs.Update

 Session("CFCountUser")=UserName

 CFCountUserCookie=Md5(1&UserName&Pwd&GetMySet("SysCode"),1)

 If Cookies_Time>0 Then
  Response.Cookies("CFCountUserCookie")=CFCountUserCookie
  Cookies_Time_2=Dateadd("n",Cookies_Time,Now())
  Response.Cookies("CFCountUserCookie").expires=Cookies_Time_2
 End If

 Cookies_Time=Dateadd("d",365,Now())
 Response.Cookies("CFCountGGCookie")="yes"
 Response.Cookies("CFCountGGCookie").expires=Cookies_Time
 
  
 Sql="Update CFCount_User Set LoginTotal=LoginTotal+1,LastLoginTime=now(),Cookies='"&CFCountUserCookie&"' Where UserName='"&UserName&"'"
 Conn.ExeCute Sql

 Response.Redirect "Manage.asp"
End If%>

<TABLE cellSpacing=0 cellPadding=3 width=100% border=0>
  <form name="form1" method="post" action="Index.asp?Action=login" onsubmit="return check()">
<%
If Session("CFCountUser")="" Then
%>
      <TR bgColor=#f7f7f7> 
        <TD>&nbsp;用户名：</TD>
        <TD><INPUT name=username id=username value="<%=ChkStr(Request("UserName"),1)%>" size=15></TD>
      </TR>
      <TR bgColor=#f7f7f7> 
        <TD>&nbsp;密&nbsp;&nbsp;&nbsp;&nbsp;码：</TD>
        <TD><INPUT id=pwd type=password size=15 name=pwd></TD>
      </TR>
      <TR bgColor=#f7f7f7> 
        <TD>&nbsp;Cookie：</TD>
        <TD><select name="cookies_time" id="cookies_time" style="width:115px;">
            <option value="0" selected>不保留</option>
            <option value="1440">保留一天</option>
            <option value="43200">保留一个月</option>
            <option value="15768000">保留一年</option>

          </select></TD>
      </TR>
      <TR bgColor=#f7f7f7> 
        <TD>&nbsp;验证码：</TD>
        <TD><INPUT id=checkcode type=text size=6 name=checkcode><a href="javascript:changeimg()" title="看不清楚？换一个！"><IMG id="ccimg" height=14 src="CF_CheckCode.asp" border="0"></a></TD>
      </TR>
      <TR bgColor=#f7f7f7> 
        <TD>&nbsp;<a href="GetPass.asp"><font color="#0066FF">密码找回</font></a></TD>
        <TD><INPUT type=image 
            src="images/login.gif" border=0 
            name=imageField> &nbsp;<A href="Reg.asp"><IMG src="images/reg.gif" 
            border=0></A></TD>
      </TR>
      <%Else%>
      <TR bgColor=#f7f7f7> 
        <TD height="25" colspan="2"><div align="center"><strong><a href="Manage.asp"><font color="#FF0000">进入管理</font></a></strong></div></TD>
      </TR>
      <TR bgColor=#f7f7f7> 
        <TD height="25" colspan="2"><div align="center"><strong><a href="Manage.asp?Action=logout"><font color="#FF0000">退出管理</font></a></strong></div></TD>
      </TR>
      <%End if%>
  </FORM>
</TABLE>