📄 qqcf_reclogin.asp

📁 二、功　能： 1.系统做免费
💻 ASP
字号:
<%
' 乘风电影 Access版
' 制　作：乘　风
' 开发网站：乘风原创程序
' 网站网址：http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down

' 功　能：
' 1.系统做免费或收费的电影网站都可以，支持免费，点数，包月等方式观看和下载电影
' 2.支持全站生成htm静态页面，生成速度极快，全自动生成
' 3.支持防盗链，可完全整合Helix和Servu服务器，完善的防盗链机制
' 4.在后台可以自由管理网站上的广告
' 5.支持网站上的注册用户在线支付购买电影点数，也可升级包月等方式
' 6.可以完全整合原有网站上的注册用户使用，无需在电影系统重新注册直接登陆即可
%>
<!--#Include File="Conn.asp"-->
<!--#Include File="QQCF_MyFunCtion.asp"-->
<!--#Include File="QQCF_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=Int(ChkStr(Request.Form("Cookies_Time"),2)
 
 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("qqcf_temp.asp")
 CheckCode_2=Mid(CheckCode_2,4,Len(CheckCode_2)-5)'取出标记中间字符
 
 If CheckCode_2<>CheckCode Then
  Response.write "验证码有误"
  Response.End
 End If


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

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

php_rec_login_code

<?
@include("qqcf_phpuserrec.php");
?>
<?
function alerturl($alertstr,$url)
{
  echo "<script>";
  echo "alert('".$alertstr."');";
  echo "location.href='".$url."';";
  echo "</script>";
  exit;
}

function chkstr($inputstr) //过滤非法字符
{
 $inputstr=str_replace("'"," ",$inputstr);
 return $inputstr;
}

$UserName=chkstr($_GET["UserName"]);
$pwd=chkstr($_GET["pwd"]);
$cookies_time=chkstr($_GET["cookies_time"]);

$pwd_2=chkstr($_GET["pwd"]);

if($passwordtype==2) $pwd_2=substr(md5($pwd_2),8,16);
if($passwordtype==3) $pwd_2=md5($pwd_2);

 $sql="select * from $saveregtable where $saveregusername='$UserName'";
 $result=mysql_query($sql);
 $rs=mysql_fetch_array($result);
 
 if ($rs[$saveregusername]=="") alerturl("没有此用户","index.asp");
 if ($rs[$saveregpassword]<>$pwd_2) alerturl("密码错误","index.asp");
 
 $checkcode=md5($UserName.$pwd);
 
 $fp=@fopen("QQCF_Temp.asp","w") or die("写方式打开文件 $filename 失败");//把正确的验证码写入临时文件中
 @fputs($fp,"<%'".$checkcode."%>") or die("文件写入失败"); 
 @fclose($fp); 
?>

<body onLoad="form1.submit();">
<form method="post" name="form1" action="QQCF_RecLogin.asp">
 <input type="hidden" name="UserName" value="<?echo $UserName?>">
 <input type="hidden" name="pwd" value="<?echo $pwd?>">
 <input type="hidden" name="cookies_time" value="<?echo $cookies_time?>">
 <input type="hidden" name="checkcode" value="<?echo $checkcode?>">
		
 <input type="hidden" name="loginsubmit" value="会员登录">
</form>
<body>
⌨️ 快捷键说明

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