project_regist7_4_4.asp

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

<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/AdoConn.asp"-->
<!--#include file="../Include/online.asp"-->
<%
'取得表单数据
XingS=request("XingS")
ZhongYS=request("ZhongYS")
ZhiZBL=request("ZhiZBL")
ZhiZJE=request("ZhiZJE")
HeZZZ=request("HeZZZ")
ComCName=request("ComCName")
ComEName=request("ComEName")
Add=request("Add")
LianXRC=request("LianXRC")
LianXRE=request("LianXRE")
Tel=request("Tel")
Fax=request("Fax")
Email=request("Email")
BeiJ=request("BeiJ")
ShuoM=request("ShuoM")
%>
<%
'第七页(项目类型为(四)(国际科技环境建设))填写的信息写入数据库
ProjectCode=session("ProjectCode")
IF projectcode="" then
   Response.Redirect ("Project_edit1.asp?projectInfo=请先注册封面信息!")
else
	'判断是否是修改状态
	set rst=server.CreateObject ("ADODB.recordset")
	StrSQL="select 项目编码 from XT_VD_ProjectSupplyNew4 where 项目编码='"&projectcode&"'"
	rst.CursorType =3
	rst.CursorLocation =3
	rst.LockType =2
	rst.Open StrSQL,strconn
if not rst.EOF then '修改状态
StrSQL="update XT_TD_ProjectSupplyNew4 set 项目形式='"& XingS &"',总预算='"& ZhongYS &"',申请资助比例='"& ZhiZBL &"',申请资助金额='"& ZhiZJE &"',基金核准资助额='"& HeZZZ &"',国外单位中文名称='"& ComCName &"',国外单位英文名称='"&ComEName&"',国外单位英文地址='"&Add&"',联系人中文='"&LianXRC&"',联系人英文='"&LianXRE&"',电话='"&Tel&"',传真='"&Fax&"',Email='"&Email&"',国外单位背景='"&BeiJ&"',项目说明='"&ShuoM&"' where 项目编码='"&ProjectCode&"'"
conn.Execute StrSQL
Response.Redirect ("Project_edit7_4_4.asp?projectInfo=项目专项补充计划修改成功!")
else '注册
StrSQL="insert into XT_TD_ProjectSupplyNew4 (项目编码,项目形式,总预算,申请资助比例,申请资助金额,基金核准资助额,国外单位中文名称,国外单位英文名称,国外单位英文地址,联系人中文,联系人英文,电话,传真,Email,国外单位背景,项目说明) values ('"&ProjectCode&"','"&XingS&"','"&ZhongYS&"','"&ZhiZBL&"','"&ZhiZJE&"','"& HeZZZ &"','"&ComEName&"','"&ComEName&"','"&Add&"','"&LianXRC&"','"&LianXRE&"','"&Tel&"','"&Fax&"','"&Email&"','"&BeiJ&"','"&ShuoM&"')"
conn.Execute StrSQL
Response.Redirect ("Project_edit8.asp?projectInfo=项目专项补充计划注册成功!")
end if

end if
%>