📄 savececd.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>
<%
if session("POSITION_ID")>3 then
call noRight()
end if
if (request("action")="Compose") then
call saveCompose()
elseif (request("action")="Edit") then
call saveEdit()
elseif (request("action")="Confirm") then
call saveConfirm()
elseif (request("action")="Delete") then
call saveDelete()
else
call trigErr()
end if
sub saveCompose()
dim PERSONNEL_ID
dim DECISION_TITLE
dim DECISION_CONTENT
if session("POSITION_ID")>3 then
call noRight()
end if
PERSONNEL_ID = session("PERSONNEL_ID")
DECISION_TITLE = request("Title")
DECISION_CONTENT = request("Content")
DECISION_TITLE = replacePrime(DECISION_TITLE)
DECISION_CONTENT = replacePrime(DECISION_CONTENT)
if (request("Comfirmed")="Comfirmed") then
sql="INSERT INTO CompanyDecision (DECISION_TITLE,DECISION_CONTENT, " _
&"COMPOSE_DATE,CONFIRMED,CONFIRM_DATE,PERSONNEL_ID) " _
&"VALUES ('"&DECISION_TITLE&"', '"&DECISION_CONTENT&"', " _
&"GETDATE(), 1, GETDATE(), "&PERSONNEL_ID&" )"
else
sql="INSERT INTO CompanyDecision (DECISION_TITLE,DECISION_CONTENT, " _
&"COMPOSE_DATE,CONFIRMED,CONFIRM_DATE,PERSONNEL_ID) " _
&"VALUES ('"&DECISION_TITLE&"', '"&DECISION_CONTENT&"', " _
&"GETDATE(), 0, '', "&PERSONNEL_ID&" )"
end if
call openDB()
conn.execute(sql)
call closeDB()
response.write "添加成功! <<<a href=""Browse.asp"">返回</a>"
end sub
sub saveEdit()
dim DECISION_ID
dim DECISION_TITLE
dim DECISION_CONTENT
if session("POSITION_ID")>2 then
call noRight()
end if
PERSONNEL_ID = session("PERSONNEL_ID")
DECISION_ID=request("DECISION_ID")
DECISION_TITLE = request("Title")
DECISION_TITLE = replacePrime(DECISION_TITLE)
DECISION_CONTENT = request("Content")
DECISION_CONTENT = replacePrime(DECISION_CONTENT)
if (request("Comfirmed")="Comfirmed") then
sql="UPDATE CompanyDecision " _
&"SET DECISION_TITLE='"&DECISION_TITLE&"',DECISION_CONTENT='"&DECISION_CONTENT&"',COMPOSE_DATE='" _
&"GETDATE(),1,CONFIRM_DATE=GETDATE(),PERSONNEL_ID="&PERSONNEL_ID _
&"WHERE DECISION_ID="&DECISION_ID
else
CONFIRMED = 0
CONFIRM_DATE = ""
sql="UPDATE CompanyDecision " _
&"SET DECISION_TITLE='"&DECISION_TITLE&"',DECISION_CONTENT='"&DECISION_CONTENT&"',COMPOSE_DATE='" _
&"GETDATE(),0,CONFIRM_DATE='',PERSONNEL_ID="&PERSONNEL_ID _
&"WHERE DECISION_ID="&DECISION_ID
end if
call openDB()
sql="UPDATE CompanyDecision " _
&"SET DECISION_TITLE='"&DECISION_TITLE&"',DECISION_CONTENT='"&DECISION_CONTENT&"',COMPOSE_DATE='" _
&COMPOSE_DATE&"',CONFIRMED="&CONFIRMED&",CONFIRM_DATE='"&CONFIRM_DATE&"',PERSONNEL_ID="&PERSONNEL_ID _
&"WHERE DECISION_ID="&DECISION_ID
conn.execute(sql)
call closeDB()
response.write "修改成功! <<<a href=""Browse.asp"">返回</a>"
end sub
sub saveConfirm()
dim DECISION_ID
if session("POSITION_ID")<>1 then
call noRight()
end if
DECISION_ID=request("DECISION_ID")
sql="UPDATE CompanyDecision SET CONFIRMED = 1 " _
&"WHERE (DECISION_ID = "&DECISION_ID&")"
call openDB()
conn.execute(sql)
call closeDB()
response.write "该决定已通过审核,正式发布了! <a href=""Browse.asp""><<返回</a>"
end sub
sub saveDelete()
dim DECISION_ID
DECISION_ID=request("DECISION_ID")
if DECISION_ID="" then
call trigErr()
end if
sql="DELETE FROM CompanyDecision WHERE DECISION_ID = "&DECISION_ID
response.write sql
response.end
call openDB()
conn.execute(sql)
response.write "删除成功! <a href=""Browse.asp""><<返回</a>"
end sub
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -