📄 sflb.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="sub/conn.asp"-->
<!--#include file="sub/rightnav.asp"-->
<!--#include file="sub/fenye.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="cbody.css" rel="stylesheet" type="text/css" />
<link href="nav.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!--#include file="sub/mheader.asp"-->
<div id="abody">
<div id="lbody">
<div class="zh1">
<%
set rs=Server.CreateObject("ADODB.RecordSet")
dim butt
butt=Request.QueryString("butt")
if butt="" or butt="off" then
sql="select * from money order by room_id"
else
sql="select * from money where odate in(select max(odate) from money group by room_id)order by room_id"
end if
rs.open sql,conn,1,1
dim m,readed,cur_page,url
url="sflb.asp?"
m=rs.recordcount
readed=1
rs.pagesize=10
%>
<% call page() %>
<h5>全部房间费用清单</h5>
<p><font color="#FF0000">注释：<a href="sflb.asp?butt=off">默认显示所有房间的全部费用历史记录</a> </font> <a href="sflb.asp?butt=on">显示最新记录(一个房间一条)</a></p>
<table class="browser">
<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) %>
<tr>
<td class="b1"><%= rs(1) %></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() %>
<%
rs.close
set rs=nothing
%>
</div>
</div>
<div id="rbody">
<% call rightnav() %>
</div>
</div>
<!--#include file="sub/cbottom.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -