📄 savececs.asp
字号:
<!--#include file="../includes/keepHouse.asp"-->
<%
call insureID()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>WebOffice</title>
</head>
<body>
<%
dim DECISION_ID
dim DECISION_TITLE
dim DECISION_CONTENT
dim COMPOSE_DATE
dim CONFIRMED
dim CONFIRM_DATE
if (request("action")="Compose") then
call saveCompose()
elseif (request("action")="Edit") then
call saveEdit()
elseif (request("action")="Confirm") then
call saveConfirm()
elseif (request("action")="Suggest") then
call saveSuggest()
else
call trigErr()
end if
sub saveCompose()
if session("POSITION_ID")<>4 then
call noRight()
end if
DEPT_ID = session("DEPT_ID")
DECISION_TITLE = request("Title")
DECISION_CONTENT = request("Content")
DECISION_TITLE = replacePrime(DECISION_TITLE)
DECISION_CONTENT = replacePrime(DECISION_CONTENT)
if (request("Comfirmed")="YES") then
CONFIRMED = 1
CONFIRM_DATE = date()
sql="INSERT INTO DeptDecision (DECISION_TITLE,DECISION_CONTENT,COMPOSE_DATE,CONFIRMED,CONFIRM_DATE,DEPT_ID,PERSONNEL_ID) " _
&"VALUES ('"&DECISION_TITLE&"', '"&DECISION_CONTENT&"',GETDATE() " _
&",1,GETDATE(), "&DEPT_ID&","&session("PERSONNEL_ID")&" )"
else
CONFIRMED = 0
CONFIRM_DATE = ""
sql="INSERT INTO DeptDecision (DECISION_TITLE,DECISION_CONTENT,COMPOSE_DATE,CONFIRMED,CONFIRM_DATE,DEPT_ID,PERSONNEL_ID) " _
&"VALUES ('"&DECISION_TITLE&"', '"&DECISION_CONTENT&"',GETDATE() " _
&",0, '', "&DEPT_ID&","&session("PERSONNEL_ID")&" )"
end if
call openDB()
conn.execute(sql)
response.write "添加成功! <<<a href=""Browse.asp"">返回</a>"
call closeDB()
end sub
sub saveEdit()
if session("POSITION_ID")<>4 then
call noRight()
end if
DEPT_ID = session("DEPT_ID")
DECISION_ID=request("DECISION_ID")
DECISION_TITLE = request("Title")
DECISION_CONTENT = request("Content")
DECISION_TITLE = replacePrime(DECISION_TITLE)
DECISION_CONTENT = replacePrime(DECISION_CONTENT)
if (request("Comfirm")="") then
CONFIRMED = 0
CONFIRM_DATE = ""
sql="UPDATE DeptDecision " _
&"SET DECISION_TITLE='"&DECISION_TITLE&"',DECISION_CONTENT='"&DECISION_CONTENT&"',COMPOSE_DATE=" _
&"GETDATE(),0,CONFIRM_DATE='',DEPT_ID="&DEPT_ID _
&"WHERE DECISION_ID="&DECISION_ID
elseif (request("Comfirm")="YES") then
CONFIRMED = 1
sql="UPDATE DeptDecision " _
&"SET DECISION_TITLE='"&DECISION_TITLE&"',DECISION_CONTENT='"&DECISION_CONTENT&"',COMPOSE_DATE='" _
&"GETDATE(),1,CONFIRM_DATE=GETDATE,DEPT_ID="&DEPT_ID _
&"WHERE DECISION_ID="&DECISION_ID
else
call trigErr()
CONFIRM_DATE = "GETDATE()"
end if
call openDB()
conn.execute(sql)
call closeDB()
response.write "修改成功! <<<a href=""Browse.asp"">返回</a>"
end sub
sub saveConfirm()
if session("POSITION_ID")<>4 then
call noRight()
end if
DECISION_ID=request("DECISION_ID")
sql="UPDATE DeptDecision SET CONFIRMED = 1 AND CONFIFM_DATE=GETDATE()" _
&"WHERE (DECISION_ID = "&DECISION_ID&")"
call openDB()
conn.execute(sql)
call closeDB()
response.write "该决定已通过审核,正式发布了! <a href=""Browse.asp""><<返回</a>"
end sub
sub saveSuggest()
end sub
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -