qqcf_manage_do.asp

功 能： 1.系统分别为每个网站注册会员分配了一个推广链接

<%
'==================================
' 乘风网站推广系统v3.83 Access版
' 制　作：乘　风
' 开发网站：乘风原创程序
' 网站网址: http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 使用帮助：http://www.qqcf.com/?action=help&help=cfwztg
' 声 明:	
' 本软件系免费程序,提供给个人免费使用。
' Access免费版缺少防止用户作弊的功能,如需要此功能请购买正式版本。
' 作者为付费版用户提供全面升级服务和技术支持,免费版用户提供有限的升级服务和技术支持。
' 免费版用户在程序首页保留乘风原创程序版权和链接。
' 未经作者许可禁止用于任何商业用途。
' 乘风其它作品：乘风多用户计数器Access版、MsSql版、Php版、.Net版，乘风电影程序、
'　　　　　　　 乘风网站推广系统Mssql版、乘风网址程序，乘风广告管理系统、乘风论坛等。
' 此段版权注释不会影响网页打开速度，请勿删除!
'                       2006年9月14日									
'===================================
%>
<%
If Action="usersiteaddsave" Then
 SiteUrl=GoBack(Server.HtmlEncode(Request("SiteUrl")),"请输入网址!")

 Set Rs = Server.CreateObject("ADODB.Recordset")
 Sql="Select Count(*) From WWW_QQCF_COM_CfWztg_UserSite Where SiteUrl='"&SiteUrl&"'"
 Rs.Open Sql,Conn,3,2
 If Rs(0)>0 Then Call AlertBack("此网址已经存在，请不要重复加入！",1)
 
 Set Rs = Server.CreateObject("ADODB.Recordset")
 Sql="Select Top 1 * From WWW_QQCF_COM_CfWztg_UserSite"
 Rs.Open Sql,Conn,3,2
 Rs.AddNew
 Rs("User_Name")=User_Name
 Rs("SiteUrl")=SiteUrl
 Rs.Update

 Call AlertBack("网址增加成功，请等待管理员审核通过",2)
End If '网址增加


If Action="modifypasswordsave" Then '用户修改密码
 Password_Old=goback(Trim(Request("Password_Old")),"请输入旧密码")
 Password_New_1=goback(Trim(Request("Password_New_1")),"请输入新密码")
 Password_New_2=goback(Trim(Request("Password_New_2")),"请输入填入新密码")

 If Password_New_1<>Password_New_2 Then Call AlertBack("输入的确认新密码不一致",1)

 Set Rs= Server.CreateObject("Adodb.RecordSet")
 Sql="Select Password From WWW_QQCF_COM_CfWztg_RegUser Where User_Name='"&User_Name&"'"
 Rs.Open Sql,Conn,1,1
 If Md5(Password_Old,1)<>Rs("Password") Then Call AlertBack("旧密码输入有错误",1)

 Set Rs= Server.CreateObject("ADODB.Recordset")
 Sql="select * From WWW_QQCF_COM_CfWztg_RegUser Where User_Name='"&User_Name&"'"
 Rs.Open Sql,Conn,3,2
 Rs("Password")=Md5(Password_New_1,1)
 Rs.update

 Call AlertBack("密码修改成功",1)
End If

If Action="modifydatasave" Then
 Email=Goback(Trim(Request("Email")),"请输入E-mail!")
 QQ=Trim(Request("QQ"))
 Phone=Trim(Request("Phone"))
 Mobile=Trim(Request("Mobile"))
 WebSite=Trim(Request("WebSite"))
 
 PasswordAnswer=GoBack(Trim(Request("PasswordAnswer")),"请填入密码回答答案!")

 If QQ="" Then QQ="-"
 If Phone="" Then Phone="-"
 If Mobile="" Then Mobile="-"
 If WebSite="" Then WebSite="-"

 Set Rs= Server.CreateObject("Adodb.RecordSet")
 Sql="Select * From WWW_QQCF_COM_CfWztg_RegUser where User_Name='"&User_Name&"'"
 Rs.Open Sql,Conn,3,2
 
 if Rs("PasswordAnswer")<>Md5(PasswordAnswer,1) Then Call AlertBack("密码回答答案有错误",1)
 
 Rs("Email")=Email
 Rs("QQ")=QQ
 Rs("Phone")=Phone
 Rs("Mobile")=Mobile
 Rs("WebSite")=WebSite
 Rs.Update
 
 Call AlertBack("修改成功!",1)
End If


