📄 group_report_summary.asp

📁 动力商业广告Sql版本全方位的WEB开发学习应用交流共享服务
💻 ASP
字号:
<!--#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
		Response.Write (instr(rs("role_property"),"d"))

				if instr(rs("role_property"),"d")<>0 then
					result=1 '有查看统计权限
						else
							result=0 '无查看统计权限
				end if
end if
rs.close

if instr(session("global_access"),"H")<>0 then result=1 '有查看统计权限




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

cmd.Parameters.Append cmd.CreateParameter("@userid",3)
cmd.Parameters.Append cmd.CreateParameter("@group_id",3)
cmd.Parameters.Append cmd.CreateParameter("@stat_date",135)
cmd.Parameters.Append cmd.CreateParameter("@this_week_begin_date",135)
cmd.Parameters.Append cmd.CreateParameter("@group_name",200,2,50)
cmd.Parameters.Append cmd.CreateParameter("@total_ad_count",16,2)
cmd.Parameters.Append cmd.CreateParameter("@playing_ad_count",16,2)
cmd.Parameters.Append cmd.CreateParameter("@total_show_stat",3,2)
cmd.Parameters.Append cmd.CreateParameter("@total_hit_stat",3,2)
cmd.Parameters.Append cmd.CreateParameter("@today_show_stat",3,2)
cmd.Parameters.Append cmd.CreateParameter("@today_hit_stat",3,2)
cmd.Parameters.Append cmd.CreateParameter("@this_week_show_stat",3,2)
cmd.Parameters.Append cmd.CreateParameter("@this_week_hit_stat",3,2)


cmd("@userid")=session("userid")
cmd("@group_id")=clng(request("group_id"))
cmd("@stat_date")=cdate(formatdatetime(now,2))
cmd("@this_week_begin_date")=formatdatetime(now-(datediff("d","2001-1-7",now) mod 7),2)

cmd.execute

if isnull(cmd("@total_show_stat")) then
	total_hit_rate=0
		else
			total_hit_rate=formatnumber(cmd("@total_hit_stat")/cmd("@total_show_stat")*100,2)
end if
	
if isnull(cmd("@today_show_stat")) then
	today_hit_rate=0
		else
			today_hit_rate=formatnumber(cmd("@today_hit_stat")/cmd("@today_show_stat")*100,2)
end if
	
if isnull(cmd("@this_week_show_stat")) then
	this_week_hit_rate=0
		else
			this_week_hit_rate=formatnumber(cmd("@this_week_hit_stat")/cmd("@this_week_show_stat")*100,2)
end if

%>

