qqcf_phploginok.asp

功 能： 1.系统分别为每个网站注册会员分配了一个推广链接

<%
'==================================
' 乘风网站推广系统v3.83 Access版
' 制　作：乘　风
' 开发网站：乘风原创程序
' 网站网址: http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 使用帮助：http://www.qqcf.com/?action=help&help=cfwztg
' 声 明:	
' 本软件系免费程序,提供给个人免费使用。
' Access免费版缺少防止用户作弊的功能,如需要此功能请购买正式版本。
' 作者为付费版用户提供全面升级服务和技术支持,免费版用户提供有限的升级服务和技术支持。
' 免费版用户在程序首页保留乘风原创程序版权和链接。
' 未经作者许可禁止用于任何商业用途。
' 乘风其它作品：乘风多用户计数器Access版、MsSql版、Php版、.Net版，乘风电影程序、
'　　　　　　　 乘风网站推广系统Mssql版、乘风网址程序，乘风广告管理系统、乘风论坛等。
' 此段版权注释不会影响网页打开速度，请勿删除!
'                       2006年9月14日									
'===================================
%>
<!--#Include File="QQCF_Conn.asp"-->
<!--#Include File="QQCF_ChkStr.asp"-->
<!--#Include File="QQCF_MyFunCtion.asp"-->
<!--#Include File="QQCF_Md5.asp"-->
<%
 User_Name=GoBack(Trim(Request("User_Name")),"请输入用户名称")
 Password=GoBack(Trim(Request("Password")),"请输入用户密码")
 Cookies_Time=Int(Request("Cookies_Time"))
 CheckCode=Trim(Request("CheckCode"))
 
 If CheckCode<>md5(User_Name&Password&Syscode,2) Then Call AlertUrl("登陆错误","index.asp")
 
  Randomize
  RanNum=Int(90000000*Rnd)[phone]
  CfWztgUserCookie="User"&User_Name&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&RanNum
  If Cookies_Time>0 Then
   Response.Cookies("CfWztgUserCookie")=CfWztgUserCookie
   Response.Cookies("CfWztgUserCheckCookie")=Md5(CfWztgUserCookie&SysCode,1)
   Cookies_Time=Dateadd("n",Cookies_Time,Now())
   Response.Cookies("CfWztgUserCookie").expires=Cookies_Time
   Response.Cookies("CfWztgUserCheckCookie").expires=Cookies_Time
  End If
  
  Sql="Update WWW_QQCF_COM_CfWztg_RegUser Set Logintotal=Logintotal+1,LastLoginTime='"&Now()&"',LastLoginIp='"&Ip&"',Cookies='"&CfWztgUserCooKie&"' Where User_Name='"&User_Name&"'"
  Conn.ExeCute Sql

  Session("CfWztgUser")=User_Name
  
  Response.Redirect "Manage.asp"
%>