frm_gsz_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")
	end if
	if dvType=0 then
		Set Rs = Server.CreateObject("ADODB.RecordSet")
		SQL="select * from oil.oil_gsdv where gsdv_id='" &deviceId& "'"
		rs.open SQL,conn,1,3
		if text1<>"" then
			rs("gsdv_name")=text1
		end if
		if text2<>"" then
			rs("gsdv_no")=text2 
		end if
		if text3<>"" then
			rs("gsdv_model")=text3 
		end if
		if text4<>"" then
			rs("gsdv_count")=text4 
		end if
		if text5<>"" then
			rs("gsdv_bs_edyl")=text5 
		end if
		if text6<>"" then
			rs("gsdv_bs_edpl")=text6 
		end if
		if text7<>"" then
			rs("gsdv_tysj")=text7 
		end if
		if text8<>"" then
			rs("gsdv_gssz")=text8 
		end if
		if text9<>"" then
			rs("gsdv_sjpl")=text9 
		end if
		if text10<>"" then
			rs("gsdv_wt")=text10 
		end if
		if text11<>"" then
			rs("gsdv_memo")=text11 
		end if
		rs.Update 
		rs.close
	elseif dvType=1 then
		Set Rs = Server.CreateObject("ADODB.RecordSet")
		SQL="select * from oil.oil_gscsdv where gscsdv_id='" &deviceId& "'"
		rs.open SQL,conn,1,3
		if text1<>"" then
			rs("gscsdv_csg_tysj")=text1 
		end if
		if text2<>"" then
			rs("gscsdv_csg_gg")=text2  
		end if
		if text3<>"" then
			rs("gscsdv_csg_count")=text3  
		end if
		if text4<>"" then
			rs("gscsdv_csg_dgff")=text4  
		end if
		if text5<>"" then
			rs("gscsdv_csg_dgzt")=text5  
		end if
		if text6<>"" then
			rs("gscsdv_gymb_fs")=text6  
		end if
		if text7<>"" then
			rs("gscsdv_gymb_tysj")=text7  
		end if
		if text8<>"" then
			rs("gscsdv_gymb_wt")=text8  
		end if
		if text9<>"" then
			rs("gscsdv_memo")=text9  
		end if
		rs.Update 
		rs.close
	end if
	response.redirect "frm_gsz_device.asp?area=" &tarea& "&zsz=" &tzsz& "&dvtype=" &dvType
%>
<!--#include virtual="/include/DBClose.inc"-->