frm_zsz_device_remove.asp

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

<!--#include virtual="/include/DBCon.inc"-->
<%
deviceId=request.form("chdevice")
tarea=request.form("area")
tzsz=request.form("zsz")
dvType=request.form("dvType")
if deviceId="" then
	response.redirect "/profile/errorpage.asp?title=删除注水站设备&msg=您没有选择任何数据！" 
end if
isSub=request.form("isSub")
Set Rs = Server.CreateObject("ADODB.RecordSet")
if isSub="" then
	if dvType=0 then
		SQL="select * from oil.oil_zsz,oil.oil_zsdv where zsdv_id in (" &deviceId& ") and zsdv_zsz_id=zsz_id order by zsdv_id"
		rs.open SQL,conn,1,1
		deviceCount=0
		do while not rs.eof
			deviceCount=deviceCount+1
			redim preserve device(deviceCount)
			device(deviceCount-1)=""
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("zsdv_id") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("zsz_name") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("zsdv_dv_name") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("zsdv_dv_id")
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("zsdv_dv_model")
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("zsdv_count")
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("zsdv_edyl")
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("zsdv_edpl")
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("zsdv_tysj")
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("zsdv_zrsz")
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("zsdv_sjpl")
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("zsdv_zk")
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("zsdv_memo")
			rs.movenext
		loop
		rs.close
	elseif dvType=1 then
		SQL="select * from oil.oil_zsz,oil.oil_scldv where scldv_id in (" &deviceId& ") and scldv_zsz_id=zsz_id order by scldv_id"
		rs.open SQL,conn,1,1
		deviceCount=0
		do while not rs.eof
			deviceCount=deviceCount+1
			redim preserve device(deviceCount)
			device(deviceCount-1)=""
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("scldv_id") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("zsz_name") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("scldv_glq_tysj") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("scldv_glq_model") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("scldv_glq_count") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("scldv_glq_rcll") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("scldv_glq_yxzk") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("scldv_zyb_id") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("scldv_zyb_model") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("scldv_zyb_pl") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("scldv_zyb_yc") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("scldv_zyb_djgl") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("scldv_zyb_tysj") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("scldv_zyb_yxzk") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("scldv_zyb_memo") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("scldv_ysj_id") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("scldv_ysj_model") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("scldv_ysj_pl") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("scldv_ysj_yc") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("scldv_ysj_yl") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("scldv_ysj_djgl") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("scldv_ysj_tysj") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("scldv_ysj_yxzk") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("scldv_ysj_memo") 
			rs.movenext
		loop
		rs.close
	elseif dvType=2 then
		Set Rs = Server.CreateObject("ADODB.RecordSet")
		SQL="select * from oil.oil_zsz,oil.oil_zszcsdv where zszcsdv_id in (" &deviceId& ") and zszcsdv_zsz_id=zsz_id order by zszcsdv_id"
		rs.open SQL,conn,1,1
		deviceCount=0
		do while not rs.eof
			deviceCount=deviceCount+1
			redim preserve device(deviceCount)
			device(deviceCount-1)=""
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("zszcsdv_id") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("zsz_name") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("zszcsdv_csg_tysj") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("zszcsdv_csg_gg") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("zszcsdv_csg_count") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("zszcsdv_csg_dgff") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("zszcsdv_csg_yxzk") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("zszcsdv_gymb_fs") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("zszcsdv_gymb_tysj") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("zszcsdv_gymb_wt") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("zszcsdv_memo") 
			rs.movenext
		loop
		rs.close
	elseif dvType=3 then
		Set Rs = Server.CreateObject("ADODB.RecordSet")
		SQL="select * from oil.oil_zsz,oil.oil_jydv where jydv_id in (" &deviceId& ") and jydv_zsz_id=zsz_id order by jydv_id"
		rs.open SQL,conn,1,1
		deviceCount=0
		do while not rs.eof
			deviceCount=deviceCount+1
			redim preserve device(deviceCount)
			device(deviceCount-1)=""
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("jydv_id") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("zsz_name") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("jydv_name") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("jydv_no") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("jydv_model") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("jydv_count") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("jydv_bs_edyl") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("jydv_bs_edpl") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("jydv_tysj") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("jydv_bs_jymc") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("jydv_bs_jynd") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("jydv_bs_sjpl") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("jydv_bs_wt") 
			device(deviceCount-1)=device(deviceCount-1)& "@" & rs("jydv_memo") 
			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>
			<%
			if dvType=0 then 
				response.write "您确定要删除注水站注水设备"
			elseif dvType=1 then
				response.write "您确定要删除注水站水处理设备"
			elseif dvType=2 then
				response.write "您确定要删除注水站储水设备"
			elseif dvType=3 then
				response.write "您确定要删除注水站加药设备"
			end if
			%>
			 <font color=cc0000><%=deviceId%></font>吗?
			</td>
		</tr>
	</table>
	<%
	if dvType=0 then
	%>
	<table border="1" cellpadding="1" cellspacing="0" align="center" class="table2" 
	  bordercolor="#000000" bordercolordark="#F8EDEB" width=1100>
	  <tr height="20">
	   <td class="title" align=center width=90 rowspan=2>注水站</td>
	   <td class="title" align=center width=60 rowspan=2>设备名称</td>
	   <td class="title" align=center width=60 rowspan=2>设备编号</td>
	   <td class="title" align=center width=60 rowspan=2>设备型号</td>
	   <td class="title" align=center width=60 rowspan=2>数量</td>
	   <td class="title" align=center colspan=2>基本参数</td>
	   <td class="title" align=center width=60 rowspan=2>投运时间</td>
	   <td class="title" align=center width=60 rowspan=2>注入水质</td>
	   <td class="title" align=center width=60 rowspan=2>实际徘量(m3)</td>
	   <td class="title" align=center width=180 rowspan=2>目前运行状况及问题</td>
	   <td class="title" align=center width=180 rowspan=2>备注</td>
	  </tr> 
	  <tr height="20">
	   <td class="title" align=center width=90>额定压力(MPa)</td>
	   <td class="title" align=center width=90>额定排量(m3)</td>
	  </tr> 
	  <%for i=0 to deviceCount-1%>
	  <tr height="20" align=center>
	   <td>&nbsp<%=split(device(i),"@")(2)%></td>
	   <td>&nbsp<%=split(device(i),"@")(3)%></td>
	   <td>&nbsp<%=split(device(i),"@")(4)%></td>
	   <td>&nbsp<%=split(device(i),"@")(5)%></td>
	   <td>&nbsp<%=split(device(i),"@")(6)%></td>
	   <td>&nbsp<%=split(device(i),"@")(7)%></td>
	   <td>&nbsp<%=split(device(i),"@")(8)%></td>
	   <td>&nbsp<%=split(device(i),"@")(9)%></td>
	   <td>&nbsp<%=split(device(i),"@")(10)%></td>
	   <td>&nbsp<%=split(device(i),"@")(11)%></td>
	   <td>&nbsp<textarea rows=2 cols=25 class=text><%=split(device(i),"@")(12)%></textarea></td>