qqcf_admin_manage_do.asp

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

 Set Rs = Server.CreateObject("ADODB.Recordset")
 Sql="Select * From WWW_QQCF_COM_Cfwztg_AdUser_Expend where ID="&ID
 Rs.open Sql,Conn,1,1

 If AdminCheck=0 And ExpendState=2 Then'管理员第一次操作时且审核通过时
  Set Rs2 = Server.CreateObject("Adodb.RecordSet")
  Sql="Select * From WWW_QQCF_COM_CfWztg_AD Where ID="&Rs("Ad_ID")
  Rs2.Open Sql,Conn,3,2
  Rs2("AdState")=2'设置广告为审核成功状态
  If Rs("ChaseState")=-1 Then Rs2("TotalClick")=Rs2("TotalClick")+Rs("ChaseClickNum")'如果是追加点数则为广告加点
  Rs2.Update
 End If
 
 
 If AdminCheck=0 And ExpendState=3 Then'管理员第一次操作时且审核拒绝时
  Set Rs = Server.CreateObject("ADODB.Recordset")
  Sql="Select * From WWW_QQCF_COM_Cfwztg_AdUser_Expend Where ID="&ID
  Rs.open Sql,Conn,1,1

  Set Rs2 = Server.CreateObject("Adodb.RecordSet")
  Sql="Select * From WWW_QQCF_COM_CfWztg_AdUser Where AdUser_Name='"&Rs("AdUser_Name")&"'"
  Rs2.Open Sql,Conn,3,2
  Rs2("Spend_Cent")=Rs2("Spend_Cent")-Rs("Expend_Cent")
  Rs2("Spare_Cent")=Rs2("Spare_Cent")+Rs("Expend_Cent")
  Rs2.Update'退回审核款项

  If Rs("ChaseState")=0 Then'在审核新广告(非追加点数)时设置广告为审核失败状态
   Set Rs2 = Server.CreateObject("Adodb.RecordSet")
   Sql="Select * From WWW_QQCF_COM_CfWztg_AD Where ID="&Rs("Ad_ID")
   Rs2.Open Sql,Conn,3,2
   Rs2("AdState")=3
   Rs2.Update
  End If

  ExPendAbortFeedBack="退回款项"&Rs("Expend_Cent")/1000&"元"
  Sql="Update WWW_QQCF_COM_Cfwztg_AdUser_Expend Set ExPendAbortFeedBack='"&ExPendAbortFeedBack&"' Where ID="&ID
  Conn.Execute(Sql)'结算失败时反馈结果
    
 End If

 Call AlertBack("审核修改成功",2)
End If  '修改结算


If Action="aduserexpenddel" Then
 ID=Request("ID")

 Sql="Delete From WWW_QQCF_COM_Cfwztg_AdUser_Expend where ID="&ID
 Conn.ExeCute Sql'删除结算

 Call AlertBack("结算删除成功",2)
End If  '删除结算，退回款项

If Action="aduserenoughaddsave" Then
 AdUser_Name=GoBack(Trim(Request("AdUser_Name")),"请选择要充值的广告商")
 Enough_Cent=GoBack(Trim(Request("Enough_Cent")),"请输入要充值的金额")
 AdminDesc=Trim(Request("AdminDesc"))

 If AdminDesc="" Then AdminDesc="-"

 If Not IsNumeric(Enough_Cent) Then Call AlertBack("充值的金额请输入数字",1)

 Enough_Cent=Int(Enough_Cent*1000)'精确到厘

 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("Total_Cent")=Rs("Total_Cent")+Enough_Cent
 Rs("Spare_Cent")=Rs("Spare_Cent")+Enough_Cent
 Rs.Update'为广告商充值

 Set Rs = Server.CreateObject("Adodb.RecordSet")
 Sql="Select Top 1 * From WWW_QQCF_COM_Cfwztg_AdUser_Enough"
 Rs.Open Sql,Conn,3,2
 Rs.AddNew
 Rs("AdUser_Name")=AdUser_Name
 Rs("Enough_Cent")=Enough_Cent
 Rs("AdminDesc")=AdminDesc
 Rs.Update'增加充值记录
 
 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("Assort")=2
 Rs("User_Name")=AdUser_Name
 Rs("Content")="-"
 Rs("Reply")="充值成功，此次充入"&Enough_Cent/1000&"元"
 Rs.Update'回复结果给用户

 Call AlertBack("充值成功",2)
End if  '为广告商充值

If Action="aduserenoughmodifysave" Then
 ID=Request("ID")
 AdminDesc=GoBack(Trim(Request("AdminDesc")),"请输入回复内容")

 Set Rs = Server.CreateObject("Adodb.RecordSet")
 Sql="Select * From WWW_QQCF_COM_Cfwztg_AdUser_Enough Where ID="&ID
 Rs.Open Sql,Conn,3,2
 Rs("AdminDesc")=AdminDesc
 Rs.Update'增加充值记录
 
 Call AlertBack("修改成功",2)
End if  '修改广告商充值说明

If Action="admodifysave" Then
 Ad_Class = Int(Request("Ad_Class"))
 ID = Request("ID")
 Ad = Trim(Request("Ad"))
 Ad=Replace(Ad,chr(34),"")'双引号更换
 Ad=Replace(Ad,chr(27),"")'单引号更换
 Ad=Replace(Ad,chr(13),"")'回车替换
 Ad=Replace(Ad,chr(10),"")'换行替换
 
 AD_Url = GoBack(Trim(Request("AD_Url")),"请输入广告的链接地址!")
 
 Unit_Cent = GoBack(Trim(Request("Unit_Cent")),"请输入每个点击的单价!")
 Unit_Cent = Int(Unit_Cent*1000)'转化为厘
 
 AdWidth=Trim(Request("AdWidth"))
 AdHeight=Trim(Request("AdHeight")) 
 AdDeDuct_Rate = GoBack(Trim(Request("AdDeDuct_Rate")),"请输入广告扣点率!")
 AdListShowState = Int(Trim(Request("AdListShowState")))
 AdSpareShowState = Int(Trim(Request("AdSpareShowState")))
 AdRegUserState = Int(Trim(Request("AdRegUserState")))
 AdRegUserDouble = Int(Trim(Request("AdRegUserDouble")))
 
 AdDesc=Trim(Request("AdDesc")) 
 If AdDesc="" Then AdDesc="-"

 If AdRegUserState=-1 And AdRegUserDouble=0 Then Call AlertBack("请选择推荐一个下线注册支付的金额!",1)

 If AdRegUserState=0 Then AdRegUserDouble=0

 If Ad_Class=5 Then
  If AdWidth="" Or AdHeight="" Then Call AlertBack("弹出窗口的宽度或高度没有输入",1)
 End If

 Set Rs = Server.CreateObject("Adodb.RecordSet")
 Sql="Select * From WWW_QQCF_COM_CfWztg_AD Where ID="&ID
 Rs.Open Sql,Conn,3,2
 Rs("Ad")=Ad
 Rs("AD_Url")=AD_Url
 If Ad_Class=3 Or Ad_Class=4 Or Ad_Class=5 Then Rs("AdWidth")=AdWidth
 If Ad_Class=3 Or Ad_Class=4 Or Ad_Class=5 Then Rs("AdHeight")=AdHeight
 Rs("Unit_Cent")=Unit_Cent
 Rs("AdDeDuct_Rate")=AdDeDuct_Rate
 Rs("AdListShowState")=AdListShowState
 Rs("AdSpareShowState")=AdSpareShowState
 Rs("AdRegUserState")=AdRegUserState
 Rs("AdRegUserDouble")=AdRegUserDouble
 Rs("AdDesc")=AdDesc
 Rs.Update


 Application("AdWidth_"&ID)="" '修改广告后清空旧缓存里的设置
 Application("AdHeight_"&ID)=""
 Application("Ad_Class_"&ID)=""
  
 Call AlertBack("修改成功",2)
End If '修改广告


If Action="addel" Then
 ID=Request("ID")
 Set Rs = Server.CreateObject("ADODB.Recordset")
 Sql="Select * From WWW_QQCF_COM_CfWztg_AD where ID="&ID
 Rs.open Sql,Conn,1,1

 If Rs("AdState")=2 Then
  AdSpare_Cent=Rs("Unit_Cent_First")*(Rs("TotalClick")-Rs("OverClick"))
  AdUser_Name=Rs("AdUser_Name")

  Set Rs2 = Server.CreateObject("Adodb.RecordSet")
  Sql="Select * From WWW_QQCF_COM_CfWztg_AdUser Where AdUser_Name='"&AdUser_Name&"'"
  Rs2.Open Sql,Conn,3,2
  Rs2("Spend_Cent")=Rs2("Spend_Cent") - AdSpare_Cent
  Rs2("Spare_Cent")=Rs2("Spare_Cent") + AdSpare_Cent
  Rs2.Update'把积分返回给广告主

  Set Rs2 = Server.CreateObject("Adodb.RecordSet")
  Sql="Select Top 1 * From WWW_QQCF_COM_CfWztg_Gbook"
  Rs2.Open Sql,Conn,3,2
  Rs2.AddNew
  Rs2("Assort")=2
  Rs2("User_Name")=AdUser_Name
  Rs2("Content")="-"
  Rs2("Reply")="广告删除，返回"&AdSpare_Cent/1000&"元"
  Rs2.Update'回复结果给用户
 End If

  Sql="Delete From WWW_QQCF_COM_CfWztg_AD Where ID="&ID
  Conn.ExeCute Sql
  Sql="Delete From WWW_QQCF_COM_CfWztg_AD_Counter_Day Where Ad_ID="&ID
  Conn.ExeCute Sql
  Sql="Delete From WWW_QQCF_COM_CfWztg_AD_Counter_Hour Where Ad_ID="&ID
  Conn.ExeCute Sql
  Sql="Delete From WWW_QQCF_COM_CfWztg_AD_Counter_Hour Where Ad_ID="&ID
  Conn.ExeCute Sql
  Sql="Delete From WWW_QQCF_COM_CfWztg_Visit_Ip Where Ad_ID="&ID
  Conn.ExeCute Sql
  Sql="Delete From WWW_QQCF_COM_CfWztg_Visit_Ly Where Ad_ID="&ID
  Conn.ExeCute Sql

 Call AlertBack("删除成功",1)
End If  '广告删除

If Action="todaylydel" Then
 Sql="Delete From WWW_QQCF_COM_CfWztg_Visit_Ly Where DateDiff('d',AddDate,Date())=0"
 Conn.ExeCute Sql
 Call AlertBack("删除成功",1)
End If  '今天的来源清空

If Action="beforelydel" Then
 Sql="Delete From WWW_QQCF_COM_CfWztg_Visit_Ly Where DateDiff('d',AddDate,Date())>0"
 Conn.ExeCute Sql
 Call AlertBack("删除成功",1)
End If '今天以前的来源清空

If Action="todayipdel" Then
 Sql="Delete From WWW_QQCF_COM_CfWztg_Visit_Ip Where DateDiff('d',AddDate,Date())=0"
 Conn.ExeCute Sql
 Call AlertBack("删除成功",1)
End If  '今天的Ip清空

If Action="beforeipdel" Then
 Sql="Delete From WWW_QQCF_COM_CfWztg_Visit_Ip Where DateDiff('d',AddDate,Date())>0"
 Conn.ExeCute Sql
 Call AlertBack("删除成功",1)
End If '今天以前的Ip清空

