mfundetail.asp

功能最强大的ASP网站

<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/func.asp"-->
<%
FunCode="F305"
session("title")="帐务统计"
session("headline")="首页 -> 注册系统 -> 记帐统计"
%>
<!--#include file="../inc/head2.asp"-->
<%

list()


sub list()
username=request("username")
direction=request("direction")
billno=request("billno")
amount=request("amount")
remark=request("remark")
manageuser=session("username")
date1=request("date1")
date2=request("date2")

sql = " from accountdetail  where billno like '%"& billno & "%' and remark like '%" & remark & "%' "

if username<>"" then sql = sql & " and username='"&username&"' "
if direction<>"" then sql = sql & " and direction='"&direction&"' "
if amount<> "" then sql = sql & " and amount="&amount
if date1 <> "" then sql = sql & " and regtime >='"&cdate(date1)&"' "
if date2 <> "" then sql = sql & " and regtime <='"&cdate(date2)&"' "
sql = sql & "  and username in (select username from [user] where manageuser='"&manageuser&"') "

set rs=server.createobject("adodb.recordset")
rs.open "select *  " & sql & " order by regtime desc ",conn,1,1
'call PrintRecNum(rs)
call  PrintSetPage(rs,pagecount)
call PrintRecNum(rs)
%>

<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=90% class='size09' align='center'>
<form method="POST" action="mFunDetail.asp">
<tr><td colspan="10" bgcolor="#efefef" height="28" align="center" class='color01'><b>记帐流水查询</b></td></tr>
<tr>
<td class='color01' bgcolor='#efefef'>
	
	用户名&nbsp;<input type="text" name="username" size="10" class="form" value="<%=username%>">
    代理商&nbsp;<input type="text" disabled name="manageuser" size="10" class="form"  value="<%=manageuser%>">
	摘要<select size="1" name="direction" class="form">
	  <option value="" >全部流水</option>
	  <option value="真实入帐" <%if direction="真实入帐" then response.write "selected" %> >真实入帐</option>
      <option value="真实扣帐" <%if direction="真实扣帐" then response.write "selected" %>>真实扣帐</option>
<option value="扣帐" <%if direction="扣帐" then response.write "selected" %>>自动扣帐</option>
	 <option value="业务扣帐" <%if direction="业务扣帐" then response.write "selected" %>>业务扣帐</option>
     <option value="业务退帐" <%if direction="业务退帐" then response.write "selected" %>>业务退帐</option>
	 <option value="借款入帐" <%if direction="借款入帐" then response.write "selected" %>>借款入帐</option>
     <option value="借款扣帐" <%if direction="借款扣帐" then response.write "selected" %>>借款扣帐</option>
	 <option value="帐户冻结" <%if direction="帐户冻结" then response.write "selected" %>>帐户冻结</option>
     <option value="帐户解冻" <%if direction="帐户解冻" then response.write "selected" %>>帐户解冻</option>
	 
     </select>
	凭证号&nbsp;<input type="text" name="billno" size="10" class="form"  value="<%=billno%>"><br>
	发生额&nbsp;<input name="amount" size="10" class="form"  value="<%=amount%>">
	备&nbsp;&nbsp;注&nbsp;<input type="text" name="remark" size="10" class="form"  value="<%=remark%>">
	时间<input type="text" name="date1" size="11" class="form" value="<%if date1="" then response.write datepart("yyyy",date())&"-"&datepart("m",date())&"-1" else response.write date1 end if%>">
					&nbsp;&nbsp;&nbsp;至&nbsp;&nbsp;<input type="text" name="date2" size="10" class="form" value="<%if date1="" then response.write date() else response.write date2 end if%>">
						&nbsp;&nbsp;<input type='submit' class='form' value='搜索符合条件的记录' name='B1'></td></form> </tr>

</table>
<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=90% 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><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("billno")%>&nbsp;</td><td><%=rs("regtime")%></td><td><%=rs("remark")%></td></tr>
<% i=i+1                                                                                                  
          rs.movenext                                                                                                  
          if i>rs.PageSize then exit do 
		  loop                                                                    
           %>
		   

<tr><td class='color01' bgcolor='#efefef'>&nbsp;</td><td class='color01' bgcolor='#efefef' colspan="9">
发生额合计：<font color="#ff0000">
<%
set rsz = conn.execute ("select sum(amount) " & sql)
response.write rsz(0) & "元"
rsz.close
%></font></td></tr>
</table>
<%
URL = "mFunDetail.asp?username="&username&"&direction="&direction&"&billno="&billno&"&amount="&amount&"&remark="&remark&"&manageuser="&manageuser&"&date1="&date1&"&date2="&date2
call PrintPage(pagecount, rs, URL)

rs.close  
set rs=nothing 
%>

<br><br>

<%end sub%>
<!--#include file="../inc/bottom2.asp"-->