<%
'乘风多用户计数器 Sql版
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/cfcount.htm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示
%>
<!--#Include File="Conn.asp"-->
<!--#Include File="CF_MyFunCtion.asp"-->
<!--#Include File="CF_Md5.asp"-->
<%
 Ly=ChkStr(Request.ServerVariables("HTTP_REFERER"),1)
 
 Lo_DRoot=HttpPath(2)
 If Instr(Ly,Lo_DRoot)=0 Then
  Response.write "来源有错误"
  Response.End
 End If
 
 UserName=ChkStr(Trim(Request.Form("UserName")),1)
 Pwd=ChkStr(Trim(Request.Form("Pwd")),1)
 Cookies_Time=CLng(Request.Form("Cookies_Time"))
 
 CheckCode=ChkStr(Request.Form("CheckCode"),1)

 
 If UserName="" Or Pwd="" Then
  Response.write "参数错误"
  Response.End
 End If

If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" Then
 Ip = ChkStr(Request.ServerVariables("REMOTE_ADDR"),1)
Else
 Ip = ChkStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),1)
End If


 CheckCode_2=FSOFileRead("cf_temp.asp")
 CheckCode_2=Mid(CheckCode_2,4,Len(CheckCode_2)-5)'取出标记中间字符
  Response.write CheckCode_2
 If CheckCode_2<>CheckCode Then
  Response.write "验证码有误"
  Response.End
 End If


  CFCountUserCookie=Md5(1&UserName&Pwd&SysCode,1)
  
  If Cookies_Time>0 Then
   Response.Cookies("CFFilmUserCookie")=CFCountUserCookie
   Response.Cookies("CFFilmUserCookie").expires=Dateadd("n",Cookies_Time,Now())
  End If
  
  Sql="Update CFCount_User Set LoginTotal=LoginTotal+1,LastLoginTime=getdate(),UserCode='"&CFCountUserCookie&"' Where UserName='"&UserName&"'"
  Conn.ExeCute Sql

  Session("CFCountUser")=UserName
  
  Response.Redirect "User_Manage.asp"
  Response.End
%>