saveced.asp

来自「功能强大的办公自动化系统 具有前后台管理系统 具有很好的应用性」· ASP 代码 · 共 82 行

ASP
82 行
字号 
<!--#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 (request("action")="Compose") then
	call saveCompose()
	response.end
elseif (request("action")="Edit") then
	call saveEdit()
	response.end
elseif (request("action")="Delete") then
	call saveDelete()
	response.end
else
	call trigErr()
end if

sub saveCompose()
	dim NOTE_TITLE
	dim NOTE_CONTENT
	NOTE_TITLE = request("Title")
	NOTE_CONTENT = request("Content")
	NOTE_TITLE = replacePrime(NOTE_TITLE)
	NOTE_CONTENT = replacePrime(NOTE_CONTENT)
	if NOTE_TITLE="" or NOTE_CONTENT="" then
		call trigErr()
	end if
	PERSONNEL_ID = session("PERSONNEL_ID")	
	sql="INSERT INTO PersonalNotes (NOTE_TITLE,NOTE_CONTENT,COMPOSE_DATE,PERSONNEL_ID) " _
		&"VALUES ('"&NOTE_TITLE&"', '"&NOTE_CONTENT&"', GETDATE(), "&PERSONNEL_ID&") "
	call openDB()
	conn.execute(sql)
	response.write "提交成功!&nbsp;&nbsp;&lt;&lt;<a href=""Browse.asp"">返回</a>"
	call closeDB()
end sub

sub saveEdit()
	dim NOTE_ID
	dim NOTE_TITLE
	dim NOTE_CONTENT
	NOTE_ID = request("NOTE_ID")
	if NOTE_ID = "" then
		call trigErr()
	end if
	NOTE_TITLE = request("Title")
	NOTE_CONTENT = request("Content")
	NOTE_TITLE = replacePrime(NOTE_TITLE)
	NOTE_CONTENT = replacePrime(NOTE_CONTENT)
	if NOTE_TITLE="" or NOTE_CONTENT="" then
		call trigErr()
	end if
	sql="UPDATE PersonalNotes " _
		&"SET NOTE_TITLE='"&NOTE_TITLE&"',NOTE_CONTENT='"&NOTE_CONTENT&"',COMPOSE_DATE=GETDATE() " _
		&"WHERE NOTE_ID="&NOTE_ID
	call openDB()
	conn.execute(sql)
	response.write "修改成功!&nbsp;&nbsp;&lt;&lt;<a href=""Browse.asp"">返回</a>"
	call closeDB()
end sub

sub saveDelete()
	NOTE_ID = request("NOTE_ID")
	if NOTE_ID = "" then
		call trigErr()
	end if
	sql ="DELETE FROM PersonalNotes WHERE NOTE_ID="&NOTE_ID
	call openDB()
	conn.execute(sql)
	response.write "修改成功!&nbsp;&nbsp;&lt;&lt;<a href=""Browse.asp"">返回</a>"
	call closeDB()
end sub
%>
</body>
</html>

saveced.asp - 源码说明

本页面展示了「功能强大的办公自动化系统 具有前后台管理系统 具有很好的应用性」中的 saveced.asp 源码文件，采用 ASP 编程语言编写，共 82 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与办公自动化相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?