📄 save.asp
字号:
<!--#include file="../includes/db.asp"-->
<%
call insureID()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>办公自动化系统</title>
</head>
<body>
<%
'根据不同的请求执行不同的操作
if (request("action")="Add") then
call saveAdd()
elseif (request("action")="Edit") then
call saveEdit()
elseif (request("action")="Reply") then
call saveReply()
elseif (request("action")="Delete") then
call saveDelete()
else
calltrigErr()
end if
'保存发表文章
sub saveAdd()
Article_title = request("Title")
Article_content = request("Content")
Article_title = replacePrime(Article_title)
Article_content = replacePrime(Article_content)
Article_date = date()
User_id = session("User_id")
sql="INSERT INTO MessageBoard (Article_title,Article_content,Article_date,Modify_date,Authorship,User_id,Authorship_id,Reply_num) " _
&"VALUES ('"&Article_title&"', '"&Article_content&"', '"&Article_date&"','',1, "&User_id&", 0,0) "
call openDB()
conn.execute(sql)
response.write "提交成功! <<<a href=""Browse.asp"">返回</a>"
call closeDB()
end sub
'保存文章的修改
sub saveEdit()
dim Article_id
Article_id = request("Article_id")
if Article_id = "" then
call trigErr()
end if
Article_title = request("Title")
Article_title = replace(Article_title,"'","#Rep_PRIME_lace#")
Article_content = request("Content")
Article_content = replace(Article_content,"'","#Rep_PRIME_lace#")
Modify_date = date()
User_id = session("User_id")
sql="UPDATE MessageBoard " _
&"SET Article_title='"&Article_title&"',Article_content='"&Article_content&"',Modify_date='"&Modify_date _
&"' WHERE Article_id="&Article_id
call openDB()
conn.execute(sql)
response.write "修改成功! <<<a href=""Browse.asp"">返回</a>"
call closeDB()
end sub
'保存回复
sub saveReply()
dim Article_id
Article_id = request("Article_id")
if Article_id = "" then
call trigErr()
end if
'Article_title = request("Title")
'Article_title = replacePrime(Article_title)
Article_content = request("Content")
Article_content = replacePrime(Article_content)
User_id = session("User_id")
Article_date = date()
call openDB()
'开始事务处理
conn.BeginTrans
'插入回复内容
sql="INSERT INTO MessageBoard (Article_title,Article_content,Article_date,Modify_date,Authorship, " _
&"User_id,Authorship_id,Reply_num) " _
&"VALUES ('Re:', '"&Article_content&"', '"&Article_date&"','',0, "&User_id&", "&Article_id&",0) "
conn.execute(sql)
'将回复数增加1
sql="SELECT Reply_num FROM MessageBoard WHERE Article_id= "&Article_id
set rs=conn.execute(sql)
sql="UPDATE MessageBoard " _
&"SET Reply_num= "&rs("Reply_num")+1 _
&" WHERE Article_id="&Article_id
rs.close
conn.execute(sql)
'事务处理结束
conn.CommitTrans
response.write "提交成功! <<<a href=""Browse.asp"">返回</a>"
call closeDB()
end sub
sub saveDelete()
dim Article_id
Article_id = request("Article_id")
if Article_id = "" then
call trigErr()
end if
call openDB()
'开始事务处理
conn.BeginTrans
'删除原创文章
sql="DELETE FROM MessageBoard WHERE Article_id="&Article_id
conn.execute(sql)
'删除所有回复它的帖子
sql="DELETE FROM MessageBoard WHERE Authorship_id="&Article_id
conn.execute(sql)
'事务处理结束
conn.CommitTrans
response.write "删除成功! <<<a href=""Browse.asp"">返回</a>"
call closeDB()
end sub
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -