project_regist7_4_3.asp

ASP程序实现的科技期刊系统

<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/AdoConn.asp"-->
<!--#include file="../Include/online.asp"-->
<%
'取得表单数据
SheHYY=request("SheHYY")
YeWFW=request("YeWFW")
ZhuCZB=request("ZhuCZB")
RenYGC=request("RenYGC")
%>
<%
'第七页(项目类型为(四)(中介机构、孵化器))填写的信息写入数据库
ProjectCode=session("ProjectCode")
IF projectcode="" then
   Response.Redirect ("Project_edit1.asp?projectInfo=请先注册封面信息!")
else
	'判断是否是修改状态
	set rst=server.CreateObject ("ADODB.recordset")
	StrSQL="select 项目编码 from XT_VD_ProjectSupplyNew3 where 项目编码='"&projectcode&"'"
	rst.CursorType =3
	rst.CursorLocation =3
	rst.LockType =2
	rst.Open StrSQL,strconn
if not rst.EOF then '修改状态
StrSQL="update XT_TD_ProjectSupplyNew3 set 社会意义='"&SheHYY&"',业务范围='"&YeWFW&"',注册资本='"&ZhuCZB&"',人员构成='"&RenYGC&"' where 项目编码='"&ProjectCode&"'"
conn.Execute StrSQL
Response.Redirect ("Project_edit_4_3.asp?projectInfo=项目专项补充计划修改成功!")
else '注册
StrSQL="insert into XT_TD_ProjectSupplyNew3 (项目编码,社会意义,业务范围,注册资本,人员构成) values ('"&ProjectCode&"','"&SheHYY&"','"&YeWFW&"','"&ZhuCZB&"','"&RenYGC&"')"
conn.Execute StrSQL
Response.Redirect ("Project_edit8.asp?projectInfo=项目专项补充计划注册成功!")
end if

end if
%>