money_stat.asp

在线点播系统

<!--#include file="chklogin.asp"-->
<%

call myobj.chkrq()

set rs=server.createobject("adodb.recordset")
rs.open "select top 1 * from money_stat order by money_time",conn,1,1
if rs("money_time")="" or rs("money_time")=null then
	min_year=year(now)
else
	min_year=year(rs("money_time"))
end if
rs.close
max_year=year(now)


if request("money_type")<>"" then
	if request("money_type")<>0 and request("money_type")<>1 and request("money_type")<>2 then
		response.write"<script language=javascript>alert('记录类型值错误');history.back();</Script>"
		response.end 
	end if
end if

if request("money_type")="" then '页面打开时，显示所有记录
	set rs=server.createobject("adodb.recordset")
	rs.open "select sum(money_count) from money_stat",conn,1,1
	stat_money=rs(0)
	rs.close
	set rs=server.createobject("adodb.recordset")
	rs.open "select * from money_stat order by id desc",conn,1,1
end if
if request("money_type")=0 then '类型为0时，显示所有记录
	if request("stat_year")="" then  '没有年份选择的时候显示所有记录
		set rs=server.createobject("adodb.recordset")
		rs.open "select sum(money_count) from money_stat",conn,1,1
		stat_money=rs(0)
		rs.close
		set rs=server.createobject("adodb.recordset")
		rs.open "select * from money_stat order by id desc",conn,1,1
	end if
	if request("stat_year")<>"" and request("stat_month")="" then '如果年份有选择而月份没选择则显示全年
		set rs=server.createobject("adodb.recordset")
		rs.open "select sum(money_count) from money_stat where datepart(year,money_time)="&request("stat_year")&"",conn,1,1
		stat_money=rs(0)
		rs.close
		set rs=server.createobject("adodb.recordset")
		rs.open "select * from money_stat Where datepart(year,money_time)="&request("stat_year")&" order by id desc",conn,1,1
	end if
	if request("stat_year")<>"" and request("stat_month")<>"" and request("stat_day")="" then '如果年份有选择月份有选择而日期没选择则显示全月
		set rs=server.createobject("adodb.recordset")
		rs.open "select sum(money_count) from money_stat where datepart(year,money_time)="&request("stat_year")&" and datepart(month,money_time)="&request("stat_month")&"",conn,1,1
		stat_money=rs(0)
		rs.close
		set rs=server.createobject("adodb.recordset")
		rs.open "select * from money_stat Where datepart(year,money_time)="&request("stat_year")&" and datepart(month,money_time)="&request("stat_month")&" order by id desc",conn,1,1
	end if
	if request("stat_year")<>"" and request("stat_month")<>"" and request("stat_day")<>"" then '如果年月日都有选择
		search_time=cdate(request("stat_year")&"-"&request("stat_month")&"-"&request("stat_day"))
		set rs=server.createobject("adodb.recordset")
		rs.open "select sum(money_count) from money_stat where money_time between '"&search_time&" 00:00:00' And '"&search_time&" 23:59:59'",conn,1,1
		stat_money=rs(0)
		rs.close
		set rs=server.createobject("adodb.recordset")
		rs.open "select * from money_stat Where money_time between '"&search_time&" 00:00:00' And '"&search_time&" 23:59:59' order by id desc",conn,1,1
	end if
end if
if request("money_type")=1 then '类型为0时，显示所有记录
	if request("stat_year")="" then  '没有年份选择的时候显示所有记录
		set rs=server.createobject("adodb.recordset")
		rs.open "select sum(money_count) from money_stat where money_type=1",conn,1,1
		stat_money=rs(0)
		rs.close
		set rs=server.createobject("adodb.recordset")
		rs.open "select * from money_stat where money_type=1 order by id desc",conn,1,1
	end if
	if request("stat_year")<>"" and request("stat_month")="" then '如果年份有选择而月份没选择则显示全年
		set rs=server.createobject("adodb.recordset")
		rs.open "select sum(money_count) from money_stat where money_type=1 and datepart(year,money_time)="&request("stat_year")&"",conn,1,1
		stat_money=rs(0)
		rs.close
		set rs=server.createobject("adodb.recordset")
		rs.open "select * from money_stat Where money_type=1 and datepart(year,money_time)="&request("stat_year")&" order by id desc",conn,1,1
	end if
	if request("stat_year")<>"" and request("stat_month")<>"" and request("stat_day")="" then '如果年份有选择月份有选择而日期没选择则显示全月
		set rs=server.createobject("adodb.recordset")
		rs.open "select sum(money_count) from money_stat where money_type=1 and datepart(year,money_time)="&request("stat_year")&" and datepart(month,money_time)="&request("stat_month")&"",conn,1,1
		stat_money=rs(0)
		rs.close
		set rs=server.createobject("adodb.recordset")
		rs.open "select * from money_stat Where money_type=1 and datepart(year,money_time)="&request("stat_year")&" and datepart(month,money_time)="&request("stat_month")&" order by id desc",conn,1,1
	end if
	if request("stat_year")<>"" and request("stat_month")<>"" and request("stat_day")<>"" then '如果年月日都有选择
		search_time=cdate(request("stat_year")&"-"&request("stat_month")&"-"&request("stat_day"))
		set rs=server.createobject("adodb.recordset")
		rs.open "select sum(money_count) from money_stat where money_type=1 and money_time between '"&search_time&" 00:00:00' And '"&search_time&" 23:59:59'",conn,1,1
		stat_money=rs(0)
		rs.close
		set rs=server.createobject("adodb.recordset")
		rs.open "select * from money_stat Where money_type=1 and money_time between '"&search_time&" 00:00:00' And '"&search_time&" 23:59:59' order by id desc",conn,1,1
	end if
end if

if request("money_type")=2 then '类型为0时，显示所有记录
	if request("stat_year")="" then  '没有年份选择的时候显示所有记录
		set rs=server.createobject("adodb.recordset")
		rs.open "select sum(money_count) from money_stat where money_type=2",conn,1,1
		stat_money=rs(0)
		rs.close
		set rs=server.createobject("adodb.recordset")
		rs.open "select * from money_stat where money_type=2 order by id desc",conn,1,1
	end if
	if request("stat_year")<>"" and request("stat_month")="" then '如果年份有选择而月份没选择则显示全年
		set rs=server.createobject("adodb.recordset")
		rs.open "select sum(money_count) from money_stat where money_type=2 and datepart(year,money_time)="&request("stat_year")&"",conn,1,1
		stat_money=rs(0)
		rs.close
		set rs=server.createobject("adodb.recordset")
		rs.open "select * from money_stat Where money_type=2 and datepart(year,money_time)="&request("stat_year")&" order by id desc",conn,1,1
	end if
	if request("stat_year")<>"" and request("stat_month")<>"" and request("stat_day")="" then '如果年份有选择月份有选择而日期没选择则显示全月
		set rs=server.createobject("adodb.recordset")
		rs.open "select sum(money_count) from money_stat where money_type=2 and datepart(year,money_time)="&request("stat_year")&" and datepart(month,money_time)="&request("stat_month")&"",conn,1,1
		stat_money=rs(0)
		rs.close
		set rs=server.createobject("adodb.recordset")
		rs.open "select * from money_stat Where money_type=2 and datepart(year,money_time)="&request("stat_year")&" and datepart(month,money_time)="&request("stat_month")&" order by id desc",conn,1,1
	end if
	if request("stat_year")<>"" and request("stat_month")<>"" and request("stat_day")<>"" then '如果年月日都有选择
		search_time=cdate(request("stat_year")&"-"&request("stat_month")&"-"&request("stat_day"))
		set rs=server.createobject("adodb.recordset")
		rs.open "select sum(money_count) from money_stat where money_type=2 and money_time between '"&search_time&" 00:00:00' And '"&search_time&" 23:59:59'",conn,1,1
		stat_money=rs(0)
		rs.close
		set rs=server.createobject("adodb.recordset")
		rs.open "select * from money_stat Where money_type=2 and money_time between '"&search_time&" 00:00:00' And '"&search_time&" 23:59:59' order by id desc",conn,1,1
	end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>收入统计</title>
<link href="images/style2.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body,td,th {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 12px;
	color: #000000;
}
a:link {
	color: #0000FF;
	text-decoration: none;
}
a:visited {
	color: #0000FF;
	text-decoration: none;
}
a:hover {
	color: #FF0000;
	text-decoration: underline;
}
a:active {
	text-decoration: none;
}
-->
</style>
<script language="JavaScript">
function tourl(form1_url){
    location=form1_url;
    for(var i=0;i<document.form1.elements.length;i++){
        document.form1.elements[i].options[0].selected=true
    }
}
</script>
</head>

<body leftMargin="0" topMargin="0" bgcolor="#FFFFFF">
<table width="550" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
<table width="550" height="25" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#3975CE">
  <tr>
    <td align="center"><strong class="font1">收入统计</strong></td>
  </tr>
</table>
<table width="550" height="30" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#E7E7E7">
  <tr>
    <form name="form2" method="GET" action="money_stat.asp">
      <td align="center" bgcolor="#F7F7F7">日期为：