📄 fycx.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/session.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/left.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>住户费用查询</title>
<link href="inc/body.css" rel="stylesheet" type="text/css" />
<link href="inc/nav.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!--#include file="control/sub/fenye.asp"-->
<!--#include file="inc/fenye0.asp"-->
<!--#include file="inc/header.asp"-->
<div id="abody">
<div id="lbody">
<div class="bleft">
<h5>计量单位</h5>
<div class="xia">
<ol id="fy-1">
<% set rs0=Server.CreateObject("ADODB.RecordSet")
sql="select* from l_danjia"
rs0.open sql,conn,1,1
do while not rs0.eof
%>
<li><%= rs0(1) %>：<%= rs0(2) %></li>
<% rs0.movenext
loop
rs0.close
set rs0=nothing %>
</ol>
</div>
</div>
<% call igonggao() %>
<% call inew() %>
</div>
<div id="rbody">
<%
dim username
username=Session("username")
sql="select b.* from userlist as a,money as b where a.username='"&username&"' and a.room_id=b.room_id order by b.odate desc"
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
if rs.recordcount<>0 then
%>
<div class="fy" >
<h5>目前住户帐目余额：<%= rs(8) %></h5>
<%
dim m,readed,cur_page,url
url="fycx.asp?"
m=rs.recordcount
readed=1
rs.pagesize=5
%>
<% call page() %>
<h5>用户住房详细费用记录</h5>
<table class="fyb">
<tr>
<th width="85" class="b1">日期</th>
<th width="58">电费</th>
<th width="58">煤气费</th>
<th width="58">物业费</th>
<th width="58">停车费</th>
<th width="58">电视费</th>
<th width="58">总和</th>
<th width="58" class="b2">余额/元</th>
</tr>
<%
do while (readed<=rs.pagesize) and (not rs.eof)
dim strdate,strmonth
strdate=rs(9)
strmonth=split(strdate," ")
%>
<tr>
<td class="b1"><%= strmonth(0) %></td>
<td><%= rs(2) %></td>
<td><%= rs(3) %></td>
<td><%= rs(4) %></td>
<td><%= rs(5) %></td>
<td><%= rs(6) %></td>
<td><%= rs(7) %></td>
<%
dim mon
mon=rs(8)
if mon<0 then
Response.Write "<td class='b2'><font color='#FF0000'>"&mon&"<font></td>"
else
Response.Write "<td class='b2'>"&mon&"</td>"
end if
%>
</tr>
<%
rs.movenext
readed=readed+1
loop
%>
</table>
<% call fenye() %>
<% end if '判断该房间是否有钱
rs.close
set rs=nothing %>
<!--第一个表完-->
<h5>住户交纳费用金额</h5>
<%
sql0="select b.* from userlist as a,tmoney as b where a.username='"&username&"' and a.room_id=b.room_id order by b.rdate desc"
set rs0=Server.CreateObject("ADODB.RecordSet")
rs0.open sql0,conn,1,1
dim m0,readed0,cur_page0
m0=rs0.recordcount
readed0=1
rs0.pagesize=5
%>
<% call page0() %>
<table class="fyb">
<tr>
<th width="120" class="b1">房间号</th>
<th width="120">交费人名</th>
<th width="150">交费时间</th>
<th class="b2">交费金额/元</th>
</tr>
<%
do while (readed0<=rs0.pagesize) and (not rs0.eof)
%>
<tr>
<td class="b1"><%= rs0(1) %></td>
<td><%= rs0(2) %></td>
<td><%= rs0(3) %></td>
<td class="b2"><%= rs0(4) %></td>
</tr>
<%
rs0.movenext
readed0=readed0+1
loop
%>
</table>
<% call fenye0() %>
</div>
</div>
</div>
<!--#include file="inc/bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -