msg_p.inc

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

<%
Function MsgInfor()
	dim sMsgId, sSubject, sContent, sFolder, sSender, sReceiver, sSendTime
	dim sSQL	: sSQL = "select * from t_msg where emp_serial = " & GetEmpSerial & " and serial = " & pMsgSerial
	dim crs		: set crs = New CRecordset
	dim rs		: set rs = crs.Open(dbLocal, sSQL)
	if rs.EOF then
		crs.Close()
		Response.Clear
		Response.Write "<script language=""javascript"">alert(""该消息已被删除，请刷新页面！"");window.close();</script>"
		Response.End
		'Response.Clear
		'Server.Transfer("../common/error.asp")
		'Response.End
	end if

	sFolder = crs.GetValue("folder")
	sSubject = crs.GetValue("subject")
	sContent = crs.GetValue("content")
	sSender = crs.GetValue("sender")
	sReceiver = crs.GetValue("receiver")
	sSendTime = crs.GetValue("send_time")

	sFolder = FolderName(sFolder)
	sSender = TransEmpSerial(dbLocal, sSender)
	sReceiver = TransEmpSerial(dbLocal, sReceiver)
	sSendTime = FormatDt(sSendTime, "yyyy-mm-dd hh:mm")

	sContent = Replace(Replace(ToHTML(sContent),vbLF,"<br>"),chr(13),"&nbsp;")
	MsgInfor = _
		"<table cellspacing=1 cellpadding=2 border=0 bgcolor=silver width=""100%"" align=center>" & vbLF & _
		"<tr bgcolor=white height=20>" & vbLF & _
		"		<td colspan=2>&nbsp;消息位置：&nbsp;" & sFolder & "</td></tr>" & vbLF & _
		"<tr bgcolor=white height=20>" & vbLF & _
		"		<td>&nbsp;发 件 人：&nbsp;" & sSender & "</td></tr>" & vbLF & _
		"<tr bgcolor=white><td>&nbsp;发送时间：&nbsp;" & sSendTime & "&nbsp;</td></tr>" & vbLF & _
		"<tr bgcolor=white height=20>" & vbLF & _
		"		<td align=left colspan=2>&nbsp;收 件 人：&nbsp;" & sReceiver & "</td></tr>" & vbLF & _
		"<tr bgcolor=white height=20>" & vbLF & _
		"		<td colspan=2>&nbsp;主　　题：&nbsp;" & sSubject & "</td></tr>" & vbLF & _
		"<tr bgcolor=white height=200>" & vbLF & _
		"		<td colspan=2 valign=top style=""font-size:11pt;color:green"">" & sContent & "</td></tr>" & vbLF & _
		"</table>" & vbLF


		'' 将本消息设置为已读状态
		sSQL = "update t_msg set status = " & MSG_READ & " where serial = " & pMsgSerial
		call ExecuteSQL(dbLocal, sSQL)
End Function

Function ActionLink
	ActionLink = _
			"<table cellspacing=0 cellpadding=1 width=""100%"" align=center bgcolor=""silver"" style=""color:black"">" & vbLF & _
			"<tr height=15 bgcolor=""#0099cc"">" & vbLF & _
			"		<td align=center><a href=""send.asp?original_msg_serial=" & pMsgSerial & "&action=reply&"">答复</a></td>" & vbLF & _
			"		<td align=center><a href=""send.asp?original_msg_serial=" & pMsgSerial & "&action=replyall&"">全部答复</a></td>" & vbLF & _
			"		<td align=center><a href=""send.asp?original_msg_serial=" & pMsgSerial & "&action=forward&"">转发</a></td>" & vbLF & _
			"		<td align=center><a href=""msg_d.asp?msg_serial=" & pMsgSerial & "&option=delete"">删除</a></td>" & vbLF & _
			"		<td align=center><a href=""#"" onclick=""btnPerDelete_OnClick('msg_d.asp?msg_serial=" & pMsgSerial & "&option=perdelete&');"">永久删除</a></td>" & vbLF & _
			"</tr>" & vbLF & _
			"</table>" & vbLF
End Function
%>