<!--#include file="setup.asp"-->
<!--#include file="z_adv_conn.asp"-->
<link href="images/skins/<%=Request.Cookies("skins")%>/bbs.css" rel="stylesheet">
<%
top
if membercode<5 then error("<li>您不是指定的社区广告管理员，不能登陆后台管理!")
main
sub main()
set rs_adv=server.createobject("adodb.recordset")
	sql_adv="select * from [adv_config] where adv_type='默认'"
	rs_adv.Open sql_adv,conn_adv,1,3
%>
<table border=0 width=97% align=center cellspacing=1 cellpadding=4 class=a2>
<tr class=a3>
<td height=25>&nbsp;<img src=images/Forum_nav.gif>&nbsp; <%ClubTree%> → 
<a href="z_adv.asp">返回广告公司</a></td>
</tr>
</table>
<br>
<%
		Response.Write "<table cellspacing=1 cellpadding=2 width=97% border=0 class=a2 align=center><form method='POST' action='?action=save'>"
	
	Response.Write "<tr><td class=a3 align=center>总反馈量：<b> "&rs_adv("adv_click")&" </b>次<br>有效反馈：<b> "&rs_adv("adv_click1")&" </b>次<br>看来，有<b> "&rs_adv("adv_click")-rs_adv("adv_click1")&" </b>的反馈量你是不用付钱的，或者说，是客户乱点击的，无效。</td></tr></table><br>"
		
	Response.Write "<table cellspacing=1 cellpadding=2 width=97% border=0 class=a2 align=center>"
	Response.Write "<tr><td class=a1 colspan='8' height=20 align=center><b>广告公司参数设定（总反馈："&rs_adv("adv_click")&"，有效反馈："&rs_adv("adv_click1")&")</b></td></tr>"
	Response.Write "<tr><td width=28%  align='right' class=a3><b>广告内容</b>：<br>即点击广告后，要打开的网页&nbsp;</td><td class=a3><input name='adv_url' type='text' size=50 value='"&rs_adv("adv_url")&"'> * 请输入网址</td></tr>"
	Response.Write "<tr><td  align='right' class=a3><b>文字广告</b>：<br>即文字链接的内容&nbsp;</td><td class=a3><input name='adv_txt' type='text' size=50 value='"&rs_adv("adv_txt")&"'> * 请输入字符，比如 <b><font color='#ff0000'>酷BBS官方社区</font></b> 这几个字</td></tr>"
	Response.Write "<tr><td  align='right' class=a3><b>图片广告</b>：<br>即发到别人网站上时显示的个性图片&nbsp;</td><td class=a3><input name='adv_img' type='text' size=50 value='"&rs_adv("adv_img")&"'> * 请输入个性图片的绝对地址<br><img src='"&rs_adv("adv_img")&"' > </td></tr>"
	Response.Write "<tr><td  align='right' class=a3><b>防止作弊</b>：<br>即防刷新，可限定同一IP点击的间隔&nbsp;</td><td class=a3><input name='adv_cheat' type='text' size=5 value='"&rs_adv("adv_cheat")&"'> * 请输入同一IP点击有效的间隔秒数</td></tr>"
	Response.Write "<tr><td  align='right' class=a3>金钱/反馈点：</td><td class=a3><input name='adv_wealth' type='text' size=5 value='"&rs_adv("adv_wealth")&"'>  * 请输入数字</td></tr>"
	Response.Write "<tr><td  align='right' class=a3>经验/反馈点：</td><td class=a3><input name='adv_ep' type='text' size=5 value='"&rs_adv("adv_ep")&"'>  * 请输入数字</td></tr>"
	Response.Write "<tr><td colspan='2' align='center' class=a3>以上数据请规规矩矩的输入，该输数字的，就输数字，该输网址的，就输网址，否则，出错了，天皇老子也救不了你了。</td></tr>"
	Response.Write "<tr><td colspan='2' align='center' class=a3><input type='submit' value='  确　定  '  name='cmdok' class=input></td></tr>"
	Response.Write "</font></table><br>"
	
	rs_adv.close
	set rs_adv=nothing
Response.Write "<p align=center><a href=z_adv_admin.asp>广告公司参数设置</a>    <a href=z_adv_del.asp>广告公司用户管理</a></p>"
	if request("action")="save" then
if request.form("adv_url")="" then error2( "主页地址未填写") end if
if request.form("adv_txt")="" then error2( "主页介绍未填写") end if
if request.form("adv_img")="" then error2( "LOGO图片地址未填写")  end if
if request.form("adv_cheat")="" then error2( "防作弊项未填写")  end if
if request.form("adv_wealth")="" then error2( "金钱/反馈点未填写") end if
if request.form("adv_ep")="" then error2( "经验/反馈点未填写") end if

	
	set rs_adv=server.createobject("adodb.recordset")
	sql_adv="select * from [adv_config] where adv_type='默认'"
rs_adv.Open sql_adv,conn_adv,1,3
		rs_adv("adv_url")=request.form("adv_url")
		rs_adv("adv_txt")=request.form("adv_txt")
		rs_adv("adv_img")=request.form("adv_img")
		rs_adv("adv_cheat")=request.form("adv_cheat")
		rs_adv("adv_wealth")=request.form("adv_wealth")
		rs_adv("adv_ep")=request.form("adv_ep")
		rs_adv.update
	rs_adv.close
	set rs_adv=nothing
	
			error2("广告公司信息已经保存成功")
end if
end sub
htmlend

%>
