?? qqcf_userreg.asp
字號:
<%
' 乘風電影 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
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -