Tim=request("Tim")
Mon=0
set objconn=server.CreateObject("adodb.connection")
objconn.connectionstring="provider=microsoft.jet.oledb.4.0;"&"data source="&server.mappath("black.mdb")&";jet oledb:database"
objconn.open
SQL="select * from [费用] where [时间]='"&Tim&"'"
'response.write(SQL)
'response.end
set objrs=server.createobject("adodb.recordset")
objrs.open SQL,objconn,1,1
%><%="<b> "&Tim&" 账目</b>"%>
<style type="text/css">
<!--
body {
background-image: url(img/9.jpg);
}
body {
}
body {
}
-->
</style>
<table width="30%" border="0">
<%
do while not objrs.eof
response.write("<tr><td >"&objrs("大类")&"</td>"&"<td>"&objrs("小类")&"</td>"&"<td align='right'>"&FormatNumber(objrs("费用"),2)&"元</td></tr>")
objrs.movenext
loop
objrs.close
%>
<tr>
<td><strong>合计</strong></td>
<td>其他应付</td>
<td align="right">
<%
SQL="select [费用] from [费用] where [大类]='其他应付'"
objrs.open SQL,objconn,1,1
do while not objrs.eof
Mon=Mon+objrs("费用")
objrs.movenext
loop
objrs.close
response.write(FormatNumber(Mon,2))
Mon=0
%>元</td>
</tr>
<tr>
<td><strong>合计</strong></td>
<td>修理费收入</td>
<td align="right">
<%
SQL="select [费用] from [费用] where [大类]='修理费收入'"
objrs.open SQL,objconn,1,1
do while not objrs.eof
Mon=Mon+objrs("费用")
objrs.movenext
loop
objrs.close
response.write(FormatNumber(Mon,2))
Mon=0
%>元</td>
</tr>
<tr>
<td><strong>合计</strong></td>
<td>配件费用</td>
<td align="right">
<%
SQL="select [费用] from [费用] where [大类]='配件费用'"
objrs.open SQL,objconn,1,1
do while not objrs.eof
Mon=Mon+objrs("费用")
objrs.movenext
loop
objrs.close
response.write(FormatNumber(Mon,2))