📄 qqcf_admin_manage_do.asp
字号:
<%
'==================================
' 乘风网站推广系统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="usermodifysave" Then
User_Name=Request("User_Name")
State=Request("State")
DeDuct_Rate=GoBack(Trim(Request("DeDuct_Rate")),"请输入扣点率")
Password_New=Trim(Request("Password_New"))
PasswordAnswer_New=Trim(Request("PasswordAnswer_New"))
AdminDesc=Trim(Request("AdminDesc"))
If AdminDesc="" Then AdminDesc="-"
DeductCentState=Int(Request("DeductCentState"))
Deduct_Cent=Int(Request("Deduct_Cent")*1000)
NoticUser=Int(Request("NoticUser"))
Gbook=Trim(Request("Gbook"))
If NoticUser=-1 And Gbook="" Then Call AlertBack("请输入留言的内容",1)
If DeductCentState=-1 Then
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")<Deduct_Cent Then Call AlertBack("剩余金额不够，扣得太多了",1)
Rs("Total_Cent")=Rs("Total_Cent")-Deduct_Cent
Rs("Spare_Cent")=Rs("Spare_Cent")-Deduct_Cent
Rs.Update
If NoticUser=-1 Then
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("Reply")=Gbook
Rs("ReplyTime")=Now()
Rs.UpDate
End If
Set Rs= Server.CreateObject("ADODB.Recordset")
Sql="Select Top 1 * from WWW_QQCF_COM_CfWztg_RegUserDudect"
Rs.Open Sql,Conn,3,2
Rs.AddNew
Rs("User_Name")=User_Name
Rs("Dudect_Cent")=Deduct_Cent
Rs.UpDate
End If
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("State")=State
Rs("DeDuct_Rate")=DeDuct_Rate
If Password_New<>"" Then Rs("Password")=Md5(Password_New,1)
If PasswordAnswer_New<>"" Then Rs("PasswordAnswer")=Md5(PasswordAnswer_New,1)
Rs("AdminDesc")=AdminDesc
Rs.Update
Call AlertUrl("修改成功",Session("Url"))
End if '修改用户信息
If Action="userdel" Then
User_Name=Request("User_Name")
Sql="Delete From WWW_QQCF_COM_CfWztg_AD_Counter_Day Where User_Name='"&User_Name&"'"
Conn.ExeCute Sql
Sql="Delete From WWW_QQCF_COM_CfWztg_AD_Counter_Hour Where User_Name='"&User_Name&"'"
Conn.ExeCute Sql
Sql="Delete From WWW_QQCF_COM_CfWztg_Gbook Where User_Name='"&User_Name&"'"
Conn.ExeCute Sql
Sql="Delete From WWW_QQCF_COM_CfWztg_RegUser Where User_Name='"&User_Name&"'"
Conn.ExeCute Sql
Sql="Delete From WWW_QQCF_COM_CfWztg_Spend Where User_Name='"&User_Name&"'"
Conn.ExeCute Sql
Sql="Delete From WWW_QQCF_COM_CfWztg_User_XX Where User_Name='"&User_Name&"' Or Xx_Name='"&User_Name&"'"
Conn.ExeCute Sql
Sql="Delete From WWW_QQCF_COM_CfWztg_UserSite Where User_Name='"&User_Name&"'"
Conn.ExeCute Sql
Sql="Delete From WWW_QQCF_COM_CfWztg_Visit_Ip Where User_Name='"&User_Name&"'"
Conn.ExeCute Sql
Sql="Delete From WWW_QQCF_COM_CfWztg_Visit_Ly Where User_Name='"&User_Name&"'"
Conn.ExeCute Sql
Call AlertUrl("删除成功",Session("Url"))
End If '删除注册用户
If Action="seluserdel" Then
For i=1 to Request("box").count
User_Name=Request("box")(i)
Sql="Delete From WWW_QQCF_COM_CfWztg_AD_Counter_Day Where User_Name='"&User_Name&"'"
Conn.ExeCute Sql
Sql="Delete From WWW_QQCF_COM_CfWztg_AD_Counter_Hour Where User_Name='"&User_Name&"'"
Conn.ExeCute Sql
Sql="Delete From WWW_QQCF_COM_CfWztg_Gbook Where User_Name='"&User_Name&"'"
Conn.ExeCute Sql
Sql="Delete From WWW_QQCF_COM_CfWztg_RegUser Where User_Name='"&User_Name&"'"
Conn.ExeCute Sql
Sql="Delete From WWW_QQCF_COM_CfWztg_Spend Where User_Name='"&User_Name&"'"
Conn.ExeCute Sql
Sql="Delete From WWW_QQCF_COM_CfWztg_User_XX Where User_Name='"&User_Name&"' Or Xx_Name='"&User_Name&"'"
Conn.ExeCute Sql
Sql="Delete From WWW_QQCF_COM_CfWztg_UserSite Where User_Name='"&User_Name&"'"
Conn.ExeCute Sql
Sql="Delete From WWW_QQCF_COM_CfWztg_Visit_Ip Where User_Name='"&User_Name&"'"
Conn.ExeCute Sql
Sql="Delete From WWW_QQCF_COM_CfWztg_Visit_Ly Where User_Name='"&User_Name&"'"
Conn.ExeCute Sql
Next
Call AlertBack("删除成功",1)
End If '删除选择的注册用户
If Action="gotouser" Then
User_Name=Request("User_Name")
Session("CfWztgUser")=User_Name
Response.Redirect("Manage.asp")
End If '转到用户页
If Action="userspendmodifysave" Then
ID=Request("ID")
SpendState=Int(Request("SpendState"))
AdminCheck=Int(Request("AdminCheck"))
AdminDesc=Request("AdminDesc")
AdminSpendTime=GoBack(Trim(Request("AdminSpendTime")),"请填入审核时间")
If AdminDesc="" Then AdminDesc="-"
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfWztg_Spend Where ID="&ID
Rs.Open Sql,Conn,3,2
If AdminCheck=0 Then Rs("SpendState")=SpendState
If AdminCheck=0 Then Rs("AdminCheck")=-1'管理员第一次操作时设置管理员已经操作过
Rs("AdminDesc")=AdminDesc
Rs("AdminSpendTime")=AdminSpendTime
Rs.Update
If AdminCheck=0 And SpendState=3 Then'管理员第一次操作时且审核拒绝时
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From WWW_QQCF_COM_CfWztg_Spend where ID="&ID
Rs.open Sql,Conn,1,1
Set Rs2 = Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfWztg_RegUser Where User_Name='"&Rs("User_Name")&"'"
Rs2.Open Sql,Conn,3,2
Rs2("Spend_Cent")=Rs2("Spend_Cent")-Rs("Spend_Cent")
Rs2("Spare_Cent")=Rs2("Spare_Cent")+Rs("Spend_Cent")
Rs2.Update'退回结算款项
SpendAbortFeedBack="退回款项"&Rs("Spend_Cent")/1000&"元"
Sql="Update WWW_QQCF_COM_CfWztg_Spend Set SpendState=3,SpendAbortFeedBack='"&SpendAbortFeedBack&"' Where ID="&ID
Conn.Execute(Sql)'结算失败，更新为失败状态，并反馈结果
End If
If RsSet("UserTcRate")>0 And AdminCheck=0 And SpendState=2 Then'支持提成,管理员第一次操作时,审核通过时给上线提成
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From WWW_QQCF_COM_CfWztg_Spend where ID="&ID
Rs.open Sql,Conn,1,1
Set Rs2 = Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfWztg_LowUser Where LowUser_Name='"&Rs("User_Name")&"'"
Rs2.Open Sql,Conn,1,1
If Not Rs.Eof Then
UpUser_Name=Rs2("User_Name")
Tc_Cent=Int(Rs("Spend_Cent")*RsSet("UserTcRate")/100)
Sql="Update WWW_QQCF_COM_CfWztg_RegUser Set Total_Cent=Total_Cent+"&Tc_Cent&",Spare_Cent=Spare_Cent+"&Tc_Cent&" Where User_Name='"&UpUser_Name&"'"
Conn.Execute Sql
SpendTcFeedBack="你的推荐用户"&Rs("User_Name")&"的在结算款项"&Rs("Spend_Cent")/1000&"元后系统给你的提成"
Sql="Insert Into WWW_QQCF_COM_CfWztg_Spend(User_Name,Spend_Cent,SpendState,AdminCheck,AdminDesc,AdminSpendTime) Values('"&UpUser_Name&"',"&Tc_Cent&",2,-1,'"&SpendTcFeedBack&"',Now())"
Conn.Execute(Sql)'给上线用户增加一条结算记录
End If
End If
Call AlertBack("审核修改成功",2)
End If '修改结算
If Action="userspenddel" Then
ID=Request("ID")
Sql="Delete From WWW_QQCF_COM_CfWztg_Spend where ID="&ID
Conn.ExeCute Sql'删除结算
Call AlertBack("结算删除成功",1)
End If '删除结算
If Action="usersitemodifysave" Then
ID=Request("ID")
User_Name=Request("User_Name")
SiteUrl=GoBack(Lcase(Trim(Request("SiteUrl"))),"请输入网站网址")
SiteState=GoBack(Trim(Request("SiteState")),"请输入扣点率")
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfWztg_UserSite Where ID="&ID
Rs.Open Sql,Conn,3,2
Rs("SiteUrl")=SiteUrl
Rs("SiteState")=SiteState
Rs.Update
Rs.Close
Sql="Select * From WWW_QQCF_COM_CfWztg_UserSite Where User_Name='"&User_Name&"' And SiteState=2"
Set Rs=Conn.ExeCute(Sql)
While Not Rs.Eof
UserAllSite=UserAllSite&Rs("SiteUrl")&"|"
Rs.MoveNext
Wend
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("UserAllSite")=UserAllSite
Rs.Update
Call AlertBack("修改成功",2)
End if '修改用户网站审核信息
If Action="usersitedel" Then
ID=Request("ID")
User_Name=Request("User_Name")
Sql="Delete From WWW_QQCF_COM_CfWztg_UserSite Where ID="&ID
Conn.ExeCute Sql
Sql="Select * From WWW_QQCF_COM_CfWztg_UserSite Where User_Name='"&User_Name&"' And SiteState=2"
Set Rs=Conn.ExeCute(Sql)
While Not Rs.Eof
UserAllSite=UserAllSite&Rs("SiteUrl")&"|"
Rs.MoveNext
Wend
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("UserAllSite")=UserAllSite
Rs.Update
Call AlertBack("删除成功",1)
End If '用户网站审核删除
If Action="adusermodifysave" Then
AdUser_Name=Request("AdUser_Name")
State=Request("State")
Password_New=Trim(Request("Password_New"))
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfWztg_AdUser Where AdUser_Name='"&AdUser_Name&"'"
Rs.Open Sql,Conn,3,2
Rs("State")=State
If Password_New<>"" Then Rs("Password")=Md5(Password_New,1)
Rs.Update
Call AlertUrl("修改成功",Session("Url"))
End if '修改广告商信息
If Action="aduserdel" Then
AdUser_Name=Request("AdUser_Name")
Sql="Delete From WWW_QQCF_COM_CfWztg_AD Where AdUser_Name='"&AdUser_Name&"'"
Conn.ExeCute Sql
Sql="Delete From WWW_QQCF_COM_Cfwztg_AdUser_Enough Where AdUser_Name='"&AdUser_Name&"'"
Conn.ExeCute Sql
Sql="Delete From WWW_QQCF_COM_Cfwztg_AdUser_Expend Where AdUser_Name='"&AdUser_Name&"'"
Conn.ExeCute Sql
Sql="Delete From WWW_QQCF_COM_CfWztg_Gbook Where AdUser_Name='"&AdUser_Name&"'"
Conn.ExeCute Sql
Sql="Delete From WWW_QQCF_COM_CfWztg_AdUser Where AdUser_Name='"&AdUser_Name&"'"
Conn.ExeCute Sql
Call AlertUrl("删除成功",Session("Url"))
End If '删除注册用户
If Action="gotoaduser" Then
AdUser_Name=Request("AdUser_Name")
Session("CfWztgAdUser")=AdUser_Name
Response.Redirect("AdUser_Manage.asp")
End If '转到广告商页
If Action="aduserexpendmodifysave" Then
ID=Request("ID")
ExpendState=Int(Request("ExpendState"))
AdminCheck=Int(Request("AdminCheck"))
AdminDesc=Request("AdminDesc")
AdminSpendTime=GoBack(Trim(Request("AdminSpendTime")),"请填入审核时间")
If AdminDesc="" Then AdminDesc="-"
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_Cfwztg_AdUser_Expend Where ID="&ID
Rs.Open Sql,Conn,3,2
If AdminCheck=0 Then Rs("ExpendState")=ExpendState
If AdminCheck=0 Then Rs("AdminCheck")=-1'管理员第一次操作时设置管理员已经操作过
Rs("AdminDesc")=AdminDesc
Rs("AdminSpendTime")=AdminSpendTime
Rs.Update
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -