📄 frm_fzjjt_print.asp
字号:
<!--#include virtual="/include/DBCon.inc"-->
<html>
<head>
<%
Response.Buffer = True
Response.ContentType = "application/vnd.ms-excel"
%>
<title>油田采油工艺综合管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="/css/oil.css" type="text/css">
</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
stdate=cdate(syear &"-1-1")
eddate=cdate(syear &"-12-31")
Set Rs = Server.CreateObject("ADODB.RecordSet")
SQL="select * from oil.oil_fzjjt,oil.oil_dict,oil.oil_well where fzjjt_well_id=well_id and well_area=dict_code and dict_type='area'"
rs.open SQL,conn,1,1
dim fzjjt(),fzjjtCount
fzjjtCount=0
do while not rs.eof
tdate=cdate(rs("fzjjt_wjrq"))
if tdate>=stdate and tdate<=eddate then
fzjjtCount=fzjjtCount+1
redim preserve fzjjt(fzjjtCount)
fzjjt(fzjjtCount-1)=""
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_id")
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("dict_value")
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_well_id")
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_wjrq")
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_tzzrq")
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_wjff")
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_js_tbj")
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_js_ybj")
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_js_js")
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_js_snsm")
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_tg_wj")
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_tg_nj")
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_tg_sd")
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_gj_snfg")
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_gj_syqk")
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_cw")
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_ycjd")
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_skjd")
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_fgq_xh")
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_fgq_sf")
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_fgq_zf")
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_fgq_xf")
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_psq_xh")
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_psq_sp")
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_psq_zp1")
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_psq_zp2")
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_psq_xp")
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_zjt")
fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_qz")
end if
rs.movenext
loop
rs.close
%>
<span class="subject">
<%=syear%>年的分注井井筒静态资料
</span>
<table border="1" cellpadding="1" cellspacing="0" align="center" class="table2"
bordercolor="#000000" bordercolordark="#F8EDEB" width=2000>
<tr height="20">
<td class="title" align=center width=80 rowspan=2>作业区</td>
<td class="title" align=center width=60 rowspan=2>水井号</td>
<td class="title" align=center width=80 rowspan=2>完井日期</td>
<td class="title" align=center width=80 rowspan=2>投转注日期</td>
<td class="title" align=center width=80 rowspan=2>完井方法</td>
<td class="title" align=center colspan=4>井身结构</td>
<td class="title" align=center colspan=3>套管</td>
<td class="title" align=center colspan=2>固井情况</td>
<td class="title" align=center width=80 rowspan=2>层位</td>
<td class="title" align=center width=80 rowspan=2>油层井段</td>
<td class="title" align=center width=80 rowspan=2>射孔井段</td>
<td class="title" align=center colspan=4>分隔器及下入深度(m)</td>
<td class="title" align=center colspan=5>配水器型号及下入深度(m)</td>
<td class="title" align=center width=80 rowspan=2>撞击筒深度(m)</td>
<td class="title" align=center width=80 rowspan=2>球座深度</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=80>水泥塞面深度</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=100>套管外水泥返高</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>中配(1)</td>
<td class="title" align=center width=60>中配(2)</td>
<td class="title" align=center width=60>下配</td>
</tr>
<%for i=0 to fzjjtCount-1%>
<tr height="20" align=center>
<td><%=split(fzjjt(i),"@")(2)%></td>
<td><%=split(fzjjt(i),"@")(3)%></td>
<td><%=split(fzjjt(i),"@")(4)%></td>
<td><%=split(fzjjt(i),"@")(5)%></td>
<td><%=split(fzjjt(i),"@")(6)%></td>
<td><%=split(fzjjt(i),"@")(7)%></td>
<td><%=split(fzjjt(i),"@")(8)%></td>
<td><%=split(fzjjt(i),"@")(9)%></td>
<td><%=split(fzjjt(i),"@")(10)%></td>
<td><%=split(fzjjt(i),"@")(11)%></td>
<td><%=split(fzjjt(i),"@")(12)%></td>
<td><%=split(fzjjt(i),"@")(13)%></td>
<td><%=split(fzjjt(i),"@")(14)%></td>
<td><%=split(fzjjt(i),"@")(15)%></td>
<td><%=split(fzjjt(i),"@")(16)%></td>
<td><%=split(fzjjt(i),"@")(17)%></td>
<td><%=split(fzjjt(i),"@")(18)%></td>
<td><%=split(fzjjt(i),"@")(19)%></td>
<td><%=split(fzjjt(i),"@")(20)%></td>
<td><%=split(fzjjt(i),"@")(21)%></td>
<td><%=split(fzjjt(i),"@")(22)%></td>
<td><%=split(fzjjt(i),"@")(23)%></td>
<td><%=split(fzjjt(i),"@")(24)%></td>
<td><%=split(fzjjt(i),"@")(25)%></td>
<td><%=split(fzjjt(i),"@")(26)%></td>
<td><%=split(fzjjt(i),"@")(27)%></td>
<td><%=split(fzjjt(i),"@")(28)%></td>
<td><%=split(fzjjt(i),"@")(29)%></td>
</tr>
<%next%>
</table>
</body>
</html>
<!--#include virtual="/include/DBClose.inc"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -