plus_adv.asp

功能强大的bbs

<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file="plus_adv_conn.asp"-->
<!-- #include file="inc/DvADChar.asp" -->

<%

Dvbbs.stats="广告公司"
Dvbbs.nav()
Dvbbs.Head_var 2,0,"",""
If dvbbs.userid=0 Then
	Dvbbs.AddErrCode(6)
	Dvbbs.Showerr()
Else
	'Main()
		dim action
	action=request("action")
	if action="save" then 
		call save()
	elseif action="update" then
		call update()
	else
		call main()
	end if
End If
Dvbbs.ActiveOnline()
Dvbbs.Footer()

sub main()

	set rs=server.createobject("adodb.recordset")
	sql="select * from [adv_config] where adv_type='默认'"
	rs.Open sql,conn_adv,1,1
	if rs.eof and rs.bof then
		Response.Write "广告公司尚未启用，请用管理员帐号登陆后进入<a href='plus_adv_admin.asp'>管理</a>。"
	else
		dim adv_url
		dim adv_txt
		dim adv_img
		dim adv_cheat
		dim adv_wealth
		dim adv_cp
		dim adv_ep
		dim myurl
		myurl=Dvbbs.Forum_Info(1)
		if mid(myurl,len(myurl),1)="/" then myurl=mid(myurl,1,len(myurl)-1)
		adv_url=rs("adv_url")
		adv_txt=rs("adv_txt")
		adv_img=rs("adv_img")
		adv_cheat=rs("adv_cheat")
		adv_wealth=rs("adv_wealth")
		adv_ep=rs("adv_ep")
		adv_cp=rs("adv_cp")
	end if
	rs.close
	set rs=nothing

	Response.Write "<table cellpadding=0 cellspacing=6 align=center class=tableborder1><tr>"
	Response.Write "<td width='35%' valign='top'> <table style='width:98%' cellspacing=1 cellpadding=6 class=tableborder1>"
	Response.Write "<tr><th colspan='3'>广告经纪人排行</th></tr>"
	Response.Write "<tr ><th width='15%' align='left'>名次</th><th width='50%' align='left'>姓名</th><th width=* align='right'>反馈量</th></tr>"
	
	set rs=server.createobject("adodb.recordset")
	sql="select top 10 * from [adv_broker] order by count_Z desc"
	rs.Open sql,conn_adv,1,2
	dim i
	i=1
	do while not rs.eof
		Response.Write "<tr height='23'><td class=tablebody1><img src='plus/adv/level-1-"&i&".gif' width='27' height='15'></td>"
		Response.Write "<td class=tablebody1><a href='dispuser.asp?id="&rs("userid")&"' target='_blank'>"&rs("username")&"</a></td><td  class=tablebody1 align='right'><b>"&rs("count_z")&"</b></td></tr>"
		i=i+1
		rs.movenext
	loop
	rs.close
	Response.Write "</table></td><td width='65%' valign='top'> <table style='width:100%' cellspacing=1 cellpadding=6 class=tableborder1>"
	Response.Write "<tr><th>您的业务统计</th></tr><tr><td class=tablebody1>"
	sql="select * from [adv_broker] where userid="&dvbbs.userid
	rs.Open sql,conn_adv,1,2
	if rs.eof and rs.bof then
		Response.Write "<a href='?action=save'><img src='plus/adv/adv_1.gif' border=0></a>"
		Response.Write "<br><br>通过做社区的广告经纪人赚钱可是一种很不错的方法，不过先要办一张证书。<br><b>办理费用：</b>免费<br><b>办理条件：</b>只要是会员均可办理" 
	else
		Response.Write "<table width='100%' border='0' cellpadding='5' cellspacing='0'><tr><td width=60% >"
		Response.Write "<font color='000000'>你总有效广告反馈量："&rs("count_z")
		Response.Write "次<br><br>您本次累积的反馈量："&rs("count_b")
		Response.Write "次<br><br>您本次累积业务佣金："&rs("count_b")*adv_wealth
		Response.Write "元<br>　　　　　　　魅力："&rs("count_b")*adv_cp
		Response.Write "点<br>　　　　　　　经验："&rs("count_b")*adv_ep
		Response.Write "点<br><br>您上次领取佣金时间："&rs("updatetime")
		Response.Write "</font></td><td>"
		Response.Write "<font color='000000'><b>"&dvbbs.membername&"</b></font>，欢迎你来到广告公司<br><br>"
		Response.Write "<a href='?action=update'><img src='plus/adv/adv_2.gif' border=0></a>"
		
		Response.Write "</td></tr></table>"
	end if
	rs.close	
	Response.Write "</td></tr></table><br>"
	
	if Dvbbs.master then Response.Write "<table style='width:100%' cellspacing=1 cellpadding=6 class=tableborder1><tr><th><a href=plus_adv_admin.asp>进入后台管理</a></th></tr></table><br>"
	
	Response.Write "<table style='width:100%' cellspacing=1 cellpadding=6 class=tableborder1><tr><th>宣传方式</th>"
	Response.Write "</tr><tr><td class=tablebody1>代码："
	Response.Write myurl&"/plus_adv_get.asp?get="&dvbbs.userid
	Response.Write "</td></tr><tr><th  align='left'>方法一：在其他论坛或聊天室发带有以下链接的帖子</th></tr><tr><td class=tablebody1>"
	%>
          进阶：<br> <table width="100%" border="0" cellspacing="0" cellpadding="3">
              <tr> 
                <td>在支持UBB的论坛上可以是这样</td>
              </tr>
              <tr> 
                <td><input name="textarea" type="text" style="width:420px" style="border: 1px  solid #000000; height: 18px;" value="[url=<%=myurl%>/plus_adv_get.asp?get=<%=dvbbs.userid%>]<%=adv_txt%>[/url]
		"></td>
              </tr>
              <tr> 
                <td><font color="#FF0000">效果：</font><a target=_blank href=<%=myurl%>/plus_adv_get.asp?get=<%=dvbbs.userid%>><%=adv_txt%></a></td>
              </tr>
              <tr> 
                <td>在论坛上，还可以把图片链接放到签名里（在帖子里好像不行）</td>
              </tr>
              <tr> 
                <td><input name="textfield" type="text" style="width:420px" style="border: 1px  solid #000000; height: 18px;"  value="[url=<%=myurl%>/plus_adv_get.asp?get=<%=dvbbs.userid%>][IMG]<%=adv_img%>[/IMG][/URL]
		"></td>
              </tr>
              <tr> 
                <td><font color="#FF0000">效果：</font><a href=<%=myurl%>/plus_adv_get.asp?get=<%=dvbbs.userid%>><img border=0 src="<%=adv_img%>"></a></td>
              </tr>
            </table>
	<%
	Response.Write "</td></tr><tr><th  align='left'>方法二：将此链接通过邮件或者QQ发给你的朋友</th></tr><tr><td class=tablebody1>"
	Response.Write "<font color='#000000'>代码："
	Response.Write myurl&"/plus_adv_get.asp?get="&dvbbs.userid
	Response.Write "</font></td></tr><tr><th  align='left'>广告公司说明</th></tr><tr><td class=tablebody1>"
	Response.Write "<font color='#000000'>您可以将这些广告代码贴到其他论坛或个人主页等地方，别人通过这个链接进入本社区，您就能获得反馈。<br>您可根据反馈量获得龙币，交换比例暂定为：100元龙币  + 200点经验 + 50点魅力/反馈点。<br>为防止作弊，同一IP地址在10分钟内重复点击，只算一次点击。 </td></tr>"
	Response.Write "</table></td></tr></table>"

end sub

'领取证书
sub save()

	set rs=server.createobject("adodb.recordset")
	sql="select * from [adv_broker] where userid="&dvbbs.userid
	rs.Open sql,conn_adv,1,2
	if rs.eof and rs.bof then
		rs.addnew
		rs("userid")=dvbbs.userid
		rs("username")=dvbbs.membername
		rs("addtime")=now()
		rs.update
		rs.close
		set rs=nothing
		conn_adv.close
			Response.Write "<div align=center>广告经纪人证书领取成功，请返回刷新一下吧</div>"
	else
		rs.close
		set rs=nothing
		conn_adv.close
		Response.Write "<div align=center>你已经领取证书了，请不要重复申领。</div>"
	end if
end sub

'领取佣金
sub update()
	set rs=server.createobject("adodb.recordset")
	sql="select * from [adv_broker] where userid="&dvbbs.userid
	rs.Open sql,conn_adv,1,2
	if rs.eof and rs.bof then
		rs.close
		set rs=nothing
		conn_adv.close
		
		Dvbbs.AddErrMsg "<div align=center>你尚未办理广告经纪人证书，请到<a href=plus_adv.asp>广告公司</a>去申请吧。</div>"
		ChkAllErr
	else
		if rs("updatetime")=date() then
			rs.close
			set rs=nothing
			conn_adv.close	
			Response.Write "<div align=center>你今天已经领取佣金了，明天再来吧。</div>"
		else
			rs("updatetime")=date()
			dim dianshu
			dianshu=rs("count_b")
			rs("count_b")=0
			rs.update
			rs.close

			set rs=server.createobject("adodb.recordset")
			sql="select * from [adv_config] where adv_type='默认'"
			rs.Open sql,conn_adv,1,1
			if rs.eof and rs.bof then
				Dvbbs.AddErrMsg "<div align=center>出现故障了，数据找不到了，请联系管理员。</div>"
				ChkAllErr
			else
				dim adv_wealth
				dim adv_cp
				dim adv_ep
				dim myurl
				adv_wealth=rs("adv_wealth")
				adv_ep=rs("adv_ep")
				adv_cp=rs("adv_cp")
			end if
			rs.close
	
			sql = "select userCP,userEP,userWealth from [dv_user] where userid="&dvbbs.userid
			rs.open sql,conn,1,3
			if not rs.eof then
				rs("userwealth")=rs("userwealth")+dianshu*adv_wealth
				rs("userCP")=rs("userCP")+dianshu*adv_cp
				rs("usereP")=rs("usereP")+dianshu*adv_ep
				rs.update
			end if
			rs.close
			set rs=nothing

				Response.Write "<div align=center>你已成功领取佣金：金钱"&dianshu*adv_wealth&"，魅力"&dianshu*adv_CP&"，经验"&dianshu*adv_EP&"。</div>"
		end if
	end if
end sub
%>