⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 frm_syj_basic_remove.asp

📁 一套石油公司内部的运营管理系统
💻 ASP
字号:
🔍 
<!--#include virtual="/include/DBCon.inc"-->
<%
syj_basicId=request.form("chsyj_basic")
if syj_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_syj,oil.oil_dict,oil.oil_zsz where syj_id in (" &syj_basicId& ") and syj_zsz_id=zsz_id and zsz_area_id=dict_code and dict_type='area' order by syj_id"
	rs.open SQL,conn,1,1
	dim syj_basic(),syj_basicCount
	syj_basicCount=0
	do while not rs.eof
		syj_basicCount=syj_basicCount+1
		redim preserve syj_basic(syj_basicCount)
		syj_basic(syj_basicCount-1)=""
		syj_basic(syj_basicCount-1)=syj_basic(syj_basicCount-1)& "@" & rs("syj_id") 
		syj_basic(syj_basicCount-1)=syj_basic(syj_basicCount-1)& "@" & rs("dict_value") 
		syj_basic(syj_basicCount-1)=syj_basic(syj_basicCount-1)& "@" & rs("syj_name") 
		syj_basic(syj_basicCount-1)=syj_basic(syj_basicCount-1)& "@" & rs("syj_gxdw") 
		syj_basic(syj_basicCount-1)=syj_basic(syj_basicCount-1)& "@" & rs("syj_csfs") 
		syj_basic(syj_basicCount-1)=syj_basic(syj_basicCount-1)& "@" & rs("syj_cscs_cce") 
		syj_basic(syj_basicCount-1)=syj_basic(syj_basicCount-1)& "@" & rs("syj_cscs_cci") 
		syj_basic(syj_basicCount-1)=syj_basic(syj_basicCount-1)& "@" & rs("syj_cscs_bs") 
		syj_basic(syj_basicCount-1)=syj_basic(syj_basicCount-1)& "@" & rs("syj_cscs_bj") 
		syj_basic(syj_basicCount-1)=syj_basic(syj_basicCount-1)& "@" & rs("syj_cscs_gcsd") 
		syj_basic(syj_basicCount-1)=syj_basic(syj_basicCount-1)& "@" & rs("syj_cscs_gcgg") 
		syj_basic(syj_basicCount-1)=syj_basic(syj_basicCount-1)& "@" & rs("syj_cscs_yxzk") 
		syj_basic(syj_basicCount-1)=syj_basic(syj_basicCount-1)& "@" & rs("syj_rcsnl") 
		syj_basic(syj_basicCount-1)=syj_basic(syj_basicCount-1)& "@" & rs("syj_rcsl") 
		syj_basic(syj_basicCount-1)=syj_basic(syj_basicCount-1)& "@" & rs("syj_gsl") 
		syj_basic(syj_basicCount-1)=syj_basic(syj_basicCount-1)& "@" & rs("syj_gxgg") 
		syj_basic(syj_basicCount-1)=syj_basic(syj_basicCount-1)& "@" & rs("syj_gxzk") 
		syj_basic(syj_basicCount-1)=syj_basic(syj_basicCount-1)& "@" & rs("syj_wt") 
		syj_basic(syj_basicCount-1)=syj_basic(syj_basicCount-1)& "@" & rs("syj_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><%=syj_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=7>采水参数</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=3>注水站资料</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=80>冲程(m)</td>
	   <td class="title" align=center width=80>冲次(n/min)</td>
	   <td class="title" align=center width=80>泵深(m)</td>
	   <td class="title" align=center width=80>泵径(m)</td>
	   <td class="title" align=center width=100>管串深度(m)</td>
	   <td class="title" align=center width=100>管串规格(mm)</td>
	   <td class="title" align=center width=100>运行状况</td>
	   <td class="title" align=center width=100>供水量</td>
	   <td class="title" align=center width=110>供水管线规格及长度</td>
	   <td class="title" align=center width=100>供水管线运行状况</td>
	  </tr> 
	  <%for i=0 to syj_basicCount-1%>
	  <tr height="20" align=center>
	   <td>&nbsp<%=split(syj_basic(i),"@")(2)%></td>
	   <td>&nbsp<%=split(syj_basic(i),"@")(3)%></td>
	   <td>&nbsp<%=split(syj_basic(i),"@")(4)%></td>
	   <td>&nbsp<%=split(syj_basic(i),"@")(5)%></td>
	   <td>&nbsp<%=split(syj_basic(i),"@")(6)%></td>
	   <td>&nbsp<%=split(syj_basic(i),"@")(7)%></td>
	   <td>&nbsp<%=split(syj_basic(i),"@")(8)%></td>
	   <td>&nbsp<%=split(syj_basic(i),"@")(9)%></td>
	   <td>&nbsp<%=split(syj_basic(i),"@")(10)%></td>
	   <td>&nbsp<%=split(syj_basic(i),"@")(11)%></td>
	   <td>&nbsp<%=split(syj_basic(i),"@")(12)%></td>
	   <td>&nbsp<%=split(syj_basic(i),"@")(13)%></td>
	   <td>&nbsp<%=split(syj_basic(i),"@")(14)%></td>
	   <td>&nbsp<%=split(syj_basic(i),"@")(15)%></td>
	   <td>&nbsp<%=split(syj_basic(i),"@")(16)%></td>
	   <td>&nbsp<%=split(syj_basic(i),"@")(17)%></td>
	   <td>&nbsp<%=split(syj_basic(i),"@")(18)%></td>
	   <td>&nbsp<textarea rows=2 cols=25 class=text><%=split(syj_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=chsyj_basic value="<%=syj_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_syj_basic.asp");'>
		  </td>
		</tr>
	  </table>
	  <%
	  else
		  SQL="delete from oil.oil_syj where syj_id in (" &syj_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><%=syj_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_syj_basic.asp");'>
		  </td>
		</tr>
	  </table>
	  <%
	  end if
	  %>
	  </form>

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

⌨️ 快捷键说明

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