<%
' 乘風電影 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.可以完全整合原有網站上的注冊用戶使用，無需在電影系統重新注冊直接登陸即可
%>

<%
If Request("Action")="checkuser" Then
 UserName=ChkStr(Request("UserName"),1)
 If UserName="" 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_User Where UserName='"&UserName&"'"
 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
 UserName=Goback(Trim(Server.HtmlEncode(Request("UserName"))),"請輸入注冊用戶名")
 IF checkinput_letter(UserName)=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 Pwd<>Pwd2 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_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&","&DateDiff("s","2001-1-1",Now())&")"
 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
%>