frm_ydgzlbb_remove.asp

一套石油公司内部的运营管理系统

<!--#include virtual="/include/DBCon.inc"-->
<%
ydgzlbbId=request.form("chydgzlbb")
if ydgzlbbId="" then
	response.redirect "/profile/errorpage.asp?title=删除月度井下工作量月报数据&msg=您没有选择任何数据！" 
end if
sdate=request("sdate")
syear=split(sdate,"-")(0)
smonth=split(sdate,"-")(1)
welltype=request.form("welltype")
isSub=request.form("isSub")
Set Rs = Server.CreateObject("ADODB.RecordSet")
if isSub="" then
	if welltype=0 then
		SQL="select * from oil.oil_jxzygzl where jxzygzl_id in (" &ydgzlbbId& ")"
		rs.open SQL,conn,1,1
		do while not rs.eof
			ydgzlbbCount=ydgzlbbCount+1
			redim preserve ydgzlbb(ydgzlbbCount)
			ydgzlbb(ydgzlbbCount-1)=""
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_id") 
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_field")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_total")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("Jxzygzl_yqj_heji")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_yqj_csxj")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_yqj_yl")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_yqj_sh")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_yqj_bkgc")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_yqj_hz")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_yqj_hdb")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_yqj_xdb")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_yqj_xslb")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_yqj_sy")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_yqj_kds")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_yqj_zsjjd")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_yqj_pmxj")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_yqj_bryl")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_yqj_other")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_yqj_daxiu")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_yqj_wh_xj")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_yqj_wh_jbcs")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_yqj_xjtc")
			rs.movenext
		loop
		rs.close
	else 
		SQL="select * from oil.oil_jxzygzl where jxzygzl_id in (" &ydgzlbbId& ")"
		rs.open SQL,conn,1,1
		do while not rs.eof
			ydgzlbbCount=ydgzlbbCount+1
			redim preserve ydgzlbb(ydgzlbbCount)
			ydgzlbb(ydgzlbbCount-1)=""
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_id") 
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_field")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_zsj_total")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_zsj_xj")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_zsj_yl")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_zsj_sh")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_zsj_bkgc")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_zsj_zzother")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_zsj_ds")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_zsj_dx")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_zsj_wh_xj")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_zsj_hz")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_zsj_fz")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_zsj_jc")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_zsj_whother")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_zsj_tzjk")
			ydgzlbb(ydgzlbbCount-1)=ydgzlbb(ydgzlbbCount-1)& "@" & rs("jxzygzl_zsj_other")
			rs.movenext
		loop
		rs.close
	end if
end if
%>
<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>
<!--
-->
</SCRIPT>

</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><br>
	<form action="" method=post name=form1>
	<span class="subject">删除数据</span> 
	<hr size="1" class=hr width="98%" align="center">
	<%
	if isSub="" then
	%>
	<table width=80% border=0  cellspacing="0" cellpadding="0">
		<tr>
			<td align=left height=40>
			 您确定要删除<%=syear%>年度<%=smonth%>月的月度井下工作量月报<font color=cc0000><%=ydgzlbbId%></font>吗?<br>油（气）水井的数据都将被删除！
			</td>
		</tr>
	</table>
	<%if welltype=0 then%>
	<table border="1" cellpadding="1" cellspacing="0" align="center" class="table2" 
	  bordercolor="#000000" bordercolordark="#F8EDEB" width=1400>
	  <tr height="20">
	   <td class="title" rowspan=3 align=center width=60>油田</td>
	   <td class="title" rowspan=3 align=center width=100>油（气）水井总工作量</td>
	   <td class="title" colspan=19 align=center>油（气）井作业</td>
	  </tr> 
	  <tr height="20">
	   <td class="title" align=center rowspan=2 width=60>工作量合计</td>
	   <td class="title" align=center colspan=14>增产措施</td>
	   <td class="title" align=center rowspan=2 width=60>大修</td>
	   <td class="title" align=center colspan=2>维护作业</td>
	   <td class="title" align=center rowspan=2 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>
	   <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> 
	  <%for i=0 to ydgzlbbCount-1%>
	  <tr height="20" align=center>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(2)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(3)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(4)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(5)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(6)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(7)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(8)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(9)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(10)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(11)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(12)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(13)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(14)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(15)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(16)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(17)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(18)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(19)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(20)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(21)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(22)%></td>
	  </tr> 
	  <%next%>
	</table>
    <%else%>
	<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" colspan=15 align=center>注水井作业作业</td>
	  </tr> 
	  <tr height="20">
	   <td class="title" align=center rowspan=2 width=100>工作量合计</td>
	   <td class="title" align=center colspan=6>措施增注</td>
	   <td class="title" align=center rowspan=2 width=60>大修</td>
	   <td class="title" align=center colspan=5>维护作业</td>
	   <td class="title" align=center rowspan=2 width=60>投转注井(口)</td>
	   <td class="title" align=center rowspan=2 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> 
	  <%for i=0 to ydgzlbbCount-1%>
	  <tr height="20" align=center>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(2)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(3)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(4)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(5)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(6)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(7)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(8)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(9)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(10)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(11)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(12)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(13)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(14)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(15)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(16)%></td>
	   <td>&nbsp<%=split(ydgzlbb(i),"@")(17)%></td>
	  </tr> 
	  <%next%>
	</table>
    <%end if%>
	<Br>
	<hr size="1" class=hr width="98%" align="center">
	  <br>
	  <table width="98%" border="0" cellspacing="0" cellpadding="2" align="center">
		<tr align="center"> 
		  <td> 
			<input type=hidden name=sdate value=<%=sdate%>>
			<input type=hidden name=chydgzlbb value="<%=ydgzlbbId%>">
			<input type=hidden name=welltype value=<%=welltype%>>
			<input type=hidden name=isSub value="true">
			<input type=submit name=submit1 value=" 确定 " class=button>
			<input type="button" name="Submit32" value=" 返回 " class=button LANGUAGE=javascript onclick='javascript:location.replace("frm_ydgzlbb.asp?year=<%=syear%>&month=<%=smonth%>");'>
		  </td>
		</tr>
	  </table>
	  <%
	  else
		  SQL="delete from oil.oil_jxzygzl where jxzygzl_id in (" &ydgzlbbId& ")"
		  rs.open SQL,conn,1,3
	  %>
	<table width=80% border=0  cellspacing="0" cellpadding="0">
		<tr>
			<td align=left height=40>
				<%=syear%>年度<%=smonth%>月的月度井下工作量月报<font color=cc0000><%=ydgzlbbId%></font>已经成功删除。
			</td>
		</tr>
	</table>
	<Br>
	<hr size="1" class=hr width="98%" align="center">
	  <br>
	  <table width="98%" border="0" cellspacing="0" cellpadding="2" align="center">
		<tr align="center"> 
		  <td> 
			<input type="button" name="Submit32" value=" 返回 " class=button LANGUAGE=javascript onclick='javascript:location.replace("frm_ydgzlbb.asp?year=<%=syear%>&month=<%=smonth%>");'>
		  </td>
		</tr>
	  </table>
	  <%
	  end if
	  %>
	  </form>

</body>
</html>
<!--#include virtual="/include/DBClose.inc"-->