get_start_ad.asp

动力商业广告Sql版本全方位的WEB开发学习应用交流共享服务

<%@ LANGUAGE = VBScript.Encode %>
<!--#include file="../../inc/verify_user.inc" -->
<!--#include file="../../inc/conn.inc" -->


<%
Set rs = Server.CreateObject("ADODB.Recordset")






sql="select * from user_role where userid=" + cstr(session("userid")) + " and group_id=" + request("group_id")
rs.open sql,conn,0,1
if rs.eof then
	result=0 '无设置权限
		else
				if instr(rs("role_property"),"b")<>0 then
					result=1 '有设置权限
						else
							result=0 '无设置权限
				end if
end if
rs.close

if instr(session("global_access"),"G")<>0 then result=1 '有设置权限

if result=0 then
	response.write "权限不足，无法完成操作！"
	set rs=nothing
	conn.close
	set conn=nothing
	response.end
end if







sql="select * from ad_info where group_id=" + request("group_id") + " and status=1"
rs.open sql,conn,1,3

ad_count=rs.recordcount
decrease_sum_show_ratio=0
sum_ratio=0


if ad_count>0 then '从其他正在播放的广告中加权的扣除显示比


	i=0
	
	do while not rs.eof
	
		i=i+1
		if i=ad_count then
			rs("show_ratio")=100-cint(request("show_ratio"))-sum_ratio
				else
					sum_ratio=sum_ratio+rs("show_ratio")-int(cint(request("show_ratio"))*rs("show_ratio")/100)
					rs("show_ratio")=rs("show_ratio")-int(cint(request("show_ratio"))*rs("show_ratio")/100)
					
		end if
		
		decrease_sum_show_ratio=decrease_sum_show_ratio+int(cint(request("show_ratio"))*rs("show_ratio")/100)
		rs.update
		rs.movenext
	loop
	rs.close
	
	show_ratio=cint(request("show_ratio"))
	
		else '新增广告显示比为100
		
			show_ratio=100
			

end if



Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection=conn
cmd.CommandText="get_start_ad"
cmd.CommandType=&H0004

cmd.Parameters.Append cmd.CreateParameter("@ad_id",3)
cmd.Parameters.Append cmd.CreateParameter("@show_ratio",3)

cmd("@ad_id")=clng(request("ad_id"))
cmd("@show_ratio")=show_ratio

cmd.execute



set rs=nothing
set cmd=nothing
conn.close
set conn=nothing

response.redirect "ad_setting_summary.asp?group_id=" & request("group_id")

%>