📄 frm_zsjjc_print.asp
字号:
<!--#include virtual="/include/DBCon.inc"-->
<html>
<%
Response.Buffer = True
Response.ContentType = "application/vnd.ms-excel"
%>
<head>
<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_zsjjc,oil.oil_dict,oil.oil_well where zsjjc_well_id=well_id and well_area=dict_code and dict_type='area'"
rs.open SQL,conn,1,1
dim zsjjc(),zsjjcCount
zsjjcCount=0
do while not rs.eof
tdate=cdate(rs("zsjjc_date"))
if tdate>=stdate and tdate<=eddate then
zsjjcCount=zsjjcCount+1
redim preserve zsjjc(zsjjcCount)
zsjjc(zsjjcCount-1)=""
zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_id")
zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("dict_value")
zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_well_id")
zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_date")
zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_nr")
zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_yg_gf")
zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_yg_gs")
zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_yg_cd")
zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_dj_gf")
zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_dj_gs")
zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_dj_cd")
zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_fgq_xh")
zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_fgq_sf")
zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_fgq_zf")
zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_fgq_xf")
zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_psq_xh")
zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_psq_sp")
zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_psq_zp1")
zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_psq_zp2")
zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_psq_xp")
zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_zjt")
zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_qt")
zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_zdgx")
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=1560>
<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 colspan=3>井下油管</td>
<td class="title" align=center colspan=3>井下短节</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>
<td class="title" align=center width=180 rowspan=2>重点工序记录</td>
</tr>
<tr height="20">
<td class="title" align=center width=60>规范(mm)</td>
<td class="title" align=center width=60>根数(根)</td>
<td class="title" align=center width=60>长度(m)</td>
<td class="title" align=center width=60>规范(mm)</td>
<td class="title" align=center width=60>根数(根</td>
<td class="title" align=center width=60>长度(m)</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 zsjjcCount-1%>
<tr height="20" align=center>
<td><%=split(zsjjc(i),"@")(2)%></td>
<td><%=split(zsjjc(i),"@")(3)%></td>
<td><%=split(zsjjc(i),"@")(4)%></td>
<td><%=split(zsjjc(i),"@")(5)%></td>
<td><%=split(zsjjc(i),"@")(6)%></td>
<td><%=split(zsjjc(i),"@")(7)%></td>
<td><%=split(zsjjc(i),"@")(8)%></td>
<td><%=split(zsjjc(i),"@")(9)%></td>
<td><%=split(zsjjc(i),"@")(10)%></td>
<td><%=split(zsjjc(i),"@")(11)%></td>
<td><%=split(zsjjc(i),"@")(12)%></td>
<td><%=split(zsjjc(i),"@")(13)%></td>
<td><%=split(zsjjc(i),"@")(14)%></td>
<td><%=split(zsjjc(i),"@")(15)%></td>
<td><%=split(zsjjc(i),"@")(16)%></td>
<td><%=split(zsjjc(i),"@")(17)%></td>
<td><%=split(zsjjc(i),"@")(18)%></td>
<td><%=split(zsjjc(i),"@")(19)%></td>
<td><%=split(zsjjc(i),"@")(20)%></td>
<td><%=split(zsjjc(i),"@")(21)%></td>
<td><%=split(zsjjc(i),"@")(22)%></td>
<td><%=split(zsjjc(i),"@")(23)%></td>
</tr>
<%next%>
</table>
</body>
</html>
<!--#include virtual="/include/DBClose.inc"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -