cf_reg_pre.asp

支持多种播放器RealPlayer,MediaPlayer

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

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

 Response.Charset= "gb2312"

 UserName=ChkStr(Request("UserName"),1)
 If UserName="" Then
  Response.Write "请输入要检测的用户名"
  Response.End
 End if

 Set Rs= Server.CreateObject("ADODB.Recordset")
 Sql="Select Count(*) From CFFilm_User Where UserName='"&UserName&"'"
 Rs.Open Sql,Conn,1,1
 If Rs(0)=0 Then
  Response.Write "恭喜，此用户还没有被注册!"
 Else
  Response.Write "对不起，此用户名已经被别人注册了!"
 End if  

 Response.End
End if
%>

<%

If Request("Action")="userregsave" Then
 UserName=Goback(ChkStr(Request("UserName"),1),"请输入注册用户名")
 IF checkinput_letter(UserName)=0 Then Call AlertBack("用户名只能为大小写字母，下划线",1)
 
 Pwd=Goback(ChkStr(Request("Pwd"),1),"请输入密码!") 
 Pwd2=Goback(ChkStr(Request("Pwd2"),1),"请输入重复密码!")

 Email=Goback(ChkStr(Request("Email"),1),"请输入E-mail!")
 QQ=ChkStr(Request("QQ"),1)
  
 If Pwd<>Pwd2 Then Call AlertBack("填入的密码不一致，请重新输入一遍!",1)

 If QQ="" Then QQ="-"

 CheckCode=Trim(Request("CheckCode"))

 If Session("ValidCode")<>CheckCode Then Call AlertUrl("四位数字的验证码输入错误!","Reg.asp")
 
 If RsSet("RegState")=0 Then Call AlertUrl("系统暂时禁止用户注册!","Reg.asp")

  Set Rs= Server.CreateObject("ADODB.Recordset")
  Sql="Select Count(*) From CFFilm_User Where UserName='"&UserName&"'"
  Rs.Open Sql,Conn,1,1
  If Rs(0)>0 Then Call AlertBack("这个用户名已经注册过,请换名",1)

 If RsSet("RegAdminCheck")=0 Then'不需要验证时
  State=-1
 Else
  State=0
 End If

 Sql="Insert Into CFFilm_User(UserName,Pwd,Email,QQ,State,Cookies)"
 Sql=Sql& " Values('"&UserName&"','"&Md5(Pwd,1)&"','"&Email&"','"&QQ&"',"&State&",'"&Md5(1&UserName&Pwd&GetMySet("SysCode"),1)&"')"
 Conn.Execute(Sql)
 
 Response.Cookies("CFFilmUserCookie")="" '如果以前存在Cookies则删除
 Response.Cookies("CFFilmUserCookie").Expires=Dateadd("n",-60,Now())
 Session("CFFilmUser")=UserName

  
  If RsSet("RegAdminCheck")=-1 Then
   Call AlertUrl("注册成功，但用户名需要验证后开通，请等待管理员开通，想快点开通可以联系管理员!",HttpPath(2))
  Else
   Call AlertUrl("注册成功，转入用户后台!","Manage.asp")
  End If
 
End If
%>