qqcf_userreg.asp

免费电影程序:系统做免费

<%
' 乘风电影V3.3 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.支持防盗链，用户无法获取实际链接，可随时更改所有内部影片的链接地址
' 4.在后台可以自由管理网站上的广告
' 5.支持网站上的注册用户在线支付购买电影点数，也可升级包月等方式
' 6.可以完全整合原有网站上的注册用户使用，无需在电影系统重新注册直接登陆即可
%>

<%
If Request("Action")="checkuser" Then
 User_Name=ChkStr(Request("User_Name"),1)
 If User_Name="" Then
  Response.Write "<script language='javascript'>" & VbCRlf
  Response.Write "alert('请输入要检测的用户名');" & VbCrlf
  Response.Write "window.close();" & vbCrlf
  Response.Write "</script>" & VbCRLF
  Response.End
 End if

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

 Response.Write "<script language='javascript'>" & VbCRlf
 Response.Write "alert('"&ShowText&"');" & VbCrlf
 Response.Write "window.close();" & vbCrlf
 Response.Write "</script>" & VbCRLF
 Response.End
End if
%>

<%

If Request("Action")="userregsave" Then
 User_Name=Goback(Trim(Server.HtmlEncode(Request("User_Name"))),"请输入注册用户名")
 IF checkinput_letter(User_Name)=0 Then Call AlertBack("用户名只能为大小写字母，下划线",1)
 
 Pwd=Goback(Trim(Request("Pwd")),"请输入密码!")
 IF checkinput_letter_2(Pwd)=0 Then Call AlertBack("密码只能为大小写字母，下划线等英文字符",1)
 
 Pwd2=Goback(Trim(Request("Pwd2")),"请输入重复密码!")
 PasswordAsk=Trim(Request("PasswordAsk"))
 PasswordAnswer=Trim(Request("PasswordAnswer"))
 Email=Goback(Trim(Request("Email")),"请输入E-mail!")
 QQ=Trim(Request("QQ"))
  
 If Password<>Password2 Then Call AlertBack("填入的密码不一致，请重新输入一遍!",1)


 If QQ="" Then QQ="-"

 CheckCode=Trim(Request("CheckCode"))

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

  Set Rs= Server.CreateObject("ADODB.Recordset")
  Sql="Select Count(*) From CFFilm_Reguser Where User_Name='"&User_Name&"'"
  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_Reguser(User_Name,Pwd,Email,QQ,State)"
 Sql=Sql& " Values('"&User_Name&"','"&Md5(Pwd,1)&"','"&Email&"','"&QQ&"',"&State&")"
 Conn.Execute(Sql)
 
 Response.Cookies("CFFilmUserCookie")="" '如果以前存在Cookies则删除
 Response.Cookies("CFFilmUserCookie").Expires=Dateadd("n",-60,Now())
 Session("CFFilmUser")=User_Name

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