frm_ydcsxg_remove.asp

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

<!--#include virtual="/include/DBCon.inc"-->
<%
ydcsxgId=request.form("chydcsxg")
if ydcsxgId="" then
	response.redirect "/profile/errorpage.asp?title=删除数据&msg=您没有选择任何数据！" 
end if
sdate=request.form("sdate")
syear=split(sdate,"-")(0)
smonth=split(sdate,"-")(1)
welltype=request.form("welltype")
isSub=request.form("isSub")
Set Rs = Server.CreateObject("ADODB.RecordSet")
if welltype=0 then
	SQL="select * from oil.oil_incre,oil.oil_well,oil.oil_dict where incre_well_id=well_id and well_area=dict_code and dict_type='area' and incre_id in (" &ydcsxgId& ")"
	rs.open SQL,conn,1,1
	do while not rs.eof
		ydcsxgCount=ydcsxgCount+1
		redim preserve ydcsxg(ydcsxgCount)
		ydcsxg(ydcsxgCount-1)=""
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_id") 
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_well_id")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("dict_value")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_cscw")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_csnr")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_csrq")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_bf_rcy")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_bf_rco")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_bf_hs")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_bf_dym")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_af_rcy")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_af_rco")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_af_hs")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_af_dym")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_bysc")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_yxts")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_rzyl")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_yzol")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_ljzy")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_memo")
		rs.movenext
	loop
	rs.close
else 
	SQL="select * from oil.oil_cszz,oil.oil_well,oil.oil_dict where cszz_well_id=well_id and well_area=dict_code and dict_type='area' and cszz_id in (" &ydcsxgId& ")"
	rs.open SQL,conn,1,1
	do while not rs.eof
		ydcsxgCount=ydcsxgCount+1
		redim preserve ydcsxg(ydcsxgCount)
		ydcsxg(ydcsxgCount-1)=""
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_id") 
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_well_id")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("dict_value")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_cscw")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_csnr")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_csrq")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_bf_fsq")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_bf_gy")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_bf_oy")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_bf_ty")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_bf_pz")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_bf_sz")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_af_fsq")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_af_gy")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_af_oy")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_af_ty")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_af_pz")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_af_sz")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_period")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_rzz")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_yzz")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_ljzz")
		ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_memo")
		rs.movenext
	loop
	rs.close
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%>月的月度(<%if welltype=0 then response.write "油井" else response.write "水井" end if%>)措施效果统计数据<font color=cc0000><%=ydcsxgId%></font>吗?
			</td>
		</tr>
	</table>
	<%if welltype=0 then%>
	<table border="1" cellpadding="1" cellspacing="0" align="center" class="table2" 
	  bordercolor="#000000" bordercolordark="#F8EDEB" width=1600>
	  <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" rowspan=2 align=center width=60>措施层位</td>
	   <td class="title" rowspan=2 align=center width=120>措施内容</td>
	   <td class="title" rowspan=2 align=center width=60>完井日期</td>
	   <td class="title" colspan=4 align=center> 措施前</td>
	   <td class="title" colspan=4 align=center>目前</td>
	   <td class="title" rowspan=2 align=center width=80>本月生产天数</td>
	   <td class="title" rowspan=2 align=center width=80>措施有效天数</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=120>备注</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>
	  </tr> 
	  <%for i=0 to ydcsxgCount-1%>
	  <tr height="20" align=center>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(2)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(3)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(4)%></td>
	   <td>&nbsp<textarea rows=2 cols=25 class=text><%=split(ydcsxg(i),"@")(5)%></textarea></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(6)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(7)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(8)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(9)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(10)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(11)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(12)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(13)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(14)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(15)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(16)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(17)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(18)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(19)%></td>
	   <td>&nbsp<textarea rows=2 cols=25 class=text><%=split(ydcsxg(i),"@")(20)%></textarea></td>
	  </tr> 
	  <%next%>
	</table>
    <%else%>
	<table border="1" cellpadding="1" cellspacing="0" align="center" class="table2" 
	  bordercolor="#000000" bordercolordark="#F8EDEB" width=1800>
	  <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" rowspan=2 align=center width=60>措施层位</td>
	   <td class="title" rowspan=2 align=center width=120>措施内容</td>
	   <td class="title" rowspan=2 align=center width=60>完井日期</td>
	   <td class="title" colspan=6 align=center> 措施前</td>
	   <td class="title" colspan=6 align=center>目前</td>
	   <td class="title" rowspan=2 align=center width=80>有效天数</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=120>备注</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>
	  </tr> 
	  <%for i=0 to ydcsxgCount-1%>
	  <tr height="20" align=center>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(2)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(3)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(4)%></td>
	   <td>&nbsp<textarea rows=2 cols=25 class=text><%=split(ydcsxg(i),"@")(5)%></textarea></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(6)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(7)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(8)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(9)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(10)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(11)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(12)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(13)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(14)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(15)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(16)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(17)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(18)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(19)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(20)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(21)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(22)%></td>
	   <td>&nbsp<textarea rows=2 cols=25 class=text><%=split(ydcsxg(i),"@")(23)%></textarea></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=welltype value="<%=welltype%>">
			<input type=hidden name=chydcsxg value="<%=ydcsxgId%>">
			<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_ydcsxg.asp?year=<%=syear%>&month=<%=smonth%>&welltype=<%=welltype%>");'>
		  </td>
		</tr>
	  </table>
	  <%
	  else
		  if welltype=0 then
			  SQL="delete from oil.oil_incre where incre_id in (" &ydcsxgId& ")"
		  else
			  SQL="delete from oil.oil_cszz where cszz_id in (" &ydcsxgId& ")"
		  end if
		  rs.open SQL,conn,1,3
	  %>
	<table width=80% border=0  cellspacing="0" cellpadding="0">
		<tr>
			<td align=left height=40>
				<%=syear%>年度<%=smonth%>月的月度(<%if welltype=0 then response.write "油井" else response.write "水井" end if%>)措施效果统计数据<font color=cc0000><%=ydcsxgId%></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_ydcsxg.asp?year=<%=syear%>&month=<%=smonth%>");'>
		  </td>
		</tr>
	  </table>
	  <%
	  end if
	  %>
	  </form>

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