login.asp

软件下载平台 软件下载平台

<%
' 乘风电影V3.5 Mssql版
' 制　作：乘　风
' 开发网站：乘风原创程序
' 网站网址：http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 程序安装演示:http://www.qqcf.com/?Action=setup&Setup=cffilmforsql
' 使用帮助：http://www.qqcf.com/?Action=help&Help=cffilmforsql

' 功　能：
' 1.系统做免费或收费的电影网站都可以，支持免费，点数，包月等方式观看和下载电影
' 2.支持全站生成htm静态页面，生成速度极快，全自动生成
' 3.支持防盗链，可完全整合Helix和Servu服务器，完善的防盗链机制
' 4.在后台可以自由管理网站上的广告
' 5.支持网站上的注册用户在线支付购买电影点数，也可升级包月等方式
' 6.可以完全整合原有网站上的注册用户使用，无需在电影系统重新注册直接登陆即可
%>

<!--#Include File="Conn.asp"-->
<!--#Include File="QQCF_MyFunction.asp"-->
<!--#Include File="QQCF_Md5.asp"-->
<!--#Include File="QQCF_GetCookie.asp"-->

<%
If Request("Action")="login" Then

 
 UserName=GoBack(ChkStr(Trim(Request("UserName")),1),"请输入用户名称")
 Pwd=GoBack(ChkStr(Trim(Request("Pwd")),1),"请输入用户密码")
 Cookies_Time=CInt(ChkStr(Request("Cookies_Time"),2))
 CheckCode=Trim(Request("CheckCode"))

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

  If RsSet("RegType")=1 Then
   Set Rs = Server.CreateObject("ADODB.Recordset")
   Sql="Select * From CFFilm_User where UserName='"&UserName&"'"
   Rs.Open Sql,Conn,1,1
   If Rs.eof And Rs.bof Then Call AlertUrl("没有此用户!","Login.asp")

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

  ElseIf RsSet("RegType")=2 Then
   Connstr_Rec="DBQ="+server.mappath(RsSet("AccessPath"))+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
   Set conn_Rec= Server.CreateObject ("ADODB.Connection")
   Conn_Rec.Open Connstr_Rec
   If Err Then
    Err.Clear
    Set Conn = Nothing
    'Response.Write "数据库连接出错，请检查连接字串。"
    'Response.End
   End If
   If RsSet("PassWordType")=1 then
    Sql="Select Count(*) From "&RsSet("SaveRegTable")&" where "&RsSet("SaveRegUserName")&"='"&UserName&"' And "&RsSet("SaveRegPassword")&"='"&Pwd&"'"
   ElseIf  RsSet("PassWordType")=2 then
    Sql="Select Count(*) From "&RsSet("SaveRegTable")&" where "&RsSet("SaveRegUserName")&"='"&UserName&"' And "&RsSet("SaveRegPassword")&"='"&Md5(Pwd,1)&"'"
   ElseIf  RsSet("PassWordType")=3 then
    Sql="Select Count(*) From "&RsSet("SaveRegTable")&" where "&RsSet("SaveRegUserName")&"='"&UserName&"' And "&RsSet("SaveRegPassword")&"='"&Md5(Pwd,2)&"'"
   End If
   Set Rs=Conn_Rec.ExeCute(Sql)   
   If Rs(0)=0 Then Call AlertUrl("用户名或密码输入有误","Login.asp")
   InsertUser=1
  ElseIf RsSet("RegType")=3 Then
   Connstr_rec="DRIVER={SQL Server};SERVER="&RsSet("SqlServerIP")&";UID="&RsSet("SqlServerLinkName")&";PWD="&RsSet("SqlServerLinkPassword")&";DATABASE="&RsSet("SqlServerDbName")&""
   Set Conn_Rec= Server.CreateObject ("ADODB.Connection")
   Conn_Rec.Open Connstr_rec
   If Err Then
    Err.Clear
    Set Conn = Nothing
    'Response.Write "数据库连接出错，请检查连接字串。"
    'Response.End
   End If
   If RsSet("PassWordType")=1 then
    Sql="Select Count(*) From "&RsSet("SaveRegTable")&" where "&RsSet("SaveRegUserName")&"='"&UserName&"' And "&RsSet("SaveRegPassword")&"='"&Pwd&"'"
   ElseIf  RsSet("PassWordType")=2 then
    Sql="Select Count(*) From "&RsSet("SaveRegTable")&" where "&RsSet("SaveRegUserName")&"='"&UserName&"' And "&RsSet("SaveRegPassword")&"='"&Md5(Pwd,1)&"'"
   ElseIf  RsSet("PassWordType")=3 then
    Sql="Select Count(*) From "&RsSet("SaveRegTable")&" where "&RsSet("SaveRegUserName")&"='"&UserName&"' And "&RsSet("SaveRegPassword")&"='"&Md5(Pwd,2)&"'"
   End If
   Set Rs=Conn_Rec.ExeCute(Sql)   
   If Rs(0)=0 Then Call AlertUrl("用户名或密码输入有误","Login.asp")
   InsertUser=1
  ElseIf RsSet("RegType")=4 Then
   InsertUser=1
  End If

  If InsertUser=1 Then
    Set Rs= Server.CreateObject("ADODB.Recordset")
    Sql="Select Count(ID) From CFFilm_User Where UserName='"&UserName&"'"
    Rs.Open Sql,Conn,3,2
	IF Rs(0)=0 Then
      Sql="Insert Into CFFilm_User (UserName) Values ('"&UserName&"')"	
	End If
	Conn.Execute Sql'不存在此用户名插入这个用户的记录
  End if

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

  CFFilmUserCookie=Md5(1&UserName&Pwd&GetMySet("SysCode"),1)
  
  If Cookies_Time>0 Then
   Response.Cookies("CFFilmUserCookie")=CFFilmUserCookie
   Cookies_Time_2=Dateadd("n",Cookies_Time,Now())
   Response.Cookies("CFFilmUserCookie").expires=Cookies_Time_2
  End If

  If RsSet("RegType")=4 Then'为Myssql接口时
   Response.Redirect "qqcf_phplogin.php?UserName="&UserName&"&pwd="&Pwd&"&cookies_time="&Cookies_Time
   Response.End
  Else
   Session("CFFilmUser")=UserName

   Sql="Update CFFilm_User Set Cookies='"&CFFilmUserCookie&"' Where UserName='"&UserName&"'"
   Conn.ExeCute Sql

   Response.Redirect "Manage.asp"
  End If

End If

If Session("CFFilmUser")<>"" Then Response.Redirect "Manage.asp"
%>

<%
PathLayer=1

If PathLayer=1 Then
 Path_Index=""
ElseIf PathLayer=2 Then
 Path_Index="../"
End If
%>
<html>
<head>
<title><%=Rsset("Title")%></title>
<meta name="description" content="<%=Rsset("Title")%>">
<meta name="keywords" content="<%=Rsset("Title")%>">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="QQCF_Style.asp"-->

</head>
<body>
<!--#Include File="Top.asp"-->

<TABLE width=200 align="center" class="tba">
  <form name="form1" method="post" action="?Action=login">
    <TBODY>
      <tr class="tba_tr_1"> 
        <TD height=20 colSpan=2><div align="center"><strong>用户登录</strong></div></TD>
      </TR>
      <TR bgColor=#f7f7f7> 
        <TD>&nbsp;用户名：</TD>
        <TD><INPUT name=UserName id=UserName value="" size=16></TD>
      </TR>
      <TR bgColor=#f7f7f7> 
        <TD>&nbsp;密&nbsp;&nbsp;码：</TD>
        <TD><INPUT id=pwd type=password size=16 
            name=pwd></TD>
      </TR>
      <TR bgColor=#f7f7f7> 
        <TD>&nbsp;Cookie：</TD>
        <TD><select name="cookies_time" id="cookies_time">
            <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=4 name=checkcode>
          <IMG height=14 src="QQCF_CheckCode.asp"></TD>
      </TR>
      <TR bgColor=#f7f7f7> 
        <TD>&nbsp;<a href="GetPass.asp"><font color="#0066FF">密码找回</font></a></TD>
        <TD> &nbsp;
          <input type="submit" name="Submit" value="登录">
        </TD>
      </TR>
  </FORM>
</TABLE>

<!--#include file="Bottom.asp"-->
</div>
</body>
</html>