📄 frm_block_add.asp

📁 一套石油公司内部的运营管理系统

💻 ASP

字号:

<!--#include virtual="/include/DBCon.inc"-->
<%
areaId=request("areaId")
'以下从数据库取出作业区
Set Rs = Server.CreateObject("ADODB.RecordSet")
SQL="select dict_value from oil.oil_dict where dict_type='area' and dict_code='" &areaId& "'"
rs.open SQL,conn,1,1
dim areaName
if rs.eof and rs.bof then
	response.redirect "/profile/errorpage.asp?title=查询作业区信息&msg=数据库里没有此作业区信息" 
else
	areaName=rs("dict_value")
end if
rs.close
%>
<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 subcheck() {
	if (document.form1.textBlock.value=="")
		window.alert("请填写区块名称！");
	else
		form1.action="frm_block_add_confirm.asp";
		form1.submit();
}
-->
</SCRIPT>

</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><br>
	<form method=post name=form1>
	<span class="subject">添加新区块到<%=areaName%>中</span> 
	<hr size="1" class=hr width="98%" align="center">
	<table width=80% border=0  cellspacing="0" cellpadding="0">
		<tr>
			<td align=left height=40>
			区块名称：<input type=text name=textBlock size=20 class=text>
			</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=hidden name=areaId value="<%=areaId%>">
			<input type=button name=submit1 value=" 确定 " onclick=subcheck() class=button>
			<input type="button" name="Submit32" value=" 返回 " class=button LANGUAGE=javascript onclick='javascript:location.replace("frm_area_detail.asp?id=<%=areaId%>");'>
		  </td>
		</tr>
	  </table>
	  </form>

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

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -