<!--#include file="../conn.asp"-->
<!--#include file="z_adv_conn.asp"-->
<!--#include file="../fun.asp"-->
<%
dim stats,sql_adv,rs_adv,myid,mymoney,myep,mysave,mylife,rs,sql,LxTelMB,BoardData,sys,fString

sys=sysinfo()
LxTelMB=LxTel_MB '读取模板
fString = replace(LxTelMB(2,0), "$Subject$", "广告公司")
fString = replace(fString, "$Url$", sys(5,0))
Response.Write fString '输出顶部内容
Menu
Response.Write "<table width="&LxTelMB(1,0)&" align=center border=1 class=table0 style=""border-collapse: collapse""><tr><td height=27>&nbsp;<img src=../images/sys/nav.gif>&nbsp;<a href=../index.asp>论坛首页</a>&nbsp;→&nbsp;广告公司</td></tr></table>"

if Request.Cookies(BBSInfo&"username")<>"admin" or islogin<>"Y" then
    Response.Write "<li>您不是指定的广告公司管理员"
    tom
    Response.End
end if
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
		Response.Write "<table cellspacing=1 cellpadding=2 width=760 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=760 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'>先锋网络</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")="" or request.form("adv_txt")="" or request.form("adv_img")="" or  request.form("adv_cheat")="" or  request.form("adv_wealth")="" or  request.form("adv_ep")="" then
		Response.Write "信息保存不够。有一栏或更多栏信息尚未填写。"
		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
	
			Response.Write "广告公司信息已经保存成功"
end if
end sub
tom
%>
