project_regist8.asp

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

<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/AdoConn.asp"-->
<!--#include file="../Include/online.asp"-->
<%
'取得表单数据
ZhuG=request("ZhuG")
ZhuGYJ=request("ZhuGYJ")
KjjChuS=request("KjjChuS")
KjjChuSYJ=request("KjjChuSYJ")
Expert=request("Expert")
ExpertYJ=request("ExpertYJ")
KJJZhongH=request("KJJZhongH")
KJJZhongHYJ=request("KJJZhongHYJ")
KjjJuZ=request("KjjJuZ")
KjjJuZYJ=request("KjjJuZYJ")
%>
<%
'第八页管理部门意见写入数据库
ProjectCode=session("ProjectCode")
IF projectcode="" then
   Response.Redirect ("Project_edit1.asp?projectInfo=请先注册封面信息!")
else

	'项目基本信息写入ProjectBasic表中
	'判断是否是修改状态
	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 主管部门推荐结果='"&ZhuG&"',主管部门推荐意见='"&ZhuGYJ&"',初审结果='"&KjjChuS&"',初审意见='"&KjjChuSYJ&"',论证结果='"&Expert&"',论证意见='"&ExpertYJ&"',联审结果='"&KjjZhongH&"',联审意见='"&KjjZhongHYJ&"',审议结果='"&KjjJuZ&"',审议意见='"&KjjJuZYJ&"' where 项目编码='"&ProjectCode&"'"
	conn.Execute StrSQL
	Response.Redirect ("Project_edit8.asp?projectInfo=项目管理部门意见修改成功!")
else '注册
	StrSQL="insert into XT_TD_ProjectBasic (项目编码,主管部门推荐结果,主管部门推荐意见,初审结果,初审意见,论证结果,论证意见,联审结果,联审意见,审议结果,审议意见) values ('"&ProjectCode&"','"&ZhuG&"','"&ZhuGYJ&"','"&KjjChuS&"','"&KjjChuSYJ&"','"&Expert&"','"&ExpertYJ&"','"&KjjZhongH&"','"&KjjZhongHYJ&"','"&KjjJuZ&"','"&KjjJuZYJ&"',)"
	conn.Execute StrSQL
	Response.Redirect ("Project_edit1.asp?projectInfo=项目管理部门意见提交成功!")
end if

end if
%>