u_messageinfo_bak.asp

物业管理和办公自动化系统

<%@ language="VBScript"%>
<!-- #include file="Common.asp" -->
<!-- #include file="common_msg.asp" -->

<script language="VBScript">
'--------------------------------------------------------------------
' 判断用户作了什么动作，【关闭】、【回复】还是【删除】？
'--------------------------------------------------------------------
'　用户按了【关闭】按钮
sub btnClose_OnClick()
	window.close()
end sub

'　用户按了【回复】按钮
sub btnReply_OnClick()
	Dim sReply
	sReply = document.HandleMessage.reply.value
'	if IsEmpty(sReply) or trim(sRelpy) = "" then	'“这样写有问题唉！”
	if trim(sReply = "") then
		msgbox "请输入回复内容！"
		document.HandleMessage.reply.focus()
		exit sub
	end if
	document.HandleMessage.FormAction.value = "reply"
	HandleMessage.submit()
end sub

'　用户按了【删除】按钮
sub btnDelete_OnClick()
	document.HandleMessage.FormAction.value = "delete"
'	msgbox document.HandleMessage.FormAction.value
	HandleMessage.submit()
end sub
</script>

<%
'--------------------------------------------------------------------------------------
' 根据用户的选择：【回复】或【删除】进行相应的操作（【关闭】操作在Submit前的OnClick时就已经实现了）
' 变量前导 t 表示是本页传过来的参数
' 回复时消息发送者将成为回复消息的接收者，回复消息的主题将是"Re:原主题"
'--------------------------------------------------------------------------------------
Dim sError		: sError = ""

Dim tFormAction	: tFormAction = GetParam("FormAction")
Dim tMsgType	: tMsgType = conMsgCommon
Dim tSerial		: tSerial = GetParam("PersonalMsgSerial")
Dim tMsgSerial	: tMsgSerial = GetParam("MsgSerial")
Dim tSubject	: tSubject = GetParam("Subject")
Dim tContent	: tContent = GetParam("reply")
Dim tSender		: tSender = Session("UserID")
Dim tReceiver	: tReceiver = GetParam("Sender")

if Not IsEmpty(tMsgSubject) then
	tMsgSubject = "Re:" & tMsgSubject
end if

Dim sSQL	: sSQL = ""
if Not IsEmpty(tFormAction) then
	if tFormAction = "reply" then
		Dim rtnCode : rtnCode = newMessage("proc_NewMessage", tMsgType, tSubject, tContent, tSender, tReceiver)
		if rtnCode = 0 then 
			Response.write "<script language=""JavaScript"">alert('恭喜，消息已经成功地回复了！'); window.close();</script>"
		else
			Response.write "<script language=""JavaScript"">alert('消息发送没有成功，错误码为" & rtnCode & "')</script>"
		end if
	end if
	if tFormAction = "delete" then
'		response.write("<script language='JavaScript'>alert('Submit delete');</script>")
'		cn.execute "delete from T_PersonalMessage where Serial = " & ToSQL(tSerial,"Number")
'		response.write "<script language='JavaScript'>alert('" & tFormAction & "');</script>"
'		response.write "<script language='JavaScript'>alert('" & tSerial & "');</script>"
		sSQL = "delete from T_PersonalMessage where Serial = " & ToSQL(tSerial, "Number")
		response.write "<script language='JavaScript'>alert('" & sSQL & "');</script>"
		cn.execute(sSQL)
		sError = ProcessError
		if sError <> "" then
			response.write "<script language='JavaScript'>alert('消息删除不成功！');self.close();</script>"
		else
			response.write "<script language='JavaScript'>alert('消息删除成功！');self.close();</script>"
		end if
	else
		response.write "<script language='JavaScript'>alert('怎么会到这里来的？');self.close();</script>" 	' 这种情况应该永远不会出现
	end if
end if
%>

<%
'--------------------------------------------------------------------
' 调用存储过程将员工工号翻译成员工姓名
'--------------------------------------------------------------------
function getName(idlist)
	Dim rsName : rsName = CreateObject("ADODB.Recordset")
	Set rsName = cn.Execute("proc_transEmpList " & ToSQL(idlist,"Text"))
	getName = GetValue(rsName, "namelist")
end function
%>

<%
'--------------------------------------------------------------------
' 准备数据以备显示，这些数据是上页传过来的
'--------------------------------------------------------------------
Dim pSerial		: pSerial = GetParam("Serial")
Dim pMsgSerial	: pMsgSerial = GetParam("MsgSerial")
Dim pAccountID	: pAccountID = GetParam("Account_id")
Dim pMsgType	: pMsgType = GetParam("Message_Type")
Dim pSubject	: pSubject = GetParam("MsgSubject")
Dim pContent	: pContent = GetParam("MsgContent")
Dim pSender		: pSender = GetParam("Sender")
Dim pSendTime	: pSendTime = GetParam("SendTime")
Dim pReceiver	: pReceiver = GetParam("Receiver")
	
Dim pSenderName	: pSenderName = getName(pSender)	' 翻译发送者姓名
pReceiver = getName(pReceiver)						' 翻译接收者姓名

'--------------------------------------------------------------------
' 如果pAccountID <> Session("UserID")，则为非法操作
'--------------------------------------------------------------------
if pAccountID <> Session("UserID") then
	response.write "<script language='JavaScript'>window.alert('非法访问！！！');self.close();</script>"
end if
%>

<html>
<head>
<style>
td {border-width:1px;border-color:white #D0D0D0 #D0D0D0 #D0D0D0;border-style:solid;font-size:9pt;height:20}
body {background-color:white;color:#000000;font-family:Arial,Tahoma,Verdana,Helvetica;color:#508CFF;
	scrollbar-face-color:#FFFFFF; scrollbar-shadow-color:#FFFFFF; scrollbar-highlight-color:#FFFFFF; scrollbar-3dlight-color:#FFFFFF; scrollbar-darkshadow-color:#FFFFFF; scrollbar-track-color:#FFFFFF; scrollbar-arrow-color:gray;
	margin-top:0px;margin-bottom:0px;margin-left:0px;margin-right:0px}
textarea {border-width:1px;border-color:#D0D0D0 white white white;border-style:solid;font-size:9pt;line-height:14pt;width:292;height:80}
.flatctrl {border-width:1px;border-color:black black black black; border-style:solid;font-size:9pt;line-heigth:20px;width:50}
</style>
</head>
<body>
<table cellspacing=0 cellpadding=0 width=300>
	<tr><td align=center style="border-color:#D0D0D0 #D0D0D0 #D0D0D0 #D0D0D0;font-size:11pt;font-weight:600;height:30px"><% if ToSQL(pMsgType,"Number") = conMsgBulletin then response.write "最新公告" else response.write "最新消息"%></td></tr>
	<tr><td style="padding-left:5px;padding-right:10px" align="left">&nbsp;消息接收者：<%=pReceiver%></td></tr>
	<tr><td style="padding-left:5px;padding-right:10px">&nbsp;标题：<%=pSubject%></td></tr>
	<tr><td style="padding-left:5px;padding-right:10px">&nbsp;内容：<br>　　<%=pContent%></td></tr>
	<tr><td align="right" style="padding-right:15px">&nbsp;<%=pSenderName%>　<%=pSendTime%></td></tr>

<Form method="post" action="u_MessageInfo.asp" name="HandleMessage" OnSubmit="submit_OnClick()">
	<tr><td style="padding-left:5px">回复内容：<br><textarea name="reply">（这里填写回复内容）</textarea></td></tr>
	<tr><td align="center">

		<input type="hidden" name="PersonalMsgSerial" value="<%=pSerial%>">
		<input type="hidden" name="MsgSerial" value="<%=pMsgSerial%>">
		<input type="hidden" name="Sender" value="<%=pSender%>">
		<input type="hidden" name="Subject" value="<%=pSubject%>">

		<input type="hidden" name="FormAction" value="close">
		<input type="button" name="btnReply" value="回复" class="flatctrl">　
		<input type="button" name="btnDelete" value="删除" class="flatctrl">　
		<input type="button" name="btnClose" value="关闭" class="flatctrl">
	</td></tr>
</Form>

</table>
</body>
</html>