<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../../css/ads.css" type="text/css">
<style type="text/css">
<!--
.bg_font {  font-size: 14px; color: #000000; background-color: #FFFFE1}
-->
</style>
<script language="JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>




<body bgcolor="#FFFFFF" text="#000000">
<!--#include file="../../inc/top.inc" -->
<p>&nbsp;</p>

<% if result=1 then %>
<table width="620" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td width="395"> 
<table width="389" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td width="7"> 
<div align="right"><img 
      height=24 src="../../images/grey_lft.gif" 
      width=6></div>
</td>
<td width="77" background="../../images/grey_bg.gif"> 
<div align="center" class="px14"><a href="group_report_summary.asp?group_id=<%=request("group_id")%>" class="px14_noline">概 
况</a></div>
</td>
<td width="7"><img height=24 
      src="../../images/grey_rt.gif" 
width=6></td>
<td width="10"> 
<div align="right"><img 
      height=24 src="../../images/gold_lft.gif" 
      width=6></div>
</td>
<td width="98" background="../../images/gold_bg.gif"> 
<div align="center" class="px14"><a href="group_report_hour.asp?group_id=<%=request("group_id")%>" class="px14_noline">时 
报 表</a></div>
</td>
<td width="7"><img height=24 
      src="../../images/gold_rt.gif" 
width=6></td>
<td width="8"> 
<div align="right"><img 
      height=24 src="../../images/gold_lft.gif" 
      width=6></div>
</td>
<td width="77" background="../../images/gold_bg.gif" class="px14"> 
<div align="center"><a href="group_report_day.asp?group_id=<%=request("group_id")%>" class="px14_noline">日 
报 表</a></div>
</td>
<td width="7"><img height=24 
      src="../../images/gold_rt.gif" 
width=6></td>
<td width="7"> 
<div align="right"><img 
      height=24 src="../../images/gold_lft.gif" 
      width=6></div>
</td>
<td width="83" background="../../images/gold_bg.gif" class="px14"> 
<div align="center"><a href="group_report_month.asp?group_id=<%=request("group_id")%>" class="px14_noline">月 
报 表</a></div>
</td>
<td width="10"><img height=24 
      src="../../images/gold_rt.gif" 
width=6></td>
</tr>
</table>
</td>
<form name="groupform">
<td width="214" align="right"><%
sql="select group_id,group_name from group_info order by group_id Desc"
rs.open sql,conn,0,1
%>
<select name="groupmenu" onChange="MM_jumpMenu('self',this,0)">
<option value="#" selected>查看其他组别统计报表</option>
<% do while not rs.eof %>
<option value="group_report_summary.asp?group_id=<%=rs("group_id")%>"><%=rs("group_name")%></option>
<%
rs.movenext
loop
rs.close
%>
</select></td>
</form>
</tr>
</table>
<table width="620" border="0" cellspacing="1" cellpadding="2" bgcolor="#CCCCCC" class="pt9">
<tr bgcolor="#000099"> 
<td height="28" width="576" colspan="2">&nbsp;<font color="#FFFFFF" class="px14"><span class="bg_font">[<%=cmd("@group_name")%>]</span> 
－ 概况</font></td>
</tr>
<tr> 
<td bgcolor="#FFFFFF" width="287" height="12"> 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#FAFAFA"> 
<td width="47%" class="pt9"><a href="../ad/ad_setting_summary.asp?group_id=<%=request("group_id")%>">正在播放广告数/总广告数</a>：</td>
<td width="28%" class="pt9" align="right"><%=cmd("@total_ad_count")%>/<%=cmd("@playing_ad_count")%></td>
</tr>
</table>
</td>
<td bgcolor="#FFFFFF" width="288" height="12">&nbsp;</td>
</tr>
<tr bgcolor="#FFFFFF"> 
<td width="576" colspan="2">&nbsp;</td>
</tr>
<tr> 
<td bgcolor="#FFFFF4" width="287"> 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td width="47%" class="pt9">总显示次数：</td>
<td width="28%" class="pt9" align="right"><%=cmd("@total_show_stat")%></td>
</tr>
</table>
</td>
<td bgcolor="#FFFFFF" width="288">&nbsp;</td>
</tr>
<tr> 
<td bgcolor="#FFFFF4" width="287"> 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td width="47%" class="pt9">总点击次数：</td>
<td width="28%" class="pt9" align="right"><%=cmd("@total_hit_stat")%></td>
</tr>
</table>
</td>
<td bgcolor="#FFFFFF" width="288">&nbsp;</td>
</tr>
<tr> 
<td bgcolor="#FFFFF4" width="287"> 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td width="47%" class="pt9">总平均点击率：</td>
<td width="28%" class="pt9" align="right"><%=total_hit_rate%>%</td>
</tr>
</table>
</td>
<td bgcolor="#FFFFFF" width="288">&nbsp;</td>
</tr>
<tr bgcolor="#FFFFFF"> 
<td width="576" colspan="2" height="38"><img src="../../images/exclaim.gif" width="16" height="15" align="absmiddle"> 
以上统计数据非实时数据</td>
</tr>
<tr> 
<td bgcolor="#F0FAFF" width="287"> 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td width="47%" class="pt9">今日显示次数：</td>
<td width="28%" class="pt9" align="right"><%=cmd("@today_show_stat")%></td>
</tr>
</table>
</td>
<td bgcolor="#FFFFFF" width="288">&nbsp;</td>
</tr>
<tr> 
<td bgcolor="#F0FAFF" width="287"> 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td width="47%" class="pt9">今日点击次数：</td>
<td width="28%" class="pt9" align="right"><%=cmd("@today_hit_stat")%></td>
</tr>
</table>
</td>
<td bgcolor="#FFFFFF" width="288">&nbsp;</td>
</tr>
<tr> 
<td bgcolor="#F0FAFF" width="287"> 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td width="47%" class="pt9">今日点击率：</td>
<td width="28%" class="pt9" align="right"><%=today_hit_rate%>%</td>
</tr>
</table>
</td>
<td bgcolor="#FFFFFF" width="288">&nbsp;</td>
</tr>
<tr> 
<td bgcolor="#FFFFFF" width="576" colspan="2" height="38"><img src="../../images/exclaim.gif" width="16" height="15" align="absmiddle"> 
以上统计数据为实时数据</td>
</tr>
<tr> 
<td bgcolor="#FFFFF4" width="287"> 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td width="47%" class="pt9">本周显示次数：</td>
<td width="28%" class="pt9" align="right"><%=cmd("@this_week_show_stat")%></td>
</tr>
</table>
</td>
<td bgcolor="#FFFFFF" width="288">&nbsp;</td>
</tr>
<tr> 
<td bgcolor="#FFFFF4" width="287"> 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td width="47%" class="pt9">本周点击次数：</td>
<td width="28%" class="pt9" align="right"><%=cmd("@this_week_hit_stat")%></td>
</tr>
</table>
</td>
<td bgcolor="#FFFFFF" width="288">&nbsp;</td>
</tr>
<tr> 
<td bgcolor="#FFFFF4" width="287"> 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td width="47%" class="pt9">本周点击率：</td>
<td width="28%" class="pt9" align="right"><%=this_week_hit_rate%>%</td>
</tr>
</table>
</td>
<td bgcolor="#FFFFFF" width="288">&nbsp;</td>
</tr>
<tr> 
<td bgcolor="#FFFFFF" colspan="2" height="38"><img src="../../images/exclaim.gif" width="16" height="15" align="absmiddle"> 
以上统计数据非实时数据</td>
</tr>
</table>


<% else %>

<table width="321" border="0" cellspacing="1" cellpadding="2">
<tr> 
<td class="px14"><b><font color="#FF0000">权限不足，无法进行此操作！</font></b></td>
</tr>
</table>
<% end if %>



<p>&nbsp;</p>

<!--#include file="../../inc/bottom.inc" -->

</body>
</html>


<%
set rs=nothing
conn.close
set conn=nothing
%>
💿 文件大小 280 K
👤 上传用户 sunyuang
📂 所属分类其他
🏷️ 相关标签

#Sql #WEB #动力 #全方位
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -