📄 frm_psj_basic_remove.asp

📁 一套石油公司内部的运营管理系统
💻 ASP
字号:
<!--#include virtual="/include/DBCon.inc"-->
<%
psj_basicId=request.form("chpsj_basic")
if psj_basicId="" then
	response.redirect "/profile/errorpage.asp?title=删除配水间概况&msg=您没有选择任何数据！" 
end if
isSub=request.form("isSub")
Set Rs = Server.CreateObject("ADODB.RecordSet")
if isSub="" then
	Set Rs = Server.CreateObject("ADODB.RecordSet")
	SQL="select * from oil.oil_psj,oil.oil_dict,oil.oil_zsz where psj_id in (" &psj_basicId& ") and psj_gs_zsz_id=zsz_id and zsz_area_id=dict_code and dict_type='area' order by psj_id"
	rs.open SQL,conn,1,1
	dim psj_basic(),psj_basicCount
	psj_basicCount=0
	do while not rs.eof
		psj_basicCount=psj_basicCount+1
		redim preserve psj_basic(psj_basicCount)
		psj_basic(psj_basicCount-1)=""
		psj_basic(psj_basicCount-1)=psj_basic(psj_basicCount-1)& "@" & rs("psj_id") 
		psj_basic(psj_basicCount-1)=psj_basic(psj_basicCount-1)& "@" & rs("dict_value") 
		psj_basic(psj_basicCount-1)=psj_basic(psj_basicCount-1)& "@" & rs("psj_name") 
		psj_basic(psj_basicCount-1)=psj_basic(psj_basicCount-1)& "@" & rs("psj_where") 
		psj_basic(psj_basicCount-1)=psj_basic(psj_basicCount-1)& "@" & rs("psj_date") 
		psj_basic(psj_basicCount-1)=psj_basic(psj_basicCount-1)& "@" & rs("psj_des_yl") 
		psj_basic(psj_basicCount-1)=psj_basic(psj_basicCount-1)& "@" & rs("psj_des_zsl") 
		psj_basic(psj_basicCount-1)=psj_basic(psj_basicCount-1)& "@" & rs("zsz_name") 
		psj_basic(psj_basicCount-1)=psj_basic(psj_basicCount-1)& "@" & rs("psj_gs_gsg") 
		psj_basic(psj_basicCount-1)=psj_basic(psj_basicCount-1)& "@" & rs("psj_gs_gsl") 
		psj_basic(psj_basicCount-1)=psj_basic(psj_basicCount-1)& "@" & rs("psj_sc_zsj") 
		psj_basic(psj_basicCount-1)=psj_basic(psj_basicCount-1)& "@" & rs("psj_sc_zsl") 
		psj_basic(psj_basicCount-1)=psj_basic(psj_basicCount-1)& "@" & rs("psj_sc_lc") 
		psj_basic(psj_basicCount-1)=psj_basic(psj_basicCount-1)& "@" & rs("psj_sc_fsq") 
		psj_basic(psj_basicCount-1)=psj_basic(psj_basicCount-1)& "@" & rs("psj_sc_azfs") 
		psj_basic(psj_basicCount-1)=psj_basic(psj_basicCount-1)& "@" & rs("psj_sc_tz") 
		psj_basic(psj_basicCount-1)=psj_basic(psj_basicCount-1)& "@" & rs("psj_sc_ktz") 
		psj_basic(psj_basicCount-1)=psj_basic(psj_basicCount-1)& "@" & rs("psj_sc_ktzpj") 
		psj_basic(psj_basicCount-1)=psj_basic(psj_basicCount-1)& "@" & rs("psj_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>
			您确定要删除配水间<font color=cc0000><%=psj_basicId%></font>吗?
			</td>
		</tr>
	</table>
	<table border="1" cellpadding="1" cellspacing="0" align="center" class="table2" 
	  bordercolor="#000000" bordercolordark="#F8EDEB" width=1900>
	  <tr height="20">
	   <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=100 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 colspan=3>供水情况</td>
	   <td class="title" align=center colspan=8>目前生产情况</td>
	   <td class="title" align=center width=180 rowspan=2>备注</td>
	  </tr> 
	  <tr height="20">
	   <td class="title" align=center width=100>设计压力(MPa)</td>
	   <td class="title" align=center width=100>设计注水量(m3)</td>
	   <td class="title" align=center width=100>隶属注水站名称</td>
	   <td class="title" align=center width=110>供水管线规格及长度</td>
	   <td class="title" align=center width=100>供水量(m3)</td>
	   <td class="title" align=center width=100>所辖注水井(口)</td>
	   <td class="title" align=center width=100>目前注水量(m3)</td>
	   <td class="title" align=center width=120>流程方式(单管，双管)</td>
	   <td class="title" align=center width=100>几井式分水器</td>
	   <td class="title" align=center width=100>分水器安装方式</td>
	   <td class="title" align=center width=100>已用几个头子</td>
	   <td class="title" align=center width=100>还剩几个空头子</td>
	   <td class="title" align=center width=100>空头子配件情况</td>
	  </tr> 
	  <%for i=0 to psj_basicCount-1%>
	  <tr height="20" align=center>
	   <td>&nbsp<%=split(psj_basic(i),"@")(2)%></td>
	   <td>&nbsp<%=split(psj_basic(i),"@")(3)%></td>
	   <td>&nbsp<%=split(psj_basic(i),"@")(4)%></td>
	   <td>&nbsp<%=split(psj_basic(i),"@")(5)%></td>
	   <td>&nbsp<%=split(psj_basic(i),"@")(6)%></td>
	   <td>&nbsp<%=split(psj_basic(i),"@")(7)%></td>
	   <td>&nbsp<%=split(psj_basic(i),"@")(8)%></td>
	   <td>&nbsp<%=split(psj_basic(i),"@")(9)%></td>
	   <td>&nbsp<%=split(psj_basic(i),"@")(10)%></td>
	   <td>&nbsp<%=split(psj_basic(i),"@")(11)%></td>
	   <td>&nbsp<%=split(psj_basic(i),"@")(12)%></td>
	   <td>&nbsp<%=split(psj_basic(i),"@")(13)%></td>
	   <td>&nbsp<%=split(psj_basic(i),"@")(14)%></td>
	   <td>&nbsp<%=split(psj_basic(i),"@")(15)%></td>
	   <td>&nbsp<%=split(psj_basic(i),"@")(16)%></td>
	   <td>&nbsp<%=split(psj_basic(i),"@")(17)%></td>
	   <td>&nbsp<%=split(psj_basic(i),"@")(18)%></td>
	   <td>&nbsp<textarea rows=2 cols=25 class=text><%=split(psj_basic(i),"@")(19)%></textarea></td>
	  </tr> 
	  <%next%>
	</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=hidden name=chpsj_basic value="<%=psj_basicId%>">
			<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_psj_basic.asp");'>
		  </td>
		</tr>
	  </table>
	  <%
	  else
		  SQL="delete from oil.oil_psj where psj_id in (" &psj_basicId& ")"
		  rs.open SQL,conn,1,3
	  %>
	<table width=80% border=0  cellspacing="0" cellpadding="0">
		<tr>
			<td align=left height=40>
				配水间<font color=cc0000><%=psj_basicId%></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_psj_basic.asp");'>
		  </td>
		</tr>
	  </table>
	  <%
	  end if
	  %>
	  </form>

</body>
</html>
<!--#include virtual="/include/DBClose.inc"-->
💿 文件大小 895 K
👤 上传用户 shkk21
📂 所属分类 *行业应用
🏷️ 相关标签

#石油 #管理系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -