📄 stat.asp
字号:
<!--#include file="../config.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
Application_ID = 3000105 '本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID) then '验证权限
Server.Transfer "../err/un_authorized.htm"
response.end
end if
%>
<!--**************身份验证部分****************-->
<%
From_Date = request("From_Date")
To_Date = request("To_Date")
if not IsNot(From_Date,"d") then From_Date = "1900-1-1"
if not IsNot(To_Date,"d") then To_Date = (year(date())+50) & "-" & month(date()) & "-" & day(date())
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open connstr
sql = "select sum(Account + Chg_Account) as Total_Account,sum(Received) as Total_Recieved from Contracts where Available = 1"
sql = sql & " and Sign_Date >= '" & From_Date & "' and Sign_Date <= '" & To_Date & "'"
'response.write sql
set rs = conn.execute(sql)
if not rs.eof then
Total_Account = rs("Total_Account")
Total_Recieved = rs("Total_Recieved")
else
Total_Account = 0
Total_Recieved = 0
end if
rs.close
set rs = nothing
conn.close
set conn = nothing
if Total_Account <> 0 then
Recieved_Rate = CStr(CInt(CLng(Total_Recieved * 10000)/Total_Account)/100) & "%"
else
Recieved_Rate = "0%"
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK rel="stylesheet" type="text/css" href="../style.css">
<script language="JavaScript" type="text/javascript" src="../js/functions.js"></script>
</head>
<body>
<form action="stat.asp" method="post">
<table border=0 width="100%" cellpadding=0 cellspacing=0>
<tr>
<td>财务统计（注意：以下结果以签约时间为准）</td>
<td align="right">
<input type="text" name="From_Date" size="10" maxlength="10" value="<%= From_Date %>"> <= 签约日期
<= <input type="text" name="To_Date" size="10" maxlength="10" value="<%= To_Date %>">
<input type="submit" name="Submit" value="统计">
</td>
</tr>
</table>
<table border=0 cellpadding=1 cellspacing=1 bgcolor="#EFEFEF" width="100%">
<tr>
<td colspan=9 height=1 bgcolor="#999999"></td>
</tr>
<tr bgcolor="#EFEFEF">
<td>合同总金额：￥<%= Total_Account %></td>
<td> </td>
<td>实收总金额：￥<%= Total_Recieved %></td>
<td> </td>
<td>应收总金额：￥<%= Total_Account - Total_Recieved %> </td>
<td> </td>
<td>收款比例：<%= Recieved_Rate %></td>
<td> </td>
<td><a href="list.asp?Sign_Date_Min=<%= From_Date %>&Sign_Date_Max=<%= To_Date %>" target="main">查看这一区间合同</a></td>
</tr>
</table>
<br>
年度统计报表（注意：以下结果以签约时间为准）
<table border=0 cellpadding=1 cellspacing=1 bgcolor="#EFEFEF" width="100%">
<tr>
<td colspan=6 height=1 bgcolor="#999999"></td>
</tr>
<tr bgcolor="#EFEFEF">
<td>年度</td>
<td>合同签约总金额</td>
<td>实收总金额</td>
<td>应收总金额</td>
<td>收款比例</td>
<td>查看这一年度合同</td>
</tr>
<%
'取得年限范围
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open connstr
sql = "select top 1 Sign_Date from Contracts order by Sign_Date"
'response.write sql
set rs = conn.execute(sql)
if not rs.eof then
Min_Sign_Date = year(rs("Sign_Date"))
else
Min_Sign_Date = year(date)
end if
sql = "select top 1 Sign_Date from Contracts order by Sign_Date DESC"
set rs = conn.execute(sql)
if not rs.eof then
Max_Sign_Date = year(rs("Sign_Date"))
else
Max_Sign_Date = year(date)
end if
'显示每个年度的统计结果
j = 0
for i = Min_Sign_Date to Max_Sign_Date
if j mod 2 = 0 then
bgcolor = "#FFFFFF"
else
bgcolor = "#EFEFEF"
end if
sql = "select sum(Account + Chg_Account) as Total_Account,sum(Received) as Total_Recieved from Contracts where Available = 1"
sql = sql & " and Sign_Date >= '" & i & "-1-1" & "' and Sign_Date <= '" & i & "-12-31" & "'"
set rs = conn.execute(sql)
if not rs.eof then
Total_Account = rs("Total_Account")
Total_Recieved = rs("Total_Recieved")
else
Total_Account = 0
Total_Recieved = 0
end if
if Total_Account <> 0 then
Recieved_Rate = CStr(CInt(CLng(Total_Recieved * 10000)/Total_Account)/100) & "%"
else
Recieved_Rate = "0%"
end if
%>
<tr bgcolor="<%= bgcolor %>">
<td><%= i %></td>
<td>￥<%= Total_Account %></td>
<td>￥<%= Total_Recieved %></td>
<td>￥<%= Total_Account - Total_Recieved %></td>
<td><%= Recieved_Rate %></td>
<td><a href="list.asp?Sign_Date_Min=<%= i & "-1-1" %>&Sign_Date_Max=<%= i & "-12-31" %>" target="main">查看<%= i %>签订的合同</a></td>
</tr>
<%
j = j + 1
next
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
</table>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -