frm_zsz_device_modify_confirm.asp

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

<!--#include virtual="/include/DBCon.inc"-->
<%
	dvType=request.form("dvtype")
	tarea=request.form("area")
	tzsz=request.form("zsz")
	deviceId=request.form("chdevice")
	if dvType=0 then
		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")
	elseif dvType=1 then
		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")
	elseif dvType=2 then
		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")
	elseif dvType=3 then
		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")
	end if
	if dvType=0 then
		Set Rs = Server.CreateObject("ADODB.RecordSet")
		SQL="select * from oil.oil_zsdv where zsdv_id='" &deviceId& "'"
		rs.open SQL,conn,1,3
		if text1<>"" then
			rs("zsdv_dv_name")=text1 
		end if
		if text2<>"" then
			rs("zsdv_dv_id")=text2 
		end if
		if text3<>"" then
			rs("zsdv_dv_model")=text3 
		end if
		if text4<>"" then
			rs("zsdv_count")=text4 
		end if
		if text5<>"" then
			rs("zsdv_edyl")=text5 
		end if
		if text6<>"" then
			rs("zsdv_edpl")=text6 
		end if
		if text7<>"" then
			rs("zsdv_tysj")=text7 
		end if
		if text8<>"" then
			rs("zsdv_zrsz")=text8 
		end if
		if text9<>"" then
			rs("zsdv_sjpl")=text9 
		end if
		if text10<>"" then
			rs("zsdv_zk")=text10 
		end if
		if text11<>"" then
			rs("zsdv_memo")=text11
		end if
		rs.Update 
		rs.close
	elseif dvType=1 then
		Set Rs = Server.CreateObject("ADODB.RecordSet")
		SQL="select * from oil.oil_scldv where scldv_id='" &deviceId& "'"
		rs.open SQL,conn,1,3
		if text1<>"" then
			rs("scldv_glq_tysj")=text1
		end if
		if text2<>"" then
			rs("scldv_glq_model")=text2
		end if
		if text3<>"" then
			rs("scldv_glq_count")=text3
		end if
		if text4<>"" then
			rs("scldv_glq_rcll")=text4 
		end if
		if text5<>"" then
			rs("scldv_glq_yxzk")=text5
		end if
		if text6<>"" then
			rs("scldv_zyb_id")=text6 
		end if
		if text7<>"" then
			rs("scldv_zyb_model")=text7 
		end if
		if text8<>"" then
			rs("scldv_zyb_pl")=text8 
		end if
		if text9<>"" then
			rs("scldv_zyb_yc")=text9 
		end if
		if text10<>"" then
			rs("scldv_zyb_djgl")=text10 
		end if
		if text11<>"" then
			rs("scldv_zyb_tysj")=text11 
		end if
		if text12<>"" then
			rs("scldv_zyb_yxzk")=text12
		end if
		if text13<>"" then
			rs("scldv_zyb_memo")=text13 
		end if
		if text14<>"" then
			rs("scldv_ysj_id")=text14 
		end if
		if text15<>"" then
			rs("scldv_ysj_model")=text15 
		end if
		if text16<>"" then
			rs("scldv_ysj_pl")=text16 
		end if
		if text17<>"" then
			rs("scldv_ysj_yc")=text17 
		end if
		if text18<>"" then
			rs("scldv_ysj_yl")=text18 
		end if
		if text19<>"" then
			rs("scldv_ysj_djgl")=text19 
		end if
		if text20<>"" then
			rs("scldv_ysj_tysj")=text20 
		end if
		if text21<>"" then
			rs("scldv_ysj_yxzk")=text21 
		end if
		if text22<>"" then
			rs("scldv_ysj_memo")=text22 
		end if
		rs.Update 
		rs.close
	elseif dvType=2 then
		Set Rs = Server.CreateObject("ADODB.RecordSet")
		SQL="select * from oil.oil_zszcsdv where zszcsdv_id='" &deviceId& "'"
		rs.open SQL,conn,1,3
		if text1<>"" then
			rs("zszcsdv_csg_tysj")=text1
		end if
		if text2<>"" then
			rs("zszcsdv_csg_gg")=text2 
		end if
		if text3<>"" then
			rs("zszcsdv_csg_count")=text3 
		end if
		if text4<>"" then
			rs("zszcsdv_csg_dgff")=text4 
		end if
		if text5<>"" then
			rs("zszcsdv_csg_yxzk")=text5 
		end if
		if text6<>"" then
			rs("zszcsdv_gymb_fs")=text6 
		end if
		if text7<>"" then
			rs("zszcsdv_gymb_tysj")=text7 
		end if
		if text8<>"" then
			rs("zszcsdv_gymb_wt")=text8 
		end if
		if text9<>"" then
			rs("zszcsdv_memo")=text9 
		end if
		rs.Update 
		rs.close
	elseif dvType=3 then
		Set Rs = Server.CreateObject("ADODB.RecordSet")
		SQL="select * from oil.oil_jydv where jydv_id='" &deviceId& "'"
		rs.open SQL,conn,1,3
		if text1<>"" then
			rs("jydv_name")=text1 
		end if
		if text2<>"" then
			rs("jydv_no")=text2 
		end if
		if text3<>"" then
			rs("jydv_model")=text3  
		end if
		if text4<>"" then
			rs("jydv_count")=text4 
		end if
		if text5<>"" then
			rs("jydv_bs_edyl")=text5  
		end if
		if text6<>"" then
			rs("jydv_bs_edpl")=text6  
		end if
		if text7<>"" then
			rs("jydv_tysj")=text7  
		end if
		if text8<>"" then
			rs("jydv_bs_jymc")=text8  
		end if
		if text9<>"" then
			rs("jydv_bs_jynd")=text9  
		end if
		if text10<>"" then
			rs("jydv_bs_sjpl")=text10  
		end if
		if text11<>"" then
			rs("jydv_bs_wt")=text11  
		end if
		if text12<>"" then
			rs("jydv_memo")=text12  
		end if
		rs.Update 
		rs.close
	end if
	response.redirect "frm_zsz_device.asp?area=" &tarea& "&zsz=" &tzsz& "&dvtype=" &dvType
%>
<!--#include virtual="/include/DBClose.inc"-->