If Action="sysmodifyave" Then
 Title=GoBack(Trim(Request("Title")),"请输入系统名称")
 EffectTime=GoBack(Trim(Request("EffectTime")),"请输入多少小时内重复点击推广链接无效")
 LyMaxTotal=GoBack(Trim(Request("LyMaxTotal")),"请输入系统最大保留来源数目")
 IpMaxTotal=GoBack(Trim(Request("IpMaxTotal")),"请输入系统最大保留IP数目")
 LowSpendCent=GoBack(Trim(Request("LowSpendCent")),"请输入普通用户最低结算金额")
 PutObj=Request("PutObj")
 PutRange=Request("PutRange")
 PutSite=Trim(Request("PutSite"))
 PutRange_2=Request("PutRange_2")
 UserTcRate=Request("UserTcRate")
 AdClickRate=Request("AdClickRate")
 ShowClickInfo=Request("ShowClickInfo")
 UserDeDuctState=Request("UserDeDuctState")
 UserValid=Request("UserValid")
 AdUserValid=Request("AdUserValid")
 IncomeTop=Request("IncomeTop")
 SpendTop=Request("SpendTop")

 If PutSite="" Then PutSite="-"

 Set Rs = Server.CreateObject("Adodb.Recordset")
 Sql="Select * From WWW_QQCF_COM_CfWztg_Admin"
 Rs.Open Sql,Conn,3,2
 Rs("Title")=Title
 Rs("EffectTime")=EffectTime
 Rs("LyMaxTotal")=LyMaxTotal
 Rs("IpMaxTotal")=IpMaxTotal
 Rs("LowSpendCent")=LowSpendCent
 Rs("PutObj")=PutObj
 Rs("PutRange")=PutRange
 Rs("PutSite")=PutSite
 Rs("PutRange_2")=PutRange_2
 Rs("UserTcRate")=UserTcRate
 Rs("AdClickRate")=AdClickRate
 Rs("ShowClickInfo")=ShowClickInfo
 Rs("UserDeDuctState")=UserDeDuctState
 Rs("UserValid")=UserValid
 Rs("AdUserValid")=AdUserValid
 Rs("IncomeTop")=IncomeTop
 Rs("SpendTop")=SpendTop
 Rs.Update

 Call AlertBack("修改成功",1)
End If'系统参数设置

If Action="sysrecsetsave" Then
 RegType=Int(Request("RegType"))

 AccessPath=Request("AccessPath")

 SqlServerIP=Request("SqlServerIP")
 SqlServerDbName=Request("SqlServerDbName")
 SqlServerLinkName=Request("SqlServerLinkName")
 SqlServerLinkPassword=Request("SqlServerLinkPassword")

 SaveRegTable=Request("SaveRegTable")
 SaveRegUserName=Request("SaveRegUserName")
 SaveRegPassword=Request("SaveRegPassword")
 PassWordType=Request("PassWordType")
 RegUrl=Request("RegUrl")
 LoginUrl=Request("LoginUrl")

 If AccessPath="" Then AccessPath="-"
 If SqlServerIP="" Then SqlServerIP="-"
 If SqlServerDbName="" Then SqlServerDbName="-"
 If SqlServerLinkName="" Then SqlServerLinkName="-"
 If SqlServerLinkPassword="" Then SqlServerLinkPassword="-"
 If SaveRegTable="" Then SaveRegTable="-"
 If SaveRegUserName="" Then SaveRegUserName="-"
 If SaveRegPassword="" Then SaveRegPassword="-"
 If RegUrl="" Then RegUrl="-"
 If LoginUrl="" Then LoginUrl="-"

 Set Rs=Server.CreateObject("Adodb.RecordSet")
 Sql="Select * From WWW_QQCF_COM_CfWztg_Admin"
 Rs.Open Sql,Conn,3,3
 Rs("RegType")=RegType
 Rs("AccessPath")=AccessPath
 Rs("SqlServerIP")=SqlServerIP
 Rs("SqlServerDbName")=SqlServerDbName