<!--#include file="conn.asp" -->
<% adm_power_page=5 '分配本页的用户访问权限 %>
<!--#include file="../inc/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="css.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="2" topmargin="0">
<p><strong><font color="#006600">财务报表显示</font></strong></p>
<p>&nbsp;</p>
<table width="90%" border="0" align="center" cellpadding="1" cellspacing="1">
  <tr> 
    <td colspan="4"> <div align="center"></div>
      <div align="center"></div></td>
  </tr>
  <tr> 
    <td width="20%" bgcolor="#E1E1E1">用 户 购 物：</td>
    <td width="28%" bgcolor="#F9F9F9"><div align="center"><font color="#FF0000"> 
	<% if Trim(Request.QueryString("f"))="reg" then 
    Response.Write("20030929450<br>") 
    end if
	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%">&nbsp;</td>
          <td width="34%"><div align="center"><%= con1+con2+con3 %></div></td>
        </tr>
      </table></td>
  </tr>
</table>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p align="center">&nbsp;</p>
<p align="center">－显示所有财务日志－　-显示今天财务日志-</p>
<p align="center">&nbsp;</p>
<p align="center">&nbsp;</p>
<p align="center"><a href="adm_14.asp">返回财务日志查询 &gt;&gt;</a></p>
</body>
</html>
