usmoney.asp

1. 硬件环境：MS WINDOWS NT PACK 4 OR LATER /WIN2000 WITH IIS 4.0 OR LATER /WIN9X+PWS 2. 数 据 库：Access2000

<!-- #include file="setup.asp" -->
<%
validate "Login.asp",0
Call top
Call table()
%>
	<style>
	<!--
	TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}
	-->
	</style>
	<br>
	<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="0" width="100%" border="1" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none; border-collapse:collapse">
	<tr>
	<td height="25" background=images/title_sub.gif style="border-right: 0px none; border-top: 0px none">
	　<b>■ </b><%=Community%>个人财务信息中心。</td>
	</tr>
	</table>





	<TABLE borderColor=#a4b6d7 cellSpacing=0 cellPadding=3 width=100% border=1 style="border-collapse: collapse">
	<TR>
	<TD  height=25 width="75%" >&nbsp;<img src="images/2.gif" width="60" height="9">收、付款明细 (以下记录按照时间的逆序排列)</TD>
	</TR>
	</TABLE>
	
	
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=0 width="100%" border=1 style="border-collapse: collapse" height="24" bgColor="#ecf5ff">
  <TR  height=25> 
    <TD align=middle width=8%> <div align="center">序号</div></TD>
    <TD width=9%> <p align="center">款操作</TD>
    <TD  align=left  width="20%"> <p align="center">时间</TD>
    <TD align=middle width=14%><div align="center">金额</div></TD>
    <TD align=middle width=25%><div align="center">方式/原因</div></TD>
    <TD align=left width=24%> <p align="center">备注</TD>
  </TR>
</TABLE>

<% 
Sql="Select FinanceOperation,FinanceTime,FinanceReason,FinanceMoney,FinanceOrder,FinanceRemarks,FinanceOrder From Finance where FinanceID="&Request.Cookies("User") &" Order By FinanceTime Desc"
Set rs = Server.CreateObject("ADODB.Recordset")
Rs.Open Sql,conn,1
rs.pagesize=20
page=Cint(Request("page"))
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
num=rs.recordcount
maxpage=rs.pagecount
if not rs.eof then showonepage rs,page
Rs.Close
Set Rs = Nothing
%>
<br>
<%
UserInfo
HtmlEnd 
	 '---------------------------------分页--
sub showonepage(rs,page)
	rs.absolutepage=page
	For ipage=1 to rs.pagesize
	RsTo rs,ipage
	rs.MoveNext
	if rs.EOF Then Exit For
	Next
end sub
	 '---------------------------------分页内容--
sub RsTo(rs,ipage)
	%>
	<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=0 width="100%" border=1 style="border-collapse: collapse" height="24" >
	  <TR  height=25> 
		<TD align=middle width=8%> <div align="center"><%= ipage %></div></TD>
		<TD width=9%> <p align="center"><%= Rs("FinanceOperation") %></TD>
		<TD  align=left  width="20%"> <p align="center"><%= Rs("FinanceTime") %></TD>
		<TD align=middle width=14%><div align="center"><%= FormatCurrency(Rs("FinanceMoney")) %></div></TD>
		<TD align=middle width=25%><div align="center"><%= Rs("FinanceReason") %>
		<% if Trim(Rs("FinanceOrder")) > 0 Then %>
		(<a target=_blank href=OrderList.asp?Menu=ShowList&ID=<%=rs("FinanceOrder")%> title=点击查看该定单><%= Rs("FinanceOrder") %>号定单</a>)</div></TD>
		<% End if %>
		<TD align=left width=24%> <p align="center"><%= Rs("FinanceRemarks") %></TD>
	  </TR>
	</TABLE>
<%end sub%>