📄 frm_wxfybb.asp
字号:
<!--#include virtual="/include/DBCon.inc"-->
<html>
<head>
<title>油田采油工艺综合管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="/css/oil.css" type="text/css">
<SCRIPT LANGUAGE=javascript>
<!--
function yearCh() {
form1.submit();
}
-->
</SCRIPT>
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><br>
<%
syear=request.form("year")
if syear="" then
syear=year(now)
end if
Set Rs = Server.CreateObject("ADODB.RecordSet")
dim owc(12,11,2)
for i=0 to 11
for j=0 TO 10
for k=0 to 1
owc(i,j,k)=0
next
next
next
for i=1 to 12
SQL="select * from oil.oil_owc where owc_date like '" &syear&"-"&i& "-%' order by owc_type ASC"
rs.open SQL,conn,1,1
do while not rs.eof
twxtype=cint(rs("owc_type"))
owc(i-1,twxtype-1,0)=owc(i-1,twxtype-1,0)+1
owc(i-1,twxtype-1,1)=owc(i-1,twxtype-1,1)+cint(rs("owc_fee"))
rs.movenext
loop
rs.close
next
%>
<span class="subject">
<%=syear%>年度的油水井分类维修费用结算统计报表
</span>
<hr size="1" class=hr width="98%" align="center">
<form action="" method=post name=form1>
<table width="90%" border=0 align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="40%"> <font color=black><%=syear%>年</td>
<td width="60%" align=right>
<select name=year onchange=yearCh()>
<%for i=0 to 19%>
<option value="<%=2000+i%>" <%if cint(syear)=cint(2000+i) then response.write "selected" end if%>><%=2000+i%></option>
<%next%>
</select>年
</td>
</tr>
</table>
<table border="1" cellpadding="1" cellspacing="0" align="center" class="table2"
bordercolor="#000000" bordercolordark="#F8EDEB" width=1100>
<tr height="20">
<td class="title" rowspan=3 align=center width=60>月份</td>
<td class="title" rowspan=3 align=center width=60>项目</td>
<td class="title" colspan=12 align=center>油井</td>
<td class="title" colspan=3 align=center>水井</td>
</tr>
<tr height="20">
<td class="title" colspan=7 align=center>检泵</td>
<td class="title" colspan=4 align=center>小修</td>
<td class="title" rowspan=2 align=center width=60>合计</td>
<td class="title" rowspan=2 align=center width=60>检串</td>
<td class="title" rowspan=2 align=center width=60>转注</td>
<td class="title" rowspan=2 align=center width=60>合计</td>
</tr>
<tr height="20">
<td class="title" align=center width=60>预检泵</td>
<td class="title" align=center width=60>泵故障</td>
<td class="title" align=center width=60>杆柱故障</td>
<td class="title" align=center width=60>管注故障</td>
<td class="title" align=center width=60>调参</td>
<td class="title" align=center width=60>其他</td>
<td class="title" align=center width=60>小计</td>
<td class="title" align=center width=60>解卡</td>
<td class="title" align=center width=60>打捞</td>
<td class="title" align=center width=60>其他</td>
<td class="title" align=center width=60>小计</td>
</tr>
<%
dim t(15),ts(15)
for i=0 to 11
t1=owc(i,0,0)+owc(i,1,0)+owc(i,2,0)+owc(i,3,0)+owc(i,4,0)+owc(i,5,0)
t2=owc(i,6,0)+owc(i,7,0)+owc(i,8,0)
tt1=t1+t2
tt2=owc(i,9,0)+owc(i,10,0)
ts1=owc(i,0,1)+owc(i,1,1)+owc(i,2,1)+owc(i,3,1)+owc(i,4,1)+owc(i,5,1)
ts2=owc(i,6,1)+owc(i,7,1)+owc(i,8,1)
tts1=ts1+ts2
tts2=owc(i,9,1)+owc(i,10,1)
t(0)=t(0)+owc(i,0,0)
t(1)=t(1)+owc(i,1,0)
t(2)=t(2)+owc(i,2,0)
t(3)=t(3)+owc(i,3,0)
t(4)=t(4)+owc(i,4,0)
t(5)=t(5)+owc(i,5,0)
t(6)=t(6)+t1
t(7)=t(7)+owc(i,6,0)
t(8)=t(8)+owc(i,7,0)
t(9)=t(9)+owc(i,8,0)
t(10)=t(10)+t2
t(11)=t(11)+tt1
t(12)=t(12)+owc(i,9,0)
t(13)=t(13)+owc(i,10,0)
t(14)=t(14)+owc(i,10,0)
ts(0)=ts(0)+owc(i,0,1)
ts(1)=ts(1)+owc(i,1,1)
ts(2)=ts(2)+owc(i,2,1)
ts(3)=ts(3)+owc(i,3,1)
ts(4)=ts(4)+owc(i,4,1)
ts(5)=ts(5)+owc(i,5,1)
ts(6)=ts(6)+ts1
ts(7)=ts(7)+owc(i,6,1)
ts(8)=ts(8)+owc(i,7,1)
ts(9)=ts(9)+owc(i,8,1)
ts(10)=ts(10)+ts2
ts(11)=ts(11)+tts1
ts(12)=ts(12)+owc(i,9,1)
ts(13)=ts(13)+owc(i,10,1)
ts(14)=ts(14)+owc(i,10,1)
%>
<tr height="20" align=center>
<td rowspan=2> <%=i+1%>月</td>
<td> 口数</td>
<td> <%=owc(i,0,0)%></td>
<td> <%=owc(i,1,0)%></td>
<td> <%=owc(i,2,0)%></td>
<td> <%=owc(i,3,0)%></td>
<td> <%=owc(i,4,0)%></td>
<td> <%=owc(i,5,0)%></td>
<td>
 <font color=orange><b><%=t1%></b></font>
