login.asp

支持多种播放器RealPlayer,MediaPlayer

<%
'乘风电影程序
'制作：乘　风
'QQ：178575
'E-Mail：[e-mail]
'开发网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cffilm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示，包括如何实际整合Helix,Serv-u完全的实现在线播
'放和下载防盗链等
%>

<%
PathLayer=1

If PathLayer=1 Then
 Path_Index=""
ElseIf PathLayer=2 Then
 Path_Index="../"
End If
%>

<!--#Include File="Conn.asp"-->
<!--#Include File="CF_MyFunction.asp"-->
<!--#Include File="CF_Md5.asp"-->
<!--#Include File="CF_GetCookie.asp"-->

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

 
 UserName=GoBack(ChkStr(Trim(Request("UserName")),1),"请输入用户名称")
 Pwd=GoBack(ChkStr(Trim(Request("Pwd")),1),"请输入用户密码")
 Cookies_Time=CLng(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 "CF_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"
%>

<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="CF_Style.asp"-->
<script language=JavaScript>
function changeimg()
{
 document.getElementById("ccimg").src = 'CF_CheckCode.asp?a=' + Math.random();
}

function check()
{
  if(window.document.form1.username.value=="")
  {
     alert("请输入用户名!");
	 window.document.form1.username.focus();
	 return false;
  }
  if(window.document.form1.pwd.value=="")
  {
     alert("请输入密码!");
	 window.document.form1.pwd.focus();
	 return false;
  }
 if(window.document.form1.checkcode.value=="")
  {
     alert("请输入四位数字的验证码!");
	 window.document.form1.checkcode.focus();
	 return false;
  }
  return true;
}

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

<table width="980" border="0" cellspacing="1" cellpadding="0">
        <tr> 
          <td width="51%" valign="top"><TABLE align=center border=0 cellPadding=0 cellSpacing=0 
            width="100%">
              <TR> 
                <TD class=td1>&nbsp;</TD>
                <TD class=td2 width="936"></TD>
                <TD class=td3></TD>
              </TR>
            </TABLE>
            <TABLE align=center bgColor=#cccccc cellPadding=0 cellSpacing=1 
            style="WORD-BREAK: break-all" width="100%">
              <TR bgColor=#ffffff> 
                <TD colSpan=2 vAlign=top>
 
                  <TABLE width=200 align="center" class="tba">
  <form name="form1" method="post" action="?Action=login" onsubmit="return check()">
    <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>
          <a href="javascript:changeimg()" title="看不清楚？换一个！"><IMG id="ccimg" height=14 src="CF_CheckCode.asp" border="0"></a></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="登录">
&nbsp;&nbsp;<a href="Reg.asp">注册</a> </TD>
      </TR>
  </FORM>
</TABLE>      



  
				</TD>
              </TR>
            </TABLE>
            <TABLE align=center border=0 cellPadding=0 cellSpacing=0 
            width="100%">
              <TR> 
                <TD class=td4></TD>
                <TD class=td5 width="964px"></TD>
                <TD class=td6></TD>
              </TR>
            </TABLE></td>
        </tr>
      </table>
	  

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