📄 frm_csfybb.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 csc(12,14,2)
for i=0 to 11
for j=0 TO 13
for k=0 to 1
csc(i,j,k)=0
next
next
next
for i=1 to 12
SQL="select * from oil.oil_csc where csc_date like '" &syear&"-"&i& "-%' order by csc_type ASC"
rs.open SQL,conn,1,1
do while not rs.eof
tcstype=cint(rs("csc_type"))
csc(i-1,tcstype-1,0)=csc(i-1,tcstype-1,0)+1
csc(i-1,tcstype-1,1)=csc(i-1,tcstype-1,1)+cint(rs("csc_fee_total"))
rs.movenext
loop
rs.close
next
%>
<span class="subject">
<%=syear%>年度的油水井分类措施费用结算统计报表
</span>
<hr size="1" class=hr width="98%" align="center">
<br>
<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=2 align=center width=60>月份</td>
<td class="title" rowspan=2 align=center width=60>项目</td>
<td class="title" colspan=9 align=center>油井</td>
<td class="title" colspan=7 align=center>水井</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>
<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(16),ts(16)
for i=0 to 11
t1=csc(i,0,0)+csc(i,1,0)+csc(i,2,0)+csc(i,3,0)+csc(i,4,0)+csc(i,5,0)+csc(i,6,0)+csc(i,7,0)
t2=csc(i,8,0)+csc(i,9,0)+csc(i,10,0)+csc(i,11,0)+csc(i,12,0)+csc(i,13,0)
ts1=csc(i,0,1)+csc(i,1,1)+csc(i,2,1)+csc(i,3,1)+csc(i,4,1)+csc(i,5,1)+csc(i,6,1)+csc(i,7,1)
ts2=csc(i,8,1)+csc(i,9,1)+csc(i,10,1)+csc(i,11,1)+csc(i,12,1)+csc(i,13,1)
t(0)=t(0)+csc(i,0,0)
t(1)=t(1)+csc(i,1,0)
t(2)=t(2)+csc(i,2,0)
t(3)=t(3)+csc(i,3,0)
t(4)=t(4)+csc(i,4,0)
t(5)=t(5)+csc(i,5,0)
t(6)=t(6)+csc(i,6,0)
t(7)=t(7)+csc(i,7,0)
t(8)=t(8)+t1
t(9)=t(9)+csc(i,8,0)
t(10)=t(10)+csc(i,9,0)
t(11)=t(11)+csc(i,10,0)
t(12)=t(12)+csc(i,11,0)
t(13)=t(13)+csc(i,12,0)
t(14)=t(14)+csc(i,13,0)
t(15)=t(15)+t2
ts(0)=ts(0)+csc(i,0,1)
ts(1)=ts(1)+csc(i,1,1)
ts(2)=ts(2)+csc(i,2,1)
ts(3)=ts(3)+csc(i,3,1)
ts(4)=ts(4)+csc(i,4,1)
ts(5)=ts(5)+csc(i,5,1)
ts(6)=ts(6)+csc(i,6,1)
ts(7)=ts(7)+csc(i,7,1)
ts(8)=ts(8)+ts1
ts(9)=ts(9)+csc(i,8,1)
ts(10)=ts(10)+csc(i,9,1)
ts(11)=ts(11)+csc(i,10,1)
ts(12)=ts(12)+csc(i,11,1)
ts(13)=ts(13)+csc(i,12,1)
ts(14)=ts(14)+csc(i,13,1)
ts(15)=ts(15)+ts2
%>
<tr height="20" align=center>
<td rowspan=2> <%=i+1%>月</td>
<td> 口数</td>
<td> <%=csc(i,0,0)%></td>
<td> <%=csc(i,1,0)%></td>
<td> <%=csc(i,2,0)%></td>
<td> <%=csc(i,3,0)%></td>
<td> <%=csc(i,4,0)%></td>
<td> <%=csc(i,5,0)%></td>
<td> <%=csc(i,6,0)%></td>
<td> <%=csc(i,7,0)%></td>
<td>
 <font color=orange><b><%=t1%></b></font>
</td>
<td> <%=csc(i,8,0)%></td>
<td> <%=csc(i,9,0)%></td>
<td> <%=csc(i,10,0)%></td>
<td> <%=csc(i,11,0)%></td>
<td> <%=csc(i,12,0)%></td>
<td> <%=csc(i,13,0)%></td>
<td>
 <font color=orange><b><%=t2%></font>
</td>
</tr>
<tr height="20" align=center>
<td> 费用</td>
<td> <%=csc(i,0,1)%></td>
<td> <%=csc(i,1,1)%></td>
<td> <%=csc(i,2,1)%></td>
<td> <%=csc(i,3,1)%></td>
<td> <%=csc(i,4,1)%></td>
<td> <%=csc(i,5,1)%></td>
<td> <%=csc(i,6,1)%></td>
<td> <%=csc(i,7,1)%></td>
<td>
 <font color=orange><b><%=ts1%></b></font>
</td>
<td> <%=csc(i,8,1)%></td>
<td> <%=csc(i,9,1)%></td>
<td> <%=csc(i,10,1)%></td>
<td> <%=csc(i,11,1)%></td>
<td> <%=csc(i,12,1)%></td>
<td> <%=csc(i,13,1)%></td>
<td>
 <font color=orange><b><%=ts2%></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> <b><%=t(6)%></b></td>
<td> <b><%=t(7)%></b></td>
<td>
 <font color=orange><b><%=t(8)%></b></font>
</td>
<td> <b><%=t(9)%></b></td>
<td> <b><%=t(10)%></b></td>
<td> <b><%=t(11)%></b></td>
<td> <b><%=t(12)%></b></td>
<td> <b><%=t(13)%></b></td>
<td> <b><%=t(14)%></b></td>
<td>
 <font color=orange><b><%=t(15)%></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> <b><%=ts(6)%></b></td>
<td> <b><%=ts(7)%></b></td>
<td>
 <font color=orange><b><%=ts(8)%></b></font>
</td>
<td> <b><%=ts(9)%></b></td>
<td> <b><%=ts(10)%></b></td>
<td> <b><%=ts(11)%></b></td>
<td> <b><%=ts(12)%></b></td>
<td> <b><%=ts(13)%></b></td>
<td> <b><%=ts(14)%></b></td>
<td>
 <font color=orange><b><%=ts(15)%></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 + -