plus_adv_admin.asp

功能强大的bbs

<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/DvADChar.asp" -->
<!--#include file="plus_adv_conn.asp"-->
<%
'=========================================================
' File: plus_adv_admin.asp
' Version:2.0 for dvbbs7.0
' Date: 2004-1-4
' Written by 比萨饼
'=========================================================
Dvbbs.stats="广告公司"
Dvbbs.nav()
Dvbbs.Head_var 2,0,"后台管理","<a href=plus_adv.asp>广告公司</a>"
	dim admin_flag
	admin_flag=",2,"
	If Not Dvbbs.master or instr(","&session("flag")&",",admin_flag)=0 then
		Errmsg=ErrMsg + "<BR><li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登录</a>后进入。<br><li>您没有管理本页面的权限。"
		dvbbs_error()
	else
		dim action 
		action=request("action")
		if action="add" then
			call save()
		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,3
	if rs.eof and rs.bof then
		rs.addnew
		rs("adv_type")="默认"
		rs("adv_url")=Dvbbs.Forum_Info(1)
		rs("adv_txt")=Dvbbs.Forum_Info(0)
		rs("adv_img")="http://bbs.clong.com.cn/images/adv_a.gif"
		rs("adv_cheat")=200
		rs("adv_wealth")=100
		rs("adv_ep")=20
		rs("adv_cp")=5
		rs.update
	end if

	Response.Write "<table cellspacing=1 cellpadding=6 class=tableborder1 align=center ><form method='POST' action='?action=add'><tr>"
	Response.Write "<th  colspan='2'>广告公司简单统计</th></tr>"
	Response.Write "<tr><td class=tablebody1>总反馈量：<b> "&rs("adv_click")&" </b>次<br>有效反馈：<b> "&rs("adv_click1")&" </b>次<br>看来，有<b> "&rs("adv_click")-rs("adv_click1")&" </b>的反馈量你是不用付钱的，或者说，是客户乱点击的，无效。</td></tr></table><br>"
		
	Response.Write "<table cellspacing=1 cellpadding=6 class=tableborder1 align=center ><form method='POST' action='?action=add'><tr>"
	Response.Write "<th  colspan='2'>广告公司参数设定（总反馈："&rs("adv_click")&"，有效反馈："&rs("adv_click1")&"</th></tr>"
	Response.Write "<tr><td width=28%  align='right' class=tablebody1><b>广告内容</b>：<br>即点击广告后，要打开的网页&nbsp;</td><td class=tablebody1><input name='adv_url' type='text' size=50 value='"&rs("adv_url")&"'> * 请输入网址</td></tr>"
	Response.Write "<tr><td  align='right' class=tablebody1><b>文字广告</b>：<br>即文字链接的内容&nbsp;</td><td class=tablebody1><input name='adv_txt' type='text' size=50 value='"&rs("adv_txt")&"'> * 请输入字符，比如 <b><font color='#ff0000'>进入动网论坛</font></b> 这六个字</td></tr>"
	Response.Write "<tr><td  align='right' class=tablebody1><b>图片广告</b>：<br>即发到别人网站上时显示的个性图片&nbsp;</td><td class=tablebody1><input name='adv_img' type='text' size=50 value='"&rs("adv_img")&"'> * 请输入个性图片的绝对地址<br><img src='"&rs("adv_img")&"' > </td></tr>"
	Response.Write "<tr><td  align='right' class=tablebody1><b>防止作弊</b>：<br>即防止刷新，可限定同一IP点击的间隔&nbsp;</td><td class=tablebody1><input name='adv_cheat' type='text' size=5 value='"&rs("adv_cheat")&"'> * 请输入同一IP点击有效的间隔秒数</td></tr>"
	Response.Write "<tr><td  align='right' class=tablebody1>金钱/反馈点：</td><td class=tablebody1><input name='adv_wealth' type='text' size=5 value='"&rs("adv_wealth")&"'>  * 请输入数字</td></tr>"
	Response.Write "<tr><td  align='right' class=tablebody1>经验/反馈点：</td><td class=tablebody1><input name='adv_ep' type='text' size=5 value='"&rs("adv_ep")&"'>  * 请输入数字</td></tr>"
	Response.Write "<tr><td  align='right' class=tablebody1>魅力/反馈点：</td><td class=tablebody1><input name='adv_cp' type='text' size=5 value='"&rs("adv_cp")&"'>  * 请输入数字</td></tr>"
	Response.Write "<tr><td colspan='2' align='center' class=tablebody1>以上数据请规规矩矩的输入，该输数字的，就输数字，该输网址的，就输网址，否则，出错了，天皇老子也救不了你了。</td></tr>"
	Response.Write "<tr><td colspan='2' align='center' class=tablebody1><input type='submit' value='  确　定  '  name='cmdok' ></td></tr>"
	Response.Write "</font></table><br>"
	
	rs.close
	set rs=nothing
	
	Response.Write "<table cellspacing=1 cellpadding=6 class=tableborder1 align=center ><tr>"
	Response.Write "<th>说明及新版预览</th></tr>"
	Response.Write "<tr><td class=tablebody1>"
	Response.Write "插件名称：广告公司2.0 for dvbbs7.0<br>"
	Response.Write "修改：比萨饼<br><br>"
	Response.Write "下版待增加功能：1.广告客户分组，不同客户亨受不同待遇。<br>　　　　　　　　2.广告代码可自行增加，可有无限广告内容，不同用户各取所需。<br><br>"
	Response.Write "下下版待增加功能：开设广告代理商功能，给代理商更优惠待遇。"
	Response.Write "</table><br>"

end sub

sub save()
	if request.form("adv_url")="" or request.form("adv_txt")="" or request.form("adv_img")="" or  request.form("adv_cheat")="" or  request.form("adv_wealth")="" or  request.form("adv_cp")="" or  request.form("adv_ep")="" then
		Dvbbs.AddErrmsg "信息保存不够。有一栏或更多栏信息尚未填写。"
		ChkAllErr()
	end if
	
	set rs=server.createobject("adodb.recordset")
	sql="select * from [adv_config] where adv_type='默认'"
	rs.Open sql,conn_adv,1,3
	if rs.eof and rs.bof then
		rs.addnew
		rs("adv_type")="默认"
		rs("adv_url")=request.form("adv_url")
		rs("adv_txt")=request.form("adv_txt")
		rs("adv_img")=request.form("adv_img")
		rs("adv_cheat")=request.form("adv_cheat")
		rs("adv_wealth")=request.form("adv_wealth")
		rs("adv_ep")=request.form("adv_ep")
		rs("adv_cp")=request.form("adv_cp")
		rs.update
	else
		rs("adv_url")=request.form("adv_url")
		rs("adv_txt")=request.form("adv_txt")
		rs("adv_img")=request.form("adv_img")
		rs("adv_cheat")=request.form("adv_cheat")
		rs("adv_wealth")=request.form("adv_wealth")
		rs("adv_ep")=request.form("adv_ep")
		rs("adv_cp")=request.form("adv_cp")
		rs.update
	end if
	rs.close
	set rs=nothing
		Response.Write "广告公司信息已经保存成功"
end sub
%>