project_regist5.asp

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

<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/AdoConn.asp"-->
<!--#include file="../Include/online.asp"-->
<%
'取得表单数据
dim Year1DaoWei(3)
dim Year2DaoWei(3)
dim Year3DaoWei(3)
dim LaiYuanSM(3)
for i=0 to 3
	a="Year1DaoWei"+cstr(i)
Year1DaoWei(i)=request(a)
	a="Year2DaoWei"+cstr(i)
Year2DaoWei(i)=request(a)
	a="Year3DaoWei"+cstr(i)
Year3DaoWei(i)=request(a)
	a="LaiYuanSM"+cstr(i)
LaiYuanSM(i)=request(a)
next
Coun1DaoWei=request("Coun1DaoWei")
Coun2DaoWei=Request("Coun2DaoWei")
Coun3DaoWei=Request("Coun3DaoWei")
allCounDaoWei=Request("allCounDaoWei")

dim WuChang(2)
dim TieXi(2)
dim YouChang(2)
dim ShiYongFX(2)
for i=0 to 2
	a="WuChang"+cstr(i)
WuChang(i)=request(a)
	a="TieXi"+cstr(i)
TieXi(i)=request(a)
	a="YouChang"+cstr(i)
YouChang(i)=request(a)
	a="ShiYongFX"+cstr(i)
ShiYongFX(i)=request(a)
next
CounWC=request("CounWC")
CounTX=request("CounTX")
CounYC=request("CounYC")
AllCounNum=request("AllCounNum")


%>
<%
'第五页项目经费情况写入数据库
ProjectCode=session("ProjectCode")
IF projectcode="" then
   Response.Redirect ("Project_edit1.asp?projectInfo=请先注册封面信息!")
else

'''''''''''项目经费信息写入数据库
StrSQL="delete from XT_TD_ProjectFee where 项目编码='"&ProjectCode&"'"
conn.Execute StrSQL
for i=0 to 3 '经费来源
	StrSQL="insert into XT_TD_ProjectFee (项目编码,投放类型,本年度到位,第二年度到位,第三年度到位,来源说明) values ('"&ProjectCode&"','"&cstr(i)&"','"&Year1DaoWei(i)&"','"&Year2DaoWei(i)&"','"&Year3DaoWei(i)&"','"&LaiYuanSM(i)&"')"
	conn.Execute StrSQL
next
	'合计信息
	StrSQL="insert into XT_TD_ProjectFee (项目编码,投放类型,本年度到位,第二年度到位,第三年度到位) values ('"&ProjectCode&"','4','"&Coun1DaoWei&"','"&Coun2DaoWei&"','"&coun3DaoWei&"')"
	conn.Execute StrSQL

 '''''''''''申请市科技经费数量写入库	
StrSQL="delete from XT_TD_ProjectFeeNum where 项目编码='"&ProjectCode&"'"
conn.Execute StrSQL
for i=0 to 2
 	StrSQL="insert into XT_TD_ProjectFeeNum (项目编码,申请类型,无偿,贴息,有偿,使用方向) values ('"&ProjectCode&"','"&cstr(i)&"','"&WuChang(i)&"','"&TieXi(i)&"','"&YouChang(i)&"','"&ShiYongFX(i)&"')"
	conn.Execute StrSQL
next
	'合计信息
 	StrSQL="insert into XT_TD_ProjectFeeNum (项目编码,申请类型,无偿,贴息,有偿) values ('"&ProjectCode&"','3','"&CounWC&"','"&CounTX&"','"&CounYC&"')"
	conn.Execute StrSQL


	'判断是否是修改状态
	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 经费总额='"&allCounDaoWei&"',申请经费总额='"&AllCounNum&"' where 项目编码='"&ProjectCode&"'"
	conn.Execute StrSQL
	Response.Redirect ("Project_edit6.asp?projectInfo=项目经费情况修改成功!")
else '注册
	StrSQL="insert into XT_TD_ProjectBasic (项目编码,经费总额,申请经费总额) values ('"&ProjectCode&"','"&allCounDaoWei&"','"&AllCounNum&"')"
	conn.Execute StrSQL
	Response.Redirect ("Project_edit6.asp?projectInfo=项目经费情况注册成功!")
end if

end if
%>