📄 fee_total.asp
字号:
<!--#include file="conn.asp" -->
<!--#include file="admin_dn.asp" -->
<!--#include file="mail_inc.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="image/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="5" topmargin="5">
<p><strong><font color="#006600">财务报表显示</font></strong></p>
<p> </p>
<table width="90%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr bgcolor="#CCCCCC">
<td colspan="4"> </td>
</tr>
<tr>
<td width="20%" bgcolor="#E1E1E1">用 户 购 物：</td>
<td width="28%" bgcolor="#F9F9F9"><div align="center"><font color="#FF0000">
<%
rs.open "select * from memo where log='购物'",conn,1,1
if not rs.eof then
Response.Write(rs.recordcount)
end if
con1=0
while not rs.eof
con1=rs("je")+con1
rs.movenext
wend
rs.close
%>
条 </font></div></td>
<td width="15%" bgcolor="#E1E1E1"><div align="center">总 金 额</div></td>
<td width="37%" bgcolor="#F9F9F9"><div align="center"><%= con1 %></div></td>
</tr>
<tr>
<td height="19" bgcolor="#E1E1E1">手 工 入 账：</td>
<td bgcolor="#F9F9F9"><div align="center"><font color="#FF0000">
<%
rs.open "select * from memo where log='入账'",conn,1,1
if not rs.eof then
Response.Write(rs.recordcount)
end if
con2=0
while not rs.eof
con2=rs("je")+con2
rs.movenext
wend
rs.close
%>
条 </font></div></td>
<td bgcolor="#E1E1E1"><div align="center">总 金 额</div></td>
<td bgcolor="#F9F9F9"><div align="center"><%= con2 %></div></td>
</tr>
<tr>
<td bgcolor="#E1E1E1">入 账 确 认：</td>
<td bgcolor="#F9F9F9"><div align="center"><font color="#FF0000">
<%
rs.open "select * from memo where log='入账确认'",conn,1,1
if not rs.eof then
Response.Write(rs.recordcount)
end if
con3=0
while not rs.eof
con3=rs("je")+con3
rs.movenext
wend
rs.close
%>
条 </font></div></td>
<td bgcolor="#E1E1E1"><div align="center">总 金 额</div></td>
<td bgcolor="#F9F9F9"><div align="center"><%= con3 %></div></td>
</tr>
<tr bgcolor="#CCCCCC">
<td colspan="4"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="9%">总 记 </td>
<td width="48%"><div align="center"><font color="#FF0000">
<%
rs.open "memo",conn,1,1
if not rs.eof then
Response.Write(rs.recordcount)
end if
rs.close
%>
条</font></div></td>
<td width="9%"> </td>
<td width="34%"><div align="center"><%= con1+con2+con3 %></div></td>
</tr>
</table></td>
</tr>
</table>
<p> </p>
<p> </p>
<p> </p>
<p align="center"> </p>
<p align="center">－<a href="fee_all.asp">显示所有财务日志</a>－ -<a href="fee_detail.asp">显示今天财务日志</a>-</p>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"><a href="fee_detail.asp">返回财务日志查询 >></a></p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -