📄 frm_tccq_form.asp
字号:
<!--#include virtual="/include/DBCon.inc"-->
<%
'以下从数据库取出作业区
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
'以下取出区块及对应的作业区代码
dim block(),blockCount
Set Rs = Server.CreateObject("ADODB.RecordSet")
SQL="select * from oil.oil_block order by block_id"
rs.open SQL,conn,1,1
if rs.eof and rs.bof then
response.redirect "/profile/errorpage.asp?title=查询油水井数据&msg=数据库里没有区块信息"
else
blockCount=0
do while not rs.eof
blockCount=blockCount+1
redim preserve block(blockCount)
block(UBound(block)-1)=rs("block_id") & "-" & rs("block_name") & "-" & rs("area_id")
rs.movenext
loop
end if
'以下取出井
dim well(),wellCount
Set Rs = Server.CreateObject("ADODB.RecordSet")
SQL="select * from oil.oil_well"
rs.open SQL,conn,1,1
if rs.eof and rs.bof then
response.redirect "/profile/errorpage.asp?title=查询油水井数据&msg=数据库里没有油水井信息"
else
wellCount=0
do while not rs.eof
wellCount=wellCount+1
redim preserve well(wellCount)
well(UBound(well)-1)=rs("well_id") & "-" & rs("well_block") & "-" & rs("well_area") & "-" & rs("well_type")
rs.movenext
loop
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>
<!--
function areaCh() {
var vbarea=document.form1.area.value;
var vbblock=new Array(<%=UBound(block)%>);
var vbblock_name=new Array(<%=Ubound(block)%>);
<%
for i=0 to Ubound(block)-1
%>
vbblock[<%=i%>]="<%=block(i)%>";
vbblock_name[<%=i%>]="<%=split(block(i),"-")(1)%>";
<%
next
%>
var tblock_id="";
var tblock_name="";
for (var i=0;i<vbblock.length;i++) {
tablock=vbblock[i].split("-");
tarea=tablock[2];
if (tarea==vbarea) {
if (tblock_id=="") {
tblock_id=tablock[0];
} else {
tblock_id=tblock_id+"*"+tablock[0];
}
if (tblock_name=="") {
tblock_name=vbblock_name[i];
} else {
tblock_name=tblock_name+"*"+vbblock_name[i];
}
}
}
var curblock_id=tblock_id.split("*");
var curblock_name=tblock_name.split("*");
if (curblock_id!="") {
form1.block.length=curblock_id.length+1;
} else {
form1.block.length=1;
}
form1.block.options[0].value="";
form1.block.options[0].text="请选择......";
for (var i=0;i<form1.block.length-1;i++) {
form1.block.options[i+1].value=curblock_id[i];
form1.block.options[i+1].text=curblock_name[i];
}
}
function blockCh() {
var vbarea=document.form1.area.value;
var vbblock=document.form1.block.value;
var vbwell=new Array(<%=UBound(well)%>);
var vbwell_id=new Array(<%=Ubound(well)%>);
<%
for i=0 to Ubound(well)-1
%>
vbwell[<%=i%>]="<%=well(i)%>";
vbwell_id[<%=i%>]="<%=split(well(i),"-")(0)%>";
<%
next
%>
var twell_id="";
for (var i=0;i<vbwell.length;i++) {
tawell=vbwell[i].split("-");
tarea=tawell[2];
tblock=tawell[1];
if (tarea==vbarea) {
if (tblock==vbblock) {
if (twell_id=="") {
twell_id=tawell[0];
} else {
twell_id=twell_id+"*"+tawell[0];
}
}
}
}
form1.welltype.length=0;
form1.welltype.length=3;
form1.welltype.options[0].value="";
form1.welltype.options[0].text="请选择......";
form1.welltype.options[1].value="0";
form1.welltype.options[1].text="油井";
form1.welltype.options[2].value="1";
form1.welltype.options[2].text="水井";
var curwell_id=twell_id.split("*");
if (curwell_id!="") {
form1.well.length=curwell_id.length+1;
} else {
form1.well.length=1;
}
form1.well.options[0].value="";
form1.well.options[0].text="请选择......";
for (var i=0;i<form1.well.length-1;i++) {
form1.well.options[i+1].value=curwell_id[i];
form1.well.options[i+1].text=curwell_id[i];
}
}
function typeCh() {
var vbarea=document.form1.area.value;
var vbblock=document.form1.block.value;
var vbtype=document.form1.welltype.value;
var vbwell=new Array(<%=UBound(well)%>);
var vbwell_id=new Array(<%=Ubound(well)%>);
<%
for i=0 to Ubound(well)-1
%>
vbwell[<%=i%>]="<%=well(i)%>";
vbwell_id[<%=i%>]="<%=split(well(i),"-")(0)%>";
<%
next
%>
var twell_id="";
for (var i=0;i<vbwell.length;i++) {
tawell=vbwell[i].split("-");
tarea=tawell[2];
tblock=tawell[1];
ttype=tawell[3];
if (tarea==vbarea) {
if (tblock==vbblock) {
if (ttype==vbtype) {
if (twell_id=="") {
twell_id=tawell[0];
} else {
twell_id=twell_id+"*"+tawell[0];
}
}
}
}
}
var curwell_id=twell_id.split("*");
if (curwell_id!="") {
form1.well.length=curwell_id.length+1;
} else {
form1.well.length=1;
}
form1.well.options[0].value="";
form1.well.options[0].text="请选择......";
for (var i=0;i<form1.well.length-1;i++) {
form1.well.options[i+1].value=curwell_id[i];
form1.well.options[i+1].text=curwell_id[i];
}
}
function subcheck() {
var wellIdText=document.form1.well_id.value;
var wellIdCombo=document.form1.well.value;
var date=document.form1.date.value;
if (wellIdText=="" && wellIdCombo=="") {
window.alert("您必须确定所查询的井号！");
}
else if (date=="") {
window.alert("您必须确定所查询的年份！");
}
else
form1.submit();
}
-->
</SCRIPT>
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><br>
<form method=post action="frm_tccq.asp" name=form1>
<span class="subject">投产初期情况</span>
<hr size="1" class=hr width="98%" align="center">
<table width=90% border=0>
<tr><td align=left>
<b>请先选择要查看的井号</b>
</td></tr>
</table><br>
<table width=80% border=0 cellspacing="0" cellpadding="0">
<tr>
<td align=left width=40%>
<table width="150" border="1" cellspacing="0" cellpadding="2" bordercolordark="#F8EDEB" bordercolor="#000000" class=table2>
<tr>
<td class=title>请选择作业区</td>
</tr>
<tr>
<td>
<select name=area onchange="areaCh()">
<option value="">请选择......</option>
<%for i=0 to areaCount-1%>
<option value=<%=split(area(i),"-")(1)%>><%=split(area(i),"-")(0)%></option>
<%next%>
</select>
</td>
</tr>
</table>
</td>
<td align=center width=20%>
<img src=/images/arr_lr.gif>
</td>
<td align=right width=40%>
<table width="150" border="1" cellspacing="0" cellpadding="2" bordercolordark="#F8EDEB" bordercolor="#000000" class=table2>
<tr>
<td class=title>请选择区块</td>
</tr>
<tr>
<td>
<select name=block onchange=blockCh()>
</select>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align=left width=40% height=60>
</td>
<td align=center width=20%>
</td>
<td align=center width=40%>
<img src=/images/arr_ud.gif>
</td>
</tr>
<tr>
<td align=left width=40%>
<table width="150" border="1" cellspacing="0" cellpadding="2" bordercolordark="#F8EDEB" bordercolor="#000000" class=table2>
<tr>
<td class=title>请选择井号</td>
</tr>
<tr>
<td>
<select name=well>
</select>
</td>
</tr>
</table>
</td>
<td align=center width=20%>
<img src=/images/arr_rl.gif>
</td>
<td align=right width=40%>
<table width="150" border="1" cellspacing="0" cellpadding="2" bordercolordark="#F8EDEB" bordercolor="#000000" class=table2>
<tr>
<td class=title>请选择井类别</td>
</tr>
<tr>
<td>
<select name=welltype onchange=typeCh()>
</select>
</td>
</tr>
</table>
</td>
</tr>
</table><br><Br>
<table width=80% border=0 cellspacing="0" cellpadding="0">
<tr>
<td width="54%" align=left> <table width="150" border="1" cellspacing="0" cellpadding="2" bordercolordark="#F8EDEB" bordercolor="#000000" class=table2>
<tr>
<td class=title>直接填写井号查询</td>
</tr>
<tr>
<td> <input type=text name=well_id size=20 class=text> </td>
</tr>
</table>
</td>
</tr>
</table><br>
<table width=80% border=0 cellspacing="0" cellpadding="0">
<tr>
<td width="50%" align=left> <table width="150" border="1" cellspacing="0" cellpadding="2" bordercolordark="#F8EDEB" bordercolor="#000000" class=table2>
<tr>
<td class=title>请选择年份</td>
</tr>
<tr>
<td>
<select name=date>
<option value="">请选择......</option>
<%for i=0 to 20%>
<option value="<%=2000+i%>"><%=2000+i%></option>
<%next%>
</select>
</td>
</tr>
</table>
</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="Submit1" value=" 查询 " onclick="subcheck()" class=button>
</td>
</tr>
</table>
</form>
</body>
</html>
<!--#include virtual="/include/DBClose.inc"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -