?? project_regist7_4_2.asp
字號:
<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/AdoConn.asp"-->
<!--#include file="../Include/online.asp"-->
<%
'取得表單數(shù)據(jù)
SheHYY=request("SheHYY")
HeZBM=request("HeZBM")
GongZSX=request("GongZSX")
%>
<%
'第七頁(項目類型為(四)(軟科學研究、科學普及))填寫的信息寫入數(shù)據(jù)庫
ProjectCode=session("ProjectCode")
IF projectcode="" then
Response.Redirect ("Project_edit1.asp?projectInfo=請先注冊封面信息!")
else
'判斷是否是修改狀態(tài)
set rst=server.CreateObject ("ADODB.recordset")
StrSQL="select 項目編碼 from XT_VD_ProjectSupplyNew2 where 項目編碼='"&projectcode&"'"
rst.CursorType =3
rst.CursorLocation =3
rst.LockType =2
rst.Open StrSQL,strconn
if not rst.EOF then '修改狀態(tài)
StrSQL="update XT_TD_ProjectSupplyNew2 set 社會意義='"&SheHYY&"',合作部門='"& HeZBM &"',工作設想='"&GongZSX&"' where 項目編碼='"&ProjectCode&"'"
conn.Execute StrSQL
Response.Redirect ("Project_edit7_4_2.asp?projectInfo=項目專項補充計劃修改成功!")
else '注冊
StrSQL="insert into XT_TD_ProjectSupplyNew2 (項目編碼,社會意義,合作部門,工作設想) values ('"&ProjectCode&"','"&SheHYY&"','"& HeZBM &"','"&GongZSX&"')"
conn.Execute StrSQL
Response.Redirect ("Project_edit8.asp?projectInfo=項目專項補充計劃注冊成功!")
end if
end if
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -