updatetotj.asp

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

<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/AdoConn.asp"-->
<!--#include file="../Include/online.asp"-->
<%
ProjectCode=request.querystring("Code")
again=Request.QueryString ("again")
if not ProjectCode="" then
	if again="again" then'重新申报
		strsql="update xt_td_project set 退回标志='20' where 项目编码='"&ProjectCode&"'"
		conn.execute strsql,1
		Response.Redirect "Project_EditList.asp?strsql="+server.URLEncode ("select * from XT_VD_ProjectName where 项目负责人='"&session("usercode")&"'")
	else'申请推荐
		set rst=server.createobject("ADODB.recordset")
		Strsql="select 项目编码,项目进度 from XT_VD_ProjectName where 项目编码='"&ProjectCode&"'"
		rst.open Strsql,strconn
		JD=rst("项目进度")
		rst.Close
if JD<>"申报" then'已提交
%>
<script Language="JavaScript">
<!--
alert("您已提交申请了！");
history.back(-1);
// -->
</script>
<%'		Response.Redirect "Project_Edit1.asp?ProjectInfo=您已提交申请了！"
else			
	dim errorStr'错误提示
	errorStr=""
	'项目基本表
	Strsql="select 项目编码 from XT_VD_ProjectBasic where 项目编码='"&ProjectCode&"'"
	rst.open Strsql,strconn
	if rst.EOF then errorStr=errorStr&"第三页项目基本情况没有填完整!!"&"<a href='Project_Edit3.asp?ProjectInfo=项目基本情况没有填完整！'>返回第三页</a><br>"
	rst.Close 
	
	'人员情况表
	Strsql="select 项目编码 from xt_VD_ProjectPerson where 项目编码='"&ProjectCode&"'"
	rst.open Strsql,strconn
	if rst.EOF then errorStr=errorStr&"第四页人员基本情况没有填完整!!"&"<a href='Project_Edit4.asp?ProjectInfo=人员情况没有填完整！'>返回第四页</a><br>"
	rst.Close 
	
	'经费来源表
	Strsql="select 项目编码 from xt_VD_ProjectFee where 项目编码='"&ProjectCode&"'"
	rst.open Strsql,strconn
	if rst.EOF then errorStr=errorStr&"第五页经费来源情况没有填完整!!"&"<a href='Project_Edit5.asp?ProjectInfo=经费来源情况没有填完整！'>返回第五页</a><br>"
	rst.Close 
	

	'经费数量
	Strsql="select 项目编码 from xt_VD_ProjectFeeNum where 项目编码='"&ProjectCode&"'"
	rst.open Strsql,strconn
	if rst.EOF then errorStr=errorStr&"第五页经费数量情况没有填完整!!"&"<a href='Project_Edit5.asp?ProjectInfo=经费数量情况没有填完整！'>返回第五页</a><br>"
	rst.Close 

	'附件表
	'Strsql="select 项目编码 from xt_VD_ProjectAffix where 项目编码='"&ProjectCode&"'"
	'rst.open Strsql,strconn
	'if rst.EOF then errorStr=errorStr&"第五页经费情况没有填完整<br>"
	'rst.Close 
	
	'可行性报告
	Strsql="select 项目编码 from xt_VD_ProjectName where 项目编码='"&ProjectCode&"'"
	rst.open Strsql,strconn
	if rst.EOF then errorStr=errorStr&"没有提交可行性报告!!"&"<a href='Project_Edit5.asp?ProjectInfo=经费数量情况没有填完整！'>返回第五页</a><br>"
	rst.Close 

		if errorStr="" then'记录均填写完整
			strsql="update XT_TD_Project set 项目进度='推荐' where 项目编码="+"'"+ProjectCode+"'"
			conn.Execute strsql,1
			Response.Redirect "Project_EditList.asp?strsql="+server.URLEncode ("select * from XT_VD_ProjectName where 项目负责人='"&session("usercode")&"'")
		else'仍需修改
			Response.Write ErrorStr
		end if 
	end if
end if
else'项目编码为空
		Response.Redirect "Project_Edit1.asp?ProjectInfo=申报书没有填写完整，不能申请推荐！"
end if
set rst=nothing
%>