frm_csjdtb_add_confirm.asp

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

<!--#include virtual="/include/DBCon.inc"-->
<%
syear=request.form("year")
text1=request.form("text1")
text2=request.form("text2")
text3=request.form("text3")
text4=request.form("text4")
text5=request.form("text5")
Set Rs = Server.CreateObject("ADODB.RecordSet")
SQL="select well_id from oil.oil_well where well_id='" &text1& "' and well_type='1'"
rs.open SQL,conn
if rs.eof then
	response.redirect "/profile/errorpage.asp?title=添加新的措施动态数据&msg=数据库里没有你添加的水井号！请确认井号是否是正确或者添加新井。" 
else
	rs.close
	SQL="select csjdt_id from oil.oil_csjdt"
	rs.open SQL,conn,1,1
	if rs.eof and rs.bof then
		maxId=0
		rs.close
	else
		rs.close
		SQL="select MAX(csjdt_id) as maxId from oil.oil_csjdt"
		rs.open SQL,conn,1,1
		maxId=rs("maxId")
		rs.close
	end if
	SQL="select * from oil.oil_csjdt"
	rs.open SQL,conn,1,3
	rs.addnew
	rs("csjdt_id")=cint(maxId)+1
	rs("csjdt_well_id")=text1
	rs("csjdt_csnr")=text2
	rs("csjdt_csrq")=text3
	rs("csjdt_mqjd")=text4
	rs("csjdt_yxsl")=text5
	rs.update
	rs.close
end if
response.redirect "frm_csjdtb.asp?year=" &syear
%>
<!--#include virtual="/include/DBClose.inc"-->