<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%response.Charset="gb2312"%> <% conn.open constr MonthNum=requesta("MonthNum") if trim(MonthNum)&""="" then MonthNum="3" act=trim(requesta("act")) if act="checkMonthNum" then MonthNum=requesta("MonthNum") sql="SELECT SUM(u_out) AS outMoney FROM countlist WHERE (DATEDIFF('m', c_date, now) <= "& MonthNum &") AND (u_id = "&session("u_sysid")&")" rs11.open sql,conn,1,1 if not rs11.eof then sumout=rs11(0) if isnull(sumout) or sumout="" then sumout=0 end if response.Write "￥"&formatNumber(sumout,2,-1,-1) else response.Write("￥0.00") end if rs11.close conn.close response.end end if sqlArray=Array("c_date,时间,date","c_memo,款项类型,str","u_countId,凭证单号,str","u_moneysum,发生金额,int","u_in,入账,int","u_out,支出,int") newsql=searchEnd(searchItem,condition,searchValue,othercode) sqlstring="SELECT * FROM countlist where u_id="&session("u_sysid")&" " & newsql & " order by c_date desc" rs.open sqlstring,conn,1,1 setsize=10 cur=1 pagenumlist=GetPageClass(rs,setsize,othercode,pageCounts,linecounts) %>

财务明细

目前身份:	<%= session("u_level") %>
可使用金额:	<%= formatNumber(session("u_usemoney") ,2,-1,0)%> 元	未审核款项:	<%= session("u_checkmoney") %> 元
优惠券:	<%=session("u_premoney")%> 元	已消费总额:	<%= session("u_resumesum") %>元
最近<%=MonthNum%>个月消费总额：

"> <% do while not rs.eof and cur<=setsize tdcolor="#ffffff" if cur mod 2=0 then tdcolor="#efefef" if isnull(rs("u_moneysum")) then u_moneysum=0 else u_moneysum=rs("u_moneysum") end if allu_moneysum=ccur(allu_moneysum)+ccur(u_moneysum) allu_in=ccur(allu_in)+ccur(rs("u_in")) allu_out=ccur(allu_out)+ccur(rs("u_out")) %> <% rs.movenext cur=cur+1 Loop %>

凭证单号	发生金额	入账	支出	时间	款项类型	状态
<%=rs("u_countId")%>	<%=u_moneysum%>	<%=rs("u_in")%>	<%=rs("u_out")%>	<%=formatdatetime(rs("c_date"),2)%>	<%=rs("c_memo")%>	<% If rs("c_check") Then Response.Write "未审" else Response.Write "完成" End If %>
每页统计	￥<%=formatNumber(allu_moneysum,2,-1)%>	￥<%=formatNumber(allu_in,2,-1)%>	￥<%=formatNumber(allu_out,2,-1)%>
<%=pagenumlist%>
<%=searchlist%>