If request("action")="passanswermodifysave" Then '用户修改提示问题和答案
 
 Set rs = Server.CreateObject("ADODB.Recordset")
 sql="select * from WWW_QQCF_COM_CfWztg_RegUser where User_Name='"&User_Name&"'"
 rs.open sql,conn,1,1
 PasswordAnswer_Old=GoBack(Trim(Request("PasswordAnswer_Old")),"请输入原密码回答答案")
 if Rs("PasswordAnswer")<>Md5(PasswordAnswer_Old,1) Then Call AlertBack("原密码回答答案有错误",1)

 PasswordAsk_New=GoBack(Trim(Request("PasswordAsk_New")),"请输入新密码提示问题")
 PasswordAnswer_New=GoBack(Trim(Request("PasswordAnswer_New")),"请输入新密码回答答案")
 
 If PasswordAsk_New=PasswordAnswer_New Then Call AlertBack("新密码提示问题和新密码回答答案不能设置相同",1)

 Set Rs= Server.CreateObject("ADODB.Recordset")
 Sql="select * from WWW_QQCF_COM_CfWztg_RegUser where user_name='"&User_Name&"'"
 Rs.Open Sql,Conn,3,2
 Rs("PasswordAsk")=PasswordAsk_New
 Rs("PasswordAnswer")=Md5(PasswordAnswer_New,1)
 Rs.update
 Call AlertBack("修改成功,请牢记！",1)
End If

If Action="usermodifypaysave" Then

 
 PayType=Int(Request("PayType"))
 Bank_Address=Trim(Request("Bank_Address"))
 Bank_UserName=Trim(Request("Bank_UserName"))
 Bank_UserCode=Trim(Request("Bank_UserCode"))
 Pay_B=Trim(Request("Pay_B"))
 Pay_C=Trim(Request("Pay_C"))


 PasswordAnswer=Request("PasswordAnswer")

 If Bank_Address="" Then  Bank_Address="-"
 If Bank_UserName="" Then  Bank_UserName="-"
 If Bank_UserCode="" Then  Bank_UserCode="-"
 If Pay_B="" Then  Pay_B="-"
 If Pay_C="" Then  Pay_C="-"


 Set Rs= Server.CreateObject("Adodb.RecordSet")
 Sql="Select * From WWW_QQCF_COM_CfWztg_RegUser where User_Name='"&User_Name&"'"
 Rs.Open Sql,Conn,3,2
 
 if Rs("PasswordAnswer")<>Md5(PasswordAnswer,1) Then Call AlertBack("密码回答答案有错误",1)
 Rs("PayType")=PayType
 Rs("Bank_Address")=Bank_Address
 Rs("Bank_UserName")=Bank_UserName
 Rs("Bank_UserCode")=Bank_UserCode
 Rs("Pay_B")=Pay_B
 Rs("Pay_C")=Pay_C
 Rs.Update
 
 Call AlertBack("修改成功",1)
End If '用户修改汇款方式

If Action="gbookaddsave" Then
 Content=Goback(Left(Server.HtmlEncode(Request("Content")),1000),"请输入留言内容")

 Set Rs = Server.CreateObject("Adodb.RecordSet")
 Sql="Select Top 1 * From WWW_QQCF_COM_CfWztg_Gbook"
 Rs.Open Sql,Conn,3,2
 Rs.AddNew
 Rs("User_Name")=User_Name
 Rs("Content")=Content
 Rs.Update

Call AlertBack("增加成功",2)
end if '留言增加

If Action="spendsave" Then

 Spend_Cent=Goback(Trim(Request("Spend_Cent")),"请填入结算金额")
 SpendDesc=Server.HtmlEncode(Request("SpendDesc"))

 IF Not IsNumeric(Spend_Cent) Then Call AlertBack("结算点数请输入数字",1)
 Spend_Cent=Cint(Spend_Cent)

 IF Spend_Cent<RsSet("LowSpendCent") Then Call AlertBack("结算需要"&RsSet("LowSpendCent")&"或者"&RsSet("LowSpendCent")&"元以上",1)
 IF SpendDesc="" Then SpendDesc="-"

 Spend_Cent=Int(Spend_Cent*1000)'换算成厘
 Set Rs = Server.CreateObject("Adodb.RecordSet")
 Sql="Select * From WWW_QQCF_COM_CfWztg_RegUser Where User_Name='"&User_Name&"'"
 Rs.Open Sql,Conn,3,2
 If Rs("Spare_Cent")<Spend_Cent Then Call AlertBack("剩余金额不够",1)
 Rs("Spend_Cent")=Rs("Spend_Cent")+Spend_Cent
 Rs("Spare_Cent")=Rs("Spare_Cent")-Spend_Cent
 Rs.Update
 
 Set Rs= Server.CreateObject("ADODB.Recordset")
 Sql="Select Top 1 * from WWW_QQCF_COM_CfWztg_Spend"
 Rs.Open Sql,Conn,3,2
 Rs.AddNew
 Rs("User_Name")=User_Name
 Rs("Spend_Cent")=Spend_Cent
 Rs("SpendDesc")=SpendDesc
 Rs("Admin_Desc")="已扣款，请等待管理员给你结算款项，或通知管理员立即结算款项"
 Rs.UpDate

 Call AlertBack("申请成功!",2)

End If

If Action="logout" Then
 Session("CfWztgUser")=""
 Response.Cookies("CfWztgUserCooKie")=""
 Response.Redirect("Index.asp")
End If
%>