?? 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 + -