www.gusucode.com > 乘风网站推广系统 3.99 (acc)码程序 > CF_RecLogin.asp

    <%
'乘风网站推广系统 Access版
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cfwztg
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站查看
%>
<!--#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

 Ip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
 If Ip= "" Then Ip= Request.ServerVariables("REMOTE_ADDR")


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


  CFWztgUserCookie=Md5(1&UserName&Pwd&GetMySet("SysCode"),1)
  If Cookies_Time>0 Then
   Response.Cookies("CFWztgUserCookie")=CFWztgUserCookie
   Cookies_Time=Dateadd("n",Cookies_Time,Now())
   Response.Cookies("CFWztgUserCookie").expires=Cookies_Time
  End If
  
  Sql="Update CFWztg_User Set Logintotal=Logintotal+1,LastLoginTime=Now(),LastLoginIp='"&Ip&"',UserCode='"&CFWztgUserCooKie&"' Where UserName='"&UserName&"'"
  Conn.ExeCute Sql

  Session("CFWztgUser")=UserName
  
  Response.Redirect "Manage.asp"
  Response.End
%>