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

📄 frm_psj_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_psj_basic_remove.asp";
	else if (act==1) 
		form1.action="frm_psj_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_psj,oil.oil_dict,oil.oil_zsz where psj_gs_zsz_id=zsz_id and zsz_area_id=dict_code and dict_type='area' order by psj_id"
	else
		SQL="select * from oil.oil_psj,oil.oil_dict,oil.oil_zsz where zsz_area_id='" &tarea& "' and psj_gs_zsz_id=zsz_id and zsz_area_id=dict_code and dict_type='area' order by psj_id"
	end if
	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
	%>
	<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=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<input type=checkbox name=chpsj_basic value=<%=split(psj_basic(i),"@")(1)%>></td>
	   <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>
    <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_psj_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_psj_detail.asp");'>
		  </td>
		</tr>
	  </table>
	</form>

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

⌨️ 快捷键说明

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