project_regist4.asp

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

<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/AdoConn.asp"-->
<!--#include file="../Include/online.asp"-->
<%
'取得表单数据
Person1=request("Person1")
Person2=request("Person2")
Manager=request("Manager")
name1=request("name1")
sex1=request("sex1")
age1=request("age1")
company1=request("company1")
ZhiWu1=request("ZhiWu1")
ZhiCheng1=request("ZhiCheng1")
XueLi1=request("XueLi1")
FenGong1=request("FenGong1")
TouRu1=request("TouRu1")

dim name(9)
dim sex(9)
dim age(9)
dim company(9)
dim ZhiWu(9)
dim ZhiCheng(9)
dim XueLi(9)
dim FenGong(9)
dim TouRu(9)
dim num(9)'人员标志及序号,两位
for i=0 to 9
a="name0"+cstr(i)
name(i)=request(a)
a="sex0"+cstr(i)
sex(i)=request(a)
a="age0"+cstr(i)
age(i)=request(a)
a="company0"+cstr(i)
company(i)=request(a)
a="ZhiWu0"+cstr(i)
ZhiWu(i)=request(a)
a="ZhiCheng0"+cstr(i)
ZhiCheng(i)=request(a)
a="XueLi0"+cstr(i)
XueLi(i)=request(a)
a="FenGong0"+cstr(i)
FenGong(i)=request(a)
a="TouRu0"+cstr(i)
TouRu(i)=request(a)
num(i)="0"&9-cstr(i)
next
%>
<%
'第四页项目人员情况写入数据库
ProjectCode=session("ProjectCode")
IF projectcode="" then
   Response.Redirect ("Project_edit1.asp?projectInfo=请先注册封面信息!")
else

'项目主要人员信息写入数据库
StrSQL="delete from XT_TD_ProjectPerson where 项目编码='"&ProjectCode&"'"
conn.Execute StrSQL
if name1<>"" then '项目主要负责人信息
	StrSQL="insert into XT_TD_ProjectPerson (项目编码,人员标志,姓名,性别,年龄,单位,职务,职称,学历,具体分工,年投入时间) values ('"&ProjectCode&"','1','"&name1&"','"&sex1&"','"&age1&"','"&Company1&"','"&ZhiWu1&"','"&ZhiCheng1&"','"&XueLi1&"','"&FenGong1&"','"&TouRu1&"')"
	conn.Execute StrSQL
end if
for i=0 to 9 '项目组其他成员信息
if name(i)<>"" then
	StrSQL="insert into XT_TD_ProjectPerson (项目编码,人员标志,姓名,性别,年龄,单位,职务,职称,学历,具体分工,年投入时间) values ('"&ProjectCode&"','"&num(i)&"','"&name(i)&"','"&sex(i)&"','"&age(i)&"','"&Company(i)&"','"&ZhiWu(i)&"','"&ZhiCheng(i)&"','"&XueLi(i)&"','"&FenGong(i)&"','"&TouRu(i)&"')"
	conn.Execute StrSQL
end if 
next
	'项目基本信息写入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 项目主持人1简介='"&Person1&"',项目主持人2简介='"&Person2&"',组织管理方式='"&Manager&"'where 项目编码='"&ProjectCode&"'"
	conn.Execute StrSQL
	Response.Redirect ("Project_edit5.asp?projectInfo=项目基本情况修改成功!")
else '注册
	StrSQL="insert into XT_TD_ProjectBasic (项目编码,项目主持人1简介,项目主持人2简介,组织管理方式) values ('"&ProjectCode&"','"&Person1&"','"&Person2&"','"&Manager&"')"
	conn.Execute StrSQL
	Response.Redirect ("Project_edit5.asp?projectInfo=项目基本情况注册成功!")
end if

end if
%>