⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 savecerd.asp

📁 功能强大的办公自动化系统 具有前后台管理系统 具有很好的应用性
💻 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 (request("action")="Compose") then
	call saveCompose()
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 saveCompose()
	ITEM_TITLE = request("Title")
	ITEM_CONTENT = request("Content")
	ITEM_TITLE = replacePrime(ITEM_TITLE)
	ITEM_CONTENT = replacePrime(ITEM_CONTENT)
	COMPOSE_DATE = date()
	PERSONNEL_ID = session("PERSONNEL_ID")	
	sql="INSERT INTO ComBoardItems (ITEM_TITLE,ITEM_CONTENT,COMPOSE_DATE,MODIFY_DATE,ORIGIONAL,PERSONNEL_ID,ORIGONAL_ID,REPLY_NO) " _
		&"VALUES ('"&ITEM_TITLE&"', '"&ITEM_CONTENT&"', '"&COMPOSE_DATE&"','',1, "&PERSONNEL_ID&", 0,0) "
	call openDB()
	conn.execute(sql)
	response.write "提交成功!&nbsp;&nbsp;&lt;&lt;<a href=""Browse.asp"">返回</a>"
	call closeDB()
end sub

sub saveEdit()
	dim ITEM_ID
	ITEM_ID = request("ITEM_ID")
	if ITEM_ID = "" then
		call trigErr()
	end if
	ITEM_TITLE = request("Title")
	ITEM_TITLE = replace(ITEM_TITLE,"'","#Rep_PRIME_lace#")
	ITEM_CONTENT = request("Content")
	ITEM_CONTENT = replace(ITEM_CONTENT,"'","#Rep_PRIME_lace#")
	MODIFY_DATE = date()
	PERSONNEL_ID = session("PERSONNEL_ID")
	sql="UPDATE ComBoardItems " _
		&"SET ITEM_TITLE='"&ITEM_TITLE&"',ITEM_CONTENT='"&ITEM_CONTENT&"',MODIFY_DATE='"&MODIFY_DATE _
		&"' WHERE ITEM_ID="&ITEM_ID
	call openDB()
	conn.execute(sql)
	response.write "修改成功!&nbsp;&nbsp;&lt;&lt;<a href=""Browse.asp"">返回</a>"
	call closeDB()
end sub

sub saveReply()
	dim ITEM_ID
	ITEM_ID = request("ITEM_ID")
	if ITEM_ID = "" then
		call trigErr()
	end if
	ITEM_TITLE = request("Title")
	ITEM_TITLE = replacePrime(ITEM_TITLE)
	ITEM_CONTENT = request("Content")
	ITEM_CONTENT = replacePrime(ITEM_CONTENT)
	PERSONNEL_ID = session("PERSONNEL_ID")
	COMPOSE_DATE = date()
	call openDB()	
	conn.BeginTrans
		sql="INSERT INTO ComBoardItems (ITEM_TITLE,ITEM_CONTENT,COMPOSE_DATE,MODIFY_DATE,ORIGIONAL, " _
			&"PERSONNEL_ID,ORIGONAL_ID,REPLY_NO) " _
			&"VALUES ('Re:', '"&ITEM_CONTENT&"', '"&COMPOSE_DATE&"','',0, "&PERSONNEL_ID&", "&ITEM_ID&",0) "
		conn.execute(sql)
		sql="SELECT REPLY_NO FROM ComBoardItems WHERE ITEM_ID= "&ITEM_ID
		set rs=conn.execute(sql)
		sql="UPDATE ComBoardItems " _
			&"SET REPLY_NO= "&rs("REPLY_NO")+1 _
			&" WHERE ITEM_ID="&ITEM_ID
		rs.close
		conn.execute(sql)
	conn.CommitTrans
	response.write "修改成功!&nbsp;&nbsp;&lt;&lt;<a href=""Browse.asp"">返回</a>"
	call closeDB()
end sub

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

⌨️ 快捷键说明

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