qqcf_aduser_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="adaddsave" Then
 Ad_Class=Int(GoBack(Trim(Request("Ad_Class")),"请选择广告类型!"))
 

 MoreRow=Int(Request("MoreRow"))
 Ad_1=Trim(Request("Ad_1"))
 Ad_1_b=Trim(Request("Ad_1_b"))
 Ad_1_b=Replace(Ad_1_b,chr(34),"")'双引号更换
 Ad_1_b=Replace(Ad_1_b,chr(27),"")'单引号更换
 Ad_1_b=Replace(Ad_1_b,chr(13),"")'回车替换
 Ad_1_b=Replace(Ad_1_b,chr(10),"")'换行替换

 If MoreRow=-1 Then Ad_1=Ad_1_b
 If (Ad_Class=1 Or Ad_Class=3) And Ad_1="" Then Call AlertBack("请输入广告文字",1)
 
 Ad_2=Trim(Request("Ad_2"))
 AdWidth=Request("AdWidth")
 AdHeight=Request("AdHeight")
 If AdWidth="" Then AdWidth=0
 If AdHeight="" Then AdHeight=0
 
 If (Ad_Class=2 Or Ad_Class=4 Or Ad_Class=5) And Ad_2="" Then Call AlertBack("请输入或上传广告图片",1)
 If (Ad_Class=3 Or Ad_Class=4 Or Ad_Class=5) And (AdWidth=0 Or AdHeight=0) Then  Call AlertBack("请输入广告的宽度和高度",1)

 AD_Url=GoBack(Trim(Request("AD_Url")),"请输入广告的链接地址!")
 
 Unit_Cent = GoBack(Trim(Request("Unit_Cent")),"请输入每个点击的单价!")
 Unit_Cent = Int(Unit_Cent*1000)'转化为厘
 
 If Unit_Cent<=0 Then Call AlertBack("每个点击的单价输入有误!",1)
 
 ClickState=Int(Request("ClickState"))
 TotalClick=Int(GoBack(Trim(Request("TotalClick")),"请输入你想要获得的点击数目!"))
 If TotalClick<1000 Then Call AlertBack("想要获得的点击数目不少于1000点",1)
 
 AdRegUserState = Int(Request("AdRegUserState"))
 AdRegUserDouble = Int(Request("AdRegUserDouble"))
 
 If Ad_Class=1 Or Ad_Class=3 Then Ad=Ad_1
 If Ad_Class=2 Or Ad_Class=4 Or Ad_Class=5 Then Ad=Ad_2
 If Ad_Class=6 Then Ad="-"

 Pay_Cent=Unit_Cent*TotalClick
 
 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
 If Rs("Spare_Cent")<Pay_Cent Then Call AlertBack("剩余金额不够",1)
 Rs("Spend_Cent")=Rs("Spend_Cent")+Pay_Cent
 Rs("Spare_Cent")=Rs("Spare_Cent")-Pay_Cent
 Rs.Update
 
 Set Rs = Server.CreateObject("Adodb.RecordSet")
 Sql="Select Top 1 * From WWW_QQCF_COM_CfWztg_AD"
 Rs.Open Sql,Conn,3,2
 Rs.AddNew
 Rs("AdUser_Name")=AdUser_Name
 Rs("Ad_Class")=Ad_Class
 Rs("AD")=AD
 Rs("AD_Url")=AD_Url
 Rs("AdWidth")=AdWidth
 Rs("AdHeight")=AdHeight
 Rs("Unit_Cent_First")=Unit_Cent
 Rs("Unit_Cent")=Unit_Cent
 Rs("ClickState")=ClickState
 Rs("TotalClick")=TotalClick
 Rs("AdRegUserState")=AdRegUserState
 Rs("AdRegUserDouble")=AdRegUserDouble
 Rs.Update

 Set Rs = Server.CreateObject("Adodb.RecordSet")
 Sql="Select Top 1 ID From WWW_QQCF_COM_CfWztg_AD Where AdUser_Name='"&AdUser_Name&"' Order By ID Desc"
 Rs.Open Sql,Conn,1,1
 Ad_ID=Rs("ID") 

 Set Rs = Server.CreateObject("Adodb.RecordSet")
 Sql="Select Top 1 * From WWW_QQCF_COM_Cfwztg_AdUser_Expend"
 Rs.Open Sql,Conn,3,2
 Rs.AddNew
 Rs("Ad_ID")=Ad_ID
 Rs("AdUser_Name")=AdUser_Name
 Rs("Expend_Cent")=Pay_Cent
 Rs("ExpendDesc")="发布广告"
 Rs.Update

 Call AlertUrl("增加成功","?Action=adlist&AdList=waitadlist")
End If '发布广告

If Action="chaseclicksave" Then
 ID=Trim(Request("ID"))
 ChaseClickNum=GoBack(Trim(Request("ChaseClickNum")),"请输入你想要追加的点击数目!")
 
 If ChaseClickNum<1000 Then Call AlertBack("想要追加的点击数目不少于1000点",1)
 
 Set Rs = Server.CreateObject("Adodb.RecordSet")
 Sql="Select * From WWW_QQCF_COM_CfWztg_AD Where ID="&ID
 Rs.Open Sql,Conn,1,1
 Pay_Cent=Rs("Unit_Cent_First")*ChaseClickNum


 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
 If Rs("Spare_Cent")<Pay_Cent Then Call AlertBack("剩余金额不够",1)
 Rs("Spend_Cent")=Rs("Spend_Cent")+Pay_Cent
 Rs("Spare_Cent")=Rs("Spare_Cent")-Pay_Cent
 Rs.Update
 
 Set Rs = Server.CreateObject("Adodb.RecordSet")
 Sql="Select * From WWW_QQCF_COM_Cfwztg_AdUser_Expend"
 Rs.Open Sql,Conn,3,2
 Rs.AddNew
 Rs("AdUser_Name")=AdUser_Name
 Rs("Ad_ID")=ID
 Rs("Expend_Cent")=Pay_Cent
 Rs("ExpendDesc")="追加广告点数"&ChaseClickNum
 Rs("ChaseState")=-1
 Rs("ChaseClickNum")=ChaseClickNum
 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_AdUser Where AdUser_Name='"&AdUser_Name&"'"
 Rs.Open Sql,Conn,3,2
 If Md5(Password_Old,1)<>Rs("Password") Then Call AlertBack("旧密码输入有错误",1)

 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("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"))

 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_AdUser Where AdUser_Name='"&AdUser_Name&"'"
 Rs.Open Sql,Conn,3,2
 Rs("Email")=Email
 Rs("QQ")=QQ
 Rs("Phone")=Phone
 Rs("Mobile")=Mobile
 Rs("WebSite")=WebSite
 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("Assort")=2
 Rs("User_Name")=AdUser_Name
 Rs("Content")=Content
 Rs.Update

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

If Action="aduserlogout" Then
 Session("CfWztgAdUser")=""
 Response.Cookies("CfWztgAdUserCooKie")=""
 Response.Redirect "Index.asp"
End If
%>