frm_fzjjt_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")
text6=request.form("text6")
text7=request.form("text7")
text8=request.form("text8")
text9=request.form("text9")
text10=request.form("text10")
text11=request.form("text11")
text12=request.form("text12")
text13=request.form("text13")
text14=request.form("text14")
text15=request.form("text15")
text16=request.form("text16")
text17=request.form("text17")
text18=request.form("text18")
text19=request.form("text19")
text20=request.form("text20")
text21=request.form("text21")
text22=request.form("text22")
text23=request.form("text23")
text24=request.form("text24")
text25=request.form("text25")
text26=request.form("text26")
text27=request.form("text27")
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 fzjjt_id from oil.oil_fzjjt"
	rs.open SQL,conn,1,1
	if rs.eof and rs.bof then
		maxId=0
		rs.close
	else
		rs.close
		SQL="select MAX(fzjjt_id) as maxId from oil.oil_fzjjt"
		rs.open SQL,conn,1,1
		maxId=rs("maxId")
		rs.close
	end if
	SQL="select * from oil.oil_fzjjt"
	rs.open SQL,conn,1,3
	rs.addnew
	rs("fzjjt_id")=cint(maxId)+1
	rs("fzjjt_well_id")=text1
	rs("fzjjt_wjrq")=text2
	rs("fzjjt_tzzrq")=text3
	rs("fzjjt_wjff")=text4
	rs("fzjjt_js_tbj")=text5
	rs("fzjjt_js_ybj")=text6
	rs("fzjjt_js_js")=text7
	rs("fzjjt_js_snsm")=text8
	rs("fzjjt_tg_wj")=text9
	rs("fzjjt_tg_nj")=text10
	rs("fzjjt_tg_sd")=text11
	rs("fzjjt_gj_snfg")=text12
	rs("fzjjt_gj_syqk")=text13
	rs("fzjjt_cw")=text14
	rs("fzjjt_ycjd")=text15
	rs("fzjjt_skjd")=text16
	rs("fzjjt_fgq_xh")=text17
	rs("fzjjt_fgq_sf")=text18
	rs("fzjjt_fgq_zf")=text19
	rs("fzjjt_fgq_xf")=text20
	rs("fzjjt_psq_xh")=text21
	rs("fzjjt_psq_sp")=text22
	rs("fzjjt_psq_zp1")=text23
	rs("fzjjt_psq_zp2")=text24
	rs("fzjjt_psq_xp")=text25
	rs("fzjjt_zjt")=text26
	rs("fzjjt_qz")=text27
	rs.update
	rs.close
end if
response.redirect "frm_fzjjt.asp?year=" &syear
%>
<!--#include virtual="/include/DBClose.inc"-->