funddetail.asp

功能最强大的ASP网站

<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/func.asp"-->
<%
FunCode="F104"
session("title")="资金明细查询"
session("headline")="首页 -> 注册系统 -> 资金明细查询"
%>
<!--#include file="../inc/head2.asp"-->
<%
username=request("username")
if username = "" then
	username=session("username")
end if
set rs=server.createobject("adodb.recordset")
set rsz=server.createobject("adodb.recordset")
	sql="select * from account where username='"&username&"'"
	rsz.open sql,conn,1,1

	sql="select * from accountdetail where username='"&username&"' order by ID desc"
	rs.open sql,conn,1,1
if rs.eof or rsz.eof then
	session("mesg")="对不起,没有该用户的资金记录"
	Response.Redirect "../result.asp"
end if

call  PrintSetPage(rs,pagecount)
call PrintRecNum(rs)
%>
<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><%=rsz("username")%></td><td> <%=rsz("balance")%></td><td><%=rsz("freeze")%></td><td>  <%=rsz("debit")%></td></tr></table>

<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></tr>


<% 
i=1
do while not rs.eof %> 	   
<tr><td><%=i+(pagecount-1)*pagesize%></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>
<%
URL = "funddetail.asp?username="&username
call PrintPage(pagecount, rs, URL)

rs.close  
rsz.close                                                                                              
          set rs=nothing 
		  set rsz=nothing                                                                                               
          conn.close                                                                                                
          set conn=nothing
%>
<!--#include file="../inc/bottom2.asp"-->