project_regist3.asp

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

<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/AdoConn.asp"-->
<!--#include file="../Include/online.asp"-->
<%
'取得表单数据
NeiRong=request("NeiRong")
ChengGuo=request("ChengGuo")
JinDu=request("JinDu")
JSLY=request("JSLY")
JieDuan=request("JieDuan")
YouShi1=request("YouShi1")
YouShi2=request("YouShi2")
YouShi3=request("YouShi3")
YouShi4=request("YouShi4")
ShenBaoZhuanLi=request("ShenBaoZhuanLi")
ShenBaoFaMingZL=request("ShenBaoFaMingZL")
ZhuanLi=request("ZhuanLi")
FaMingZL=request("FaMingZL")
LaiYuan1=request("LaiYuan1")
LaiYuan2=request("LaiYuan2")
%>
<%
'第三页项目基本情况信息写入数据库
ProjectCode=session("ProjectCode")
IF projectcode="" then
   Response.Redirect ("Project_edit1.asp?projectInfo=请先注册封面信息!")
else
	'判断是否是修改状态
	set rst=server.CreateObject ("ADODB.recordset")
	StrSQL="select 项目编码 from XT_VD_ProjectBasic where 项目编码='"&projectcode&"'"
	rst.CursorType =3
	rst.CursorLocation =3
	rst.LockType =2
	rst.Open StrSQL,strconn
if not rst.EOF then '修改状态
StrSQL="update XT_TD_ProjectBasic set 主要内容='"&NeiRong&"',预期成果='"&ChengGuo&"',进度安排='"&JinDu&"',技术领域='"&JSLY&"',所处阶段='"&JieDuan&"',市场前景好='"&YouShi1&"',技术水平高='"&YouShi2&"',经济效益显著='"&YouShi3&"',社会效益显著='"&YouShi4&"',申报专利数量='"&ShenBaoZhuanLi&"',申报发明专利数量='"&ShenBaoFaMingZL&"',专利数量='"&ZhuanLi&"',发明专利数量='"&FaMingZL&"',技术来源1='"&LaiYuan1&"',技术来源2='"&LaiYuan2&"'  where 项目编码='"&ProjectCode&"'"
conn.Execute StrSQL
Response.Redirect ("Project_edit3.asp?projectInfo=项目基本情况修改成功!")
else '注册
StrSQL="insert into XT_TD_ProjectBasic (项目编码,主要内容,预期成果,进度安排,技术领域,所处阶段,市场前景好,技术水平高,经济效益显著,社会效益显著,申报专利数量,申报发明专利数量,专利数量,发明专利数量,技术来源1,技术来源2) values ('"&ProjectCode&"','"&NeiRong&"','"&ChengGuo&"','"&JinDu&"','"&JSLY&"','"&JieDuan&"','"&YouShi1&"','"&YouShi2&"','"&YouShi3&"','"&YouShi4&"','"&ShenBaoZhuanLi&"','"&ShenBaoFaMingZL&"','"&ZhuanLi&"','"&FaMingZL&"','"&LaiYuan1&"','"&LaiYuan2&"')"
conn.Execute StrSQL
Response.Redirect ("Project_edit4.asp?projectInfo=项目基本情况注册成功!")
end if

end if
%>