📄 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()
Message_to=request("Message_to")
Message_title = request("Title")
Message_content = request("Content")
Message_title = replacePrime(Message_title)
Message_content = replacePrime(Message_content)
Message_date = date()
User_id = session("User_id")
Username=session("Name")
sql="SELECT * FROM Users_info WHERE Name="&Message_to
call openDB()
rs.open sql,conn,1,1
if rs.eof then
Message_to_id=rs("User_id")
else
response.write "没有此员工,请重新填写!"
end if
sql="INSERT INTO Message(Message_to,Message_to_id,Username,User_id,Message_title,Message_content,Message_date) " _
&"VALUES ('"&Message_to&"', '"&Message_to_id&"', '"&Username&"','"&User_id&"','"&Message_title&"','"&Message_content&"','"&Message_date&"') "
call openDB()
conn.execute(sql)
response.write "提交成功! <<<a href=""Browse.asp"">返回</a>"
call closeDB()
end sub
sub saveDelete()
dim Message_id
Message_id = request("Message_id")
if Message_id = "" then
call trigErr()
end if
call openDB()
conn.BeginTrans
sql="DELETE FROM Message WHERE Message_id="&Message_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 + -