newestmsg.inc

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

<%
function MsgRecords()
		dim sSQL, crs, rs, iCounter
		dim sMsgSerial, sSender, sReceiver, sSendTime, sSubject, sContent, sFolder
		dim sTemp

		'' 选出最新的10条消息
		sSQL = "select * from t_msg" & _
						" where emp_serial = " & sMyEmpSerial & _
						" and folder in (" & IN_BOX & "," & INBOX_BULLETIN & "," & INBOX_MEETING & "," & INBOX_APPROVE & "," & INBOX_TASK & ")" & _
						" order by status asc, send_time desc, folder asc"

		set crs = New CRecordset
		set rs = crs.Open(dbLocal, sSQL)
		iCounter = 0
		sTemp = ""
		while not rs.eof and iCounter < iRows
				iCounter = iCounter + 1
				sMsgSerial	 = crs.GetValue("serial")
				sSender		 = crs.GetValue("sender")
				sSendTime	 = crs.GetValue("send_time")
				sReceiver	 = crs.GetValue("receiver")
				sSubject	 = crs.GetValue("subject")
				sContent	 = crs.GetValue("content")
				sFolder		 = crs.GetValue("folder")

				sFolder		 = FolderName(sFolder)

				sTemp = sTemp & _
						"<tr title=""［" & sFolder & "］" & vbLF & _
										"发件人　：" & TransEmpSerial(dbLocal, sSender) & vbLF & _
										"发送时间：" & FormatDT(sSendTime, "yyyy-mm-dd hh:mm") & vbLF & _
										"收件人　：" & TransEmpSerial(dbLocal, sReceiver) & vbLF & _
										"主　题　：" & sSubject & vbLF & _
										"内　容　：" & sContent & """" & _
										" style=""cursor:hand"" height=20 bgcolor=""orange""" & _
										" onclick=""window.open('msg_p.asp?msg_serial=" & sMsgSerial & "&', '','width=480,height=421')"">" & vbLF & _
								"<td align=right><img border=0 src=""images/toc_endnode.gif"" height=11 width=11>&nbsp;</td>" & vbLF & _
								"<td nowrap>" & sSubject & "&nbsp;</td>" & vbLF & _
						"</tr>" & vbLF
				rs.movenext
		wend
		crs.Close()

		MsgRecords = sTemp
end function
%>