mfunstate_bak.asp

功能最强大的ASP网站

<!--#include file="../inc/conn.asp"-->
<%
FunCode="F223"
session("title")="帐务统计"
session("headline")="首页 -> 注册系统 -> 帐务统计"
%>
<!--#include file="../inc/head2.asp"-->
<%
if request("act")<>"list" then
	call SltForm()
else
	list()
end if

sub list()
slt = request("slt")
 Select Case slt
           Case "1" 
		   	call list_1()
           Case "2" 
		   	call list_2()
           Case "3"
		   	call list_3()
		   Case "4" 
		   	call list_4()
			Case "5"
			call list_5()
			Case "6"
			call list_6()
           Case Else 
		   	session("mesg")="请选择动作"
			Response.Redirect "../result.asp"
End Select
end sub


'真实记帐统计
sub list_1()
set rs=server.createobject("adodb.recordset")
set rs2=server.createobject("adodb.recordset")
sql="select sum(amount) as count from accountdetail where (direction like '%真实入帐%') and (username in (select username from [user] where manageuser='"&session("username")&"'))"
rs.open sql,conn,1,1
sql="select sum(amount) as count from accountdetail where (direction like '%真实扣帐%') and (username in (select username from [user] where manageuser='"&session("username")&"'))"
rs2.open sql,conn,1,1

if rs.eof or rs2.eof then
	session("mesg")="对不起,没有任何记录"
	Response.Redirect "../result.asp"
end if

%>
      <br><br><br>
<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=88% class='size09' align='center'>


<tr><td class='color01' bgcolor='#efefef'>序号</td><td class='color01' bgcolor='#efefef'>用户名</td><td class='color01' bgcolor='#efefef'>到款入帐总额</td><td class='color01' bgcolor='#efefef'>到款扣帐总额</td></tr>

<tr><td>1</td><td><%=session("username")%></td><td>&nbsp;<%=rs("count")%></td><td>&nbsp;<%=rs2("count")%></td></tr>
</table>

<%
rs.close  
rs2.close
set rs=nothing 
set rs2=nothing
end sub


'真实记帐流水
sub list_2()
set rs=server.createobject("adodb.recordset")
sql="select * from accountdetail where (direction like '%真实%') and (username in (select username from [user] where manageuser='"&session("username")&"'))"
rs.open sql,conn,1,1

if rs.eof then
	session("mesg")="对不起,没有该任何记录"
	Response.Redirect "../result.asp"
end if

if not isempty(request("page")) then   
     pagecount=cint(request("page"))   
     else 
     pagecount=1 
     end if
	  rs.pagesize=30
     if pagecount>rs.pagecount or pagecount<=0 then              
     pagecount=1              
     end if              
     if not rs.eof then rs.AbsolutePage=pagecount
%>
      <br>
<img src='../images/dotdb.gif' width='10' height='10'> 
            <font color='#000000'>共计 <%=rs.recordcount%> 条记录</font>
			<br><br>

<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=88% class='size09' align='center'>


<tr><td class='color01' bgcolor='#efefef'>序号</td><td class='color01' bgcolor='#efefef'>用户名</td><td class='color01' bgcolor='#efefef'>摘要</td><td class='color01' bgcolor='#efefef'>发生额</td><td class='color01' bgcolor='#efefef'>余额</td><td class='color01' bgcolor='#efefef'>冻结金额</td><td class='color01' bgcolor='#efefef'>借款金额</td><td class='color01' bgcolor='#efefef'>记帐时间</td><td class='color01' bgcolor='#efefef'>备注</td></tr>


<% 
i=1
do while not rs.eof %> 	   
<tr><td><%=i+(pagecount-1)*pagesize%></td><td><%=rs("username")%></td><td><%=rs("direction")%></td><td><%=rs("amount")%></td><td><%=rs("balance")%></td><td><%=rs("freeze")%></td><td><%=rs("debit")%></td><td><%=rs("regtime")%></td><td><%=rs("remark")%></td></tr>
<% i=i+1                                                                                                  
          rs.movenext                                                                                                  
          if i>rs.PageSize then exit do 
		  loop                                                                    
           %>
</table>
<%=pagecount%>/<%=rs.pagecount%>&nbsp;
<% 
i=1
do while i<rs.pagecount+1 %> 
<%if i<> pagecount then%>
<A HREF=mFunState.asp?page=<%=i%>&clt=2&act=list><%=i%></A>  
<%else%>
<%=i%>
<%end if%>
<%i=i+1%>
<%loop
rs.close  
          set rs=nothing 
          conn.close                                                                                                
          set conn=nothing
end sub


'借款记帐统计
sub list_3()
set rs=server.createobject("adodb.recordset")
set rs2=server.createobject("adodb.recordset")
sql="select sum(amount) as count from accountdetail where (direction like '%借款入帐%') and (username in (select username from [user] where manageuser='"&session("username")&"'))"
rs.open sql,conn,1,1
sql="select sum(amount) as count from accountdetail where (direction like '%借款扣帐%') and (username in (select username from [user] where manageuser='"&session("username")&"'))"
rs2.open sql,conn,1,1

if rs.eof or rs2.eof then
	session("mesg")="对不起,没有任何记录"
	Response.Redirect "../result.asp"
end if
%>
      <br><br><br>
<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=88% class='size09' align='center'>


<tr><td class='color01' bgcolor='#efefef'>序号</td><td class='color01' bgcolor='#efefef'>用户名</td><td class='color01' bgcolor='#efefef'>借款入帐总额</td><td class='color01' bgcolor='#efefef'>借款扣帐</td></tr>
<tr><td>1</td><td><%=session("username")%></td><td>&nbsp;<%=rs("count")%></td><td>&nbsp;<%=rs2("count")%></td></tr>
</table>
<%
rs.close  
rs2.close
          set rs=nothing 
		  set rs2=nothing
end sub

'借款记帐明细
sub list_4()
set rs=server.createobject("adodb.recordset")
sql="select * from accountdetail where (direction like '%借款%') and (username in (select username from [user] where manageuser='"&session("username")&"'))"
rs.open sql,conn,1,1

if rs.eof then
	session("mesg")="对不起,没有该任何记录"
	Response.Redirect "../result.asp"
end if

if not isempty(request("page")) then   
     pagecount=cint(request("page"))   
     else 
     pagecount=1 
     end if
	  rs.pagesize=30
     if pagecount>rs.pagecount or pagecount<=0 then              
     pagecount=1              
     end if              
     if not rs.eof then rs.AbsolutePage=pagecount
%>
      <br>
<img src='../images/dotdb.gif' width='10' height='10'> 
            <font color='#000000'>共计 <%=rs.recordcount%> 条记录</font>
			<br><br>

<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=88% class='size09' align='center'>


<tr><td class='color01' bgcolor='#efefef'>序号</td><td class='color01' bgcolor='#efefef'>用户名</td><td class='color01' bgcolor='#efefef'>摘要</td><td class='color01' bgcolor='#efefef'>发生额</td><td class='color01' bgcolor='#efefef'>余额</td><td class='color01' bgcolor='#efefef'>冻结金额</td><td class='color01' bgcolor='#efefef'>借款金额</td><td class='color01' bgcolor='#efefef'>记帐时间</td><td class='color01' bgcolor='#efefef'>备注</td></tr>


<% 
i=1
do while not rs.eof %> 	   
<tr><td><%=i+(pagecount-1)*pagesize%></td><td><%=rs("username")%></td><td><%=rs("direction")%></td><td><%=rs("amount")%></td><td><%=rs("balance")%></td><td><%=rs("freeze")%></td><td><%=rs("debit")%></td><td><%=rs("regtime")%></td><td><%=rs("remark")%></td></tr>
<% i=i+1                                                                                                  
          rs.movenext                                                                                                  
          if i>rs.PageSize then exit do 
		  loop                                                                    
           %>
</table>
<%=pagecount%>/<%=rs.pagecount%>&nbsp;
<% 
i=1
do while i<rs.pagecount+1 %> 
<%if i<> pagecount then%>
<A HREF=mFunState.asp?page=<%=i%>&slt=4&act=list><%=i%></A>  
<%else%>
<%=i%>
<%end if%>
<%i=i+1%>
<%loop
rs.close  
          set rs=nothing 
end sub


sub list_5()
set rs=server.createobject("adodb.recordset")
sql="select * from accountdetail where (direction like '%招行%') and (username in (select username from [user] where manageuser='"&session("username")&"'))"
rs.open sql,conn,1,1

if rs.eof then
	session("mesg")="对不起,没有该任何记录"
	Response.Redirect "../result.asp"
end if

if not isempty(request("page")) then   
     pagecount=cint(request("page"))   
     else 
     pagecount=1 
     end if
	  rs.pagesize=30
     if pagecount>rs.pagecount or pagecount<=0 then              
     pagecount=1              
     end if              
     if not rs.eof then rs.AbsolutePage=pagecount
%>
      <br>
<img src='../images/dotdb.gif' width='10' height='10'> 
            <font color='#000000'>共计 <%=rs.recordcount%> 条记录</font>
			<br><br>
<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=88% class='size09' align='center'>
<tr><td class='color01' bgcolor='#efefef'>序号</td><td class='color01' bgcolor='#efefef'>用户名</td><td class='color01' bgcolor='#efefef'>摘要</td><td class='color01' bgcolor='#efefef'>发生额</td><td class='color01' bgcolor='#efefef'>余额</td><td class='color01' bgcolor='#efefef'>冻结金额</td><td class='color01' bgcolor='#efefef'>借款金额</td><td class='color01' bgcolor='#efefef'>记帐时间</td><td class='color01' bgcolor='#efefef'>备注</td></tr>
<% 
i=1
do while not rs.eof %> 	   
<tr><td><%=i+(pagecount-1)*pagesize%></td><td><%=rs("username")%></td><td><%=rs("direction")%></td><td><%=rs("amount")%></td><td><%=rs("balance")%></td><td><%=rs("freeze")%></td><td><%=rs("debit")%></td><td><%=rs("regtime")%></td><td><%=rs("remark")%></td></tr>
<% i=i+1                                                                                                  
          rs.movenext                                                                                                  
          if i>rs.PageSize then exit do 
		  loop                                                                    
           %>
</table>
<%=pagecount%>/<%=rs.pagecount%>&nbsp;
<% 
i=1
do while i<rs.pagecount+1 %> 
<%if i<> pagecount then%>
<A HREF=mFunState.asp?page=<%=i%>&slt=5&act=list><%=i%></A>  
<%else%>
<%=i%>
<%end if%>
<%i=i+1%>
<%loop
rs.close  
set rs=nothing 
end sub

sub list_6()
sql="select * from account where (debit>0.001) and (username in (select username from [user] where manageuser='"&session("username")&"'))"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then
	session("mesg")="无满足条件的记录"
	Response.Redirect "../result.asp"
end if

if not isempty(request("page")) then   
     pagecount=cint(request("page"))   
     else 
     pagecount=1 
     end if
	  rs.pagesize=20
     if pagecount>rs.pagecount or pagecount<=0 then              
     pagecount=1              
     end if              
     if not rs.eof then rs.AbsolutePage=pagecount
%>
	 <br>
<img src='../images/dotdb.gif' width='10' height='10'> 
            <font color='#000000'>共计 <%=rs.recordcount%> 条记录</font>
<br><br>
<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=88% class='size09' align='center'>
<tr><td class='color01' bgcolor='#efefef'>序号</td><td class='color01' bgcolor='#efefef'>用户名</td><td class='color01' bgcolor='#efefef'>余额</td><td class='color01' bgcolor='#efefef'>冻结金额</td><td class='color01' bgcolor='#efefef'>欠款金额</td><td class='color01' bgcolor='#efefef'>时间</td></tr>
<% 
i=1
do while not rs.eof %> 
<tr><td><%=i+(pagecount-1)*pagesize%></td><td><%=rs("username")%></td><td><%=rs("balance")%></td><td><%=rs("freeze")%></td><td><%=rs("debit")%></td><td><%=rs("regtime")%></td></tr>
<% i=i+1                                                                                                  
          rs.movenext                                                                                                  
          if i>rs.PageSize then exit do 
		  loop                                                                    
           %>	
</table>
<%=pagecount%>/<%=rs.pagecount%>&nbsp;
<% 
i=1
do while i<rs.pagecount+1 %> 
<%if i<> pagecount then%>
<A HREF=mFunState.asp?page=<%=i%>&slt=6&act=list><%=i%></A>
<%else%>
<%=i%>
<%end if%>
<%i=i+1%>
<%loop
rs.close                                                                                                
set rs=nothing                                                                                                
end sub


sub SltForm()
%>

            <br><br><br>
            <form method="POST" action="mFunState.asp?act=list" name='inputdata' onsubmit='return check_input()'>
            
               
              <table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 
      cellspacing=0 width=50% class="size09" align="center">
	  <tr bgcolor="#efefef"> 
                  <td colspan="2" height="32"> 
                    <div align="center">
                     帐务统计
                    </div>
                  </td>
                </tr>
                <tr> 
                  <td width="30%" bgcolor="#efefef" height="32"> 
                    <div align="center">统计类型</div>
                  </td>
                  <td width="71%">
                    <select size="1" name="slt">
                      <option value="1" selected> 到款记帐统计</option>
                      <option value="2"> 到款记帐流水</option>
					  <option value="3" selected> 借款记帐统计</option>
                      <option value="4"> 借款记帐流水</option>
					  <option value="5"> 招行对帐</option>
					  <option value="6"> 欠款清单</option>
                    </select>
                  </td>
                </tr>
              
                <tr bgcolor="#efefef"> 
                  <td colspan="2" height="32"> 
                    <div align="center">
                      <input type="submit" value="确  定" name="B1" style="text-align: center">
                    </div>
                  </td>
                </tr>
              </table>
              <br>
              <br>
             
              <p align="center">&nbsp; </p>
            </form>
<%end sub%>
<!--#include file="../inc/bottom2.asp"-->