?? updatetotj.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
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -