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

📄 frm_syj_basic.asp

📁 一套石油公司内部的运营管理系统
💻 ASP
字号:
🔍 
<!--#include virtual="/include/DBCon.inc"-->
<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>
<!--
function OpenBut(url)
{
	window.open(url, "OpenClose");
}

function	subcheck(act) {
	if (act==0)
		form1.action="frm_syj_basic_remove.asp";
	else if (act==1) 
		form1.action="frm_syj_basic_modify.asp";
	form1.submit();
}
-->
</SCRIPT>

</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><br>
	<%
	tarea=request.form("area")
	'以下从数据库取出作业区
	dim area(),areaCount
	Set Rs = Server.CreateObject("ADODB.RecordSet")
	SQL="select * from oil.oil_dict where dict_type='area'"
	rs.open SQL,conn,1,1
	if rs.eof and rs.bof then
		response.redirect "/profile/errorpage.asp?title=查询作业区数据&msg=数据库里没有作业区信息" 
	else
		areaCount=0
		do while not rs.eof
			areaCount=areaCount+1
			redim preserve area(areaCount)
			area(UBound(area)-1)=rs("dict_value") & "-" & rs("dict_code")
			rs.movenext
		loop
	end if
	Set Rs = Server.CreateObject("ADODB.RecordSet")
	if tarea="" or tarea="all" then
		SQL="select * from oil.oil_syj,oil.oil_dict,oil.oil_zsz where syj_zsz_id=zsz_id and zsz_area_id=dict_code and dict_type='area' order by syj_id"
	else
		SQL="select * from oil.oil_syj,oil.oil_dict,oil.oil_zsz where zsz_area_id='" &tarea& "' and syj_zsz_id=zsz_id and zsz_area_id=dict_code and dict_type='area' order by syj_id"
	end if
	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
	%>
	<span class="subject">
		水源井基本概况
	</span> 
	<hr size="1" class=hr width="98%" align="center">
	<form action="" method=post name=form1>
	<table border=0 width=98%>
		<tr>
			<td>
				作业区:
				<select name=area onchange="submit()">
					<option value="all">所有作业区</option>
					<%for i=0 to areaCount-1%>
					<option value=<%=split(area(i),"-")(1)%> <%if tarea=split(area(i),"-")(1) then response.write " selected" end if%>><%=split(area(i),"-")(0)%></option>
					<%next%>
				</select>
			</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=20 rowspan=2>&nbsp</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=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<input type=checkbox name=chsyj_basic value=<%=split(syj_basic(i),"@")(1)%>></td>
	   <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>
    <table width="98%" border="0" cellspacing="0" cellpadding="2" align="center">
		<tr>
			<td align=center>
				<input type="button" name="bt1" value="添加新数据" class=button LANGUAGE=javascript onclick='javascript:location.replace("frm_syj_basic_add.asp");'> 
				<input type="button" name="bt1" value="修改选中的数据" class=button LANGUAGE=javascript onclick=subcheck(1)> 
				<input type="button" name="bt1" value="删除选中的数据" class=button LANGUAGE=javascript onclick=subcheck(0)> 
			</td>
		</tr>
	</table>
	<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_stsrc.asp");'>
		  </td>
		</tr>
	  </table>
	</form>

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

⌨️ 快捷键说明

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