frm_zsjdtb_add_confirm.asp

来自「一套石油公司内部的运营管理系统」· ASP 代码 · 共 35 行

<!--#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 zsjdt_id from oil.oil_zsjdt"
rs.open SQL,conn,1,1
if rs.eof and rs.bof then
	maxId=0
	rs.close
else
	rs.close
	SQL="select MAX(zsjdt_id) as maxId from oil.oil_zsjdt"
	rs.open SQL,conn,1,1
	maxId=rs("maxId")
	rs.close
end if
SQL="select * from oil.oil_zsjdt"
rs.open SQL,conn,1,3
rs.addnew
rs("zsjdt_id")=cint(maxId)+1
rs("zsjdt_area_id")=text1
rs("zsjdt_date")=text2
rs("zsjdt_djyy")=text3
rs("zsjdt_djks")=text4
rs("zsjdt_yxsl")=text5
rs.update
rs.close
response.redirect "frm_zsjdtb.asp?year=" &syear
%>
<!--#include virtual="/include/DBClose.inc"-->