project_regist6.asp

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

<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/AdoConn.asp"-->
<!--#include file="../Include/online.asp"-->
<%
'取得表单数据
FuJian1=request("FuJian1")
FuJian2=request("FuJian2")
FuJian3=request("FuJian3")
FuJian4=request("FuJian4")
FuJian5=request("FuJian5")
FuJian6=request("FuJian6")
FuJian7=request("FuJian7")
FuJian8=request("FuJian8")
FuJian9=request("FuJian9")
FuJian10=request("FuJian10")
FuJian11=request("FuJian11")
FuJian12=request("FuJian12")
FuJian13=request("FuJian13")
FuJian14=request("FuJian14")
FuJian15=request("FuJian15")
FuJian16=request("FuJian16")
FuJian17=request("FuJian17")
FuJian18=request("FuJian18")
FuJian19=request("FuJian19")
other=request("other")
%>
<%
'第六页项目附件情况写入数据库
ProjectCode=session("ProjectCode")
IF projectcode="" then
   Response.Redirect ("Project_edit1.asp?projectInfo=请先注册封面信息!")
else

'''''''''''项目附件信息写入数据库
StrSQL="delete from XT_TD_ProjectAffix where 项目编码='"&ProjectCode&"'"
conn.Execute StrSQL

StrSQL="insert into XT_TD_ProjectAffix (项目编码,f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f20) values ('"&ProjectCode&"','"&FuJian1&"','"&FuJian2&"','"&FuJian3&"','"&FuJian4&"','"&FuJian5&"','"&FuJian6&"','"&FuJian7&"','"&FuJian8&"','"&FuJian9&"','"&FuJian10&"','"&FuJian11&"','"&FuJian12&"','"&FuJian13&"','"&FuJian14&"','"&FuJian15&"','"&FuJian16&"','"&FuJian17&"','"&FuJian18&"','"&FuJian19&"','"&other&"')"
conn.Execute StrSQL
select case session("ProjectType")
case 43
	Response.Redirect ("Project_edit7_4_1.asp?projectInfo=项目附件信息提交成功!")
case 44
	Response.Redirect ("Project_edit7_4_1.asp?projectInfo=项目附件信息提交成功!")
case 46
	Response.Redirect ("Project_edit7_4_2.asp?projectInfo=项目附件信息提交成功!")
case 47
	Response.Redirect ("Project_edit7_4_2.asp?projectInfo=项目附件信息提交成功!")
case 41
	Response.Redirect ("Project_edit7_4_3.asp?projectInfo=项目附件信息提交成功!")
case 45
	Response.Redirect ("Project_edit7_4_3.asp?projectInfo=项目附件信息提交成功!")
case 42
	Response.Redirect ("Project_edit7_4_4.asp?projectInfo=项目附件信息提交成功!")
case 31
	Response.Redirect ("Project_edit7_3.asp?projectInfo=项目附件信息提交成功!")
case 32
	Response.Redirect ("Project_edit7_3.asp?projectInfo=项目附件信息提交成功!")
case 33
	Response.Redirect ("Project_edit7_3.asp?projectInfo=项目附件信息提交成功!")
case 34
	Response.Redirect ("Project_edit7_3.asp?projectInfo=项目附件信息提交成功!")
case else
	Response.Redirect ("Project_edit8.asp?projectInfo=项目附件信息提交成功!")
end select

end if
%>