</td>
<td> <%=owc(i,6,0)%></td>
<td> <%=owc(i,7,0)%></td>
<td> <%=owc(i,8,0)%></td>
<td>
 <font color=orange><b><%=t2%></font>
</td>
<td>
 <font color=seablue><b><%=tt1%></b></font>
</td>
<td> <%=owc(i,9,0)%></td>
<td> <%=owc(i,10,0)%></td>
<td>
 <font color=seablue><b><%=tt2%></b></font>
</td>
</tr>
<tr height="20" align=center>
<td> 费用</td>
<td> <%=owc(i,0,1)%></td>
<td> <%=owc(i,1,1)%></td>
<td> <%=owc(i,2,1)%></td>
<td> <%=owc(i,3,1)%></td>
<td> <%=owc(i,4,1)%></td>
<td> <%=owc(i,5,1)%></td>
<td>
 <font color=orange><b><%=ts1%></b></font>
</td>
<td> <%=owc(i,6,1)%></td>
<td> <%=owc(i,7,1)%></td>
<td> <%=owc(i,8,1)%></td>
<td>
 <font color=orange><b><%=ts2%></b></font>
</td>
<td>
 <font color=seablue><b><%=tts1%></b></font>
</td>
<td> <%=owc(i,9,1)%></td>
<td> <%=owc(i,10,1)%></td>
<td>
 <font color=seablue><b><%=tts2%></b></font>
</td>
</tr>
<%next%>
<tr height="20" align=center>
<td rowspan=2>年累计</td>
<td> 口数</td>
<td> <b><%=t(0)%></b></td>
<td> <b><%=t(1)%></b></td>
<td> <b><%=t(2)%></b></td>
<td> <b><%=t(3)%></b></td>
<td> <b><%=t(4)%></b></td>
<td> <b><%=t(5)%></b></td>
<td>
 <font color=orange><b><%=t(6)%></b></font>
</td>
<td> <b><%=t(7)%></b></td>
<td> <b><%=t(8)%></b></td>
<td> <b><%=t(9)%></b></td>
<td>
 <font color=orange><b><%=t(10)%></font>
</td>
<td>
 <font color=seablue><b><%=t(11)%></b></font>
</td>
<td> <b><%=t(12)%></b></td>
<td> <b><%=t(13)%></b></td>
<td>
 <font color=seablue><b><%=t(14)%></b></font>
</td>
</tr>
<tr height="20" align=center>
<td> 费用</td>
<td> <b><%=ts(0)%></b></td>
<td> <b><%=ts(1)%></b></td>
<td> <b><%=ts(2)%></b></td>
<td> <b><%=ts(3)%></b></td>
<td> <b><%=ts(4)%></b></td>
<td> <b><%=ts(5)%></b></td>
<td>
 <font color=orange><b><%=ts(6)%></b></font>
</td>
<td> <b><%=ts(7)%></b></td>
<td> <b><%=ts(8)%></b></td>
<td> <b><%=ts(9)%></b></td>
<td>
 <font color=orange><b><%=ts(10)%></b></font>
</td>
<td>
 <font color=seablue><b><%=ts(11)%></b></font>
</td>
<td> <b><%=ts(12)%></b></td>
<td> <b><%=ts(13)%></b></td>
<td>
 <font color=seablue><b><%=ts(14)%></b></font>
</td>
</tr>
</table>
<br>
<hr size="1" class=hr width="98%" align="center">
</form>
</body>
</html>
<!--#include virtual="/include/DBClose.inc"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -