frm_well_modify.asp

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

<!--#include virtual="/include/DBCon.inc"-->
<%
wellId=request.form("wellId")

dim text(17)
text(0)=wellId
text(1)=request.form("text1")
text(2)=request.form("text2")
text(3)=request.form("text3")
text(4)=request.form("text4")
text(5)=request.form("text5")
text(6)=request.form("text6")
text(7)=request.form("text7")
text(8)=request.form("text8")
text(9)=request.form("text9")
text(10)=request.form("text10")
text(11)=request.form("text11")
text(12)=request.form("text12")
text(13)=request.form("text13")
text(14)=request.form("text14")
text(15)=request.form("text15")
text(16)=request.form("text16")
text(17)=request.form("text17")

Set Rs = Server.CreateObject("ADODB.RecordSet")
SQL="select well_id,well_finish_date,well_type,d.dict_value,b.block_name,well_finish_method,well_distance,well_depth,well_layer,well_slope_depth,well_maxslope_depth,well_maxslope_slope,well_maxslope_fw,well_hori_distance,well_tube_outer,well_tube_inner,well_tube_depth,well_gj_snfs,well_gj_sbjy,well_gj_time,well_gj_sbjya from oil.oil_well w,oil.oil_dict d,oil.oil_block b where well_id='" &wellId& "' and d.dict_type='area' and well_area=d.dict_code and b.block_id=well_block and b.area_id=well_area"
rs.open SQL,conn,1,1
dim well(17)
well(0)=rs("well_id")
well(1)=rs("well_finish_date")
well(2)=rs("well_finish_method")
well(3)=rs("well_slope_depth")
well(4)=rs("well_distance")
well(5)=rs("well_depth")
well(6)=rs("well_maxslope_depth")
well(7)=rs("well_maxslope_slope")
well(8)=rs("well_maxslope_fw")
well(9)=rs("well_layer")
well(10)=rs("well_hori_distance")
well(11)=rs("well_tube_outer")
well(12)=rs("well_tube_inner")
well(13)=rs("well_tube_depth")
well(14)=rs("well_gj_snfs")
well(15)=rs("well_gj_sbjy")
well(16)=rs("well_gj_time")
well(17)=rs("well_gj_sbjya")
rs.close

for i=1 to 17 
	if text(i)="" then
		text(i)=well(i)
	end if
next

SQL="select * from oil.oil_well where well_id='" &wellId& "'"
rs.open SQL,conn,1,3
rs("well_finish_date")=text(1)
rs("well_finish_method")=text(2)
rs("well_slope_depth")=text(3)
rs("well_distance")=text(4)
rs("well_depth")=text(5)
rs("well_maxslope_depth")=text(6)
rs("well_maxslope_slope")=text(7)
rs("well_maxslope_fw")=text(8)
rs("well_layer")=text(9)
rs("well_hori_distance")=text(10)
rs("well_tube_outer")=text(11)
rs("well_tube_inner")=text(12)
rs("well_tube_depth")=text(13)
rs("well_gj_snfs")=text(14)
rs("well_gj_sbjy")=text(15)
rs("well_gj_time")=text(16)
rs("well_gj_sbjya")=text(17)
rs.update
rs.close

response.redirect "frm_well_basic.asp?well_id=" &wellId
%>
<!--#include virtual="/include/DBClose.inc"-->