<!--#include file="Admin_Check.asp"-->
<!--#include file="z_adv_conn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
dim rs_adv,sql_Adv,Content
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
	Content= "<table border=0 cellpadding=0  align=""center"" cellspacing=0 style='border-collapse: collapse' bordercolor=#749AEC width='100%'><tr>"
	Content=Content& "<tr><td>总反馈量：<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>"
	Content=Content& "<table border=6 cellpadding=0 height=430 cellspacing=0 style='border-collapse: collapse' bordercolor=#749AEC width='100%'><tr>"
	Content=Content& "<th  colspan='2'>广告公司参数设定（总反馈："&rs_adv("adv_click")&"，有效反馈："&rs_adv("adv_click1")&")</th></tr>"
	Content=Content& "<tr  align=""center""><form method='POST' action='?action=save'><td width=28%  align='center'><b>广告内容</b>：<br>即点击广告后打开的网页&nbsp;</td><td align=""center""><input name='adv_url' type='text' size=50 value='"&rs_adv("adv_url")&"'> * 请输入网址</td></tr>"
	Content=Content& "<tr><td  align='right'><b>文字广告</b>：<br>即文字链接的内容&nbsp;</td><td><input name='adv_txt' type='text' size=50 value='"&rs_adv("adv_txt")&"'> * 请输入字符</td></tr>"
	Content=Content& "<tr><td  align='right'><b>图片广告</b>：<br>即在别人网站上时显示的图片&nbsp;</td><td><input name='adv_img' type='text' size=50 value='"&rs_adv("adv_img")&"'> * 请输入绝对地址<br><img src='"&rs_adv("adv_img")&"' > </td></tr>"
	Content=Content& "<tr><td  align='right'><b>防止作弊</b>：<br>即防刷新，限定同一IP点击的间隔&nbsp;</td><td><input name='adv_cheat' type='text' size=5 value='"&rs_adv("adv_cheat")&"'> * 请输入同一IP点击有效的间隔分钟数</td></tr>"
	Content=Content& "<tr><td  align='right'>金钱/反馈点：</td><td><input name='adv_wealth' type='text' size=5 value='"&rs_adv("adv_wealth")&"'>  * 请输入数字</td></tr>"
	Content=Content& "<input name='adv_ep' type='hidden' size=5 value='"&rs_adv("adv_ep")&"'><input name='adv_cp' type='hidden' size=5 value='"&rs_adv("adv_cp")&"'>"
	Content=Content& "<tr><td colspan='2' align='center'>以上数据请规规矩矩的输入，该输数字的，就输数字，该输网址的，就输网址，否则，出错了，天皇老子也救不了你了。</td></tr>"
	Content=Content& "<tr><td colspan='2' align='center'><input type='submit' value='  确　定  '  name='cmdok' ></td></tr></font></table>"
		Call showtable("广告公司管理",Content)
	rs_adv.close
	set rs_adv=nothing
if request("action")="save" then
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
%><script language=vbscript>
msgbox "对不起！您有填错的项目，请您仔细检查一下",16,"出错提示！！"
location.href="adv_admin.asp"
</script>
<%
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("adv_cp")=request.form("adv_cp")
		rs_adv.update
	rs_adv.close
	set rs_adv=nothing
	%><script language=vbscript>
msgbox "恭喜你！资料修改成功！",15,"正确提示！！"
location.href="admin_adv.asp"
</script>
<%
end if
%>