msg.inc

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

<%
function InFolderTrash(folder)
	if CStr(folder) = TRASH_BOX or CInt(folder) > 1000 then
		InFolderTrash = true
	else
		InfolderTrash = false
	end if
end function

function FolderName(folder)
	dim sFolderName
	select case CStr(folder)
	case IN_BOX
		sFolderName = "收件箱"
	case INBOX_BULLETIN
		sFolderName = "收件箱 -> 公告"
	case INBOX_MEETING
		sFolderName = "收件箱 -> 会议相关"
	case INBOX_APPROVE
		sFolderName = "收件箱 -> 审批相关"
	case INBOX_TASK
		sFolderName = "收件箱 -> 任务相关"
	case OUT_BOX
		sFolderName = "发件箱"
	case DRAFT_BOX
		sFolderName = "草稿箱"
	case TRASH_BOX
		sFolderName = "回收站"
	case else
		sFolderName = "回收站"
	end select
	FolderName = sFolderName
end function


function FolderSelectOptions()
	FolderSelectOptions = _
			"				<option value=""0"" style=""color:black"">－全部－</option>" & vbLF & _
			"				<option value=""1"">收件箱</option>" & vbLF & _
			"				<option value=""102"">　会议相关</option>" & vbLF & _
			"				<option value=""103"">　审批相关</option>" & vbLF & _
			"				<option value=""104"">　任务相关</option>" & vbLF & _
			"				<option value=""2"">发件箱</option>" & vbLF & _
			"				<option value=""3"">草稿箱</option>" & vbLF & _
			"				<option value=""4"">回收站</option>" & vbLF
'			"				<option value=""101"">　　公告</option>" & vbLF & _
end function


function FrameTitle(desp,img, bgcolor, color)
	FrameTitle = _
			"<table cellspacing=0 cellpadding=1 width=""100%"" align=center bgcolor=""" & bgcolor & """>" & vbLF & _
			"<tr height=20>" & vbLF & _
					"<td>&nbsp;<b class=shadow2 style=""color:" & color & ";""><img border=0 src=""" & img & """ align=absmiddle>&nbsp;" & desp & "</b></td>" & vbLF & _
			"</tr>" & vbLF & _
			"</table>" & vbLF
end function

function MsgLinkTable()
	MsgLinkTable = _
		"<table width=600 cellspacing=0 cellpadding=0 border=0 align=center>" & _
		"<tr height=10>" & _ 
		"	<td width=600><img src=""../images/bg/line.gif"" width=600 height=3></td>" & _
		"</tr>" & _
		"<tr>" & _
		"	<td width=600>&nbsp;" & _
					"<img src=""../images/goto.gif"">&nbsp;<a href=""msg.asp"">消息树</a>" & _
					"&nbsp;&nbsp;&nbsp;&nbsp;" & _
					"<img src=""../images/goto.gif"">&nbsp;<span style=""cursor:hand;color:black"" onclick=""window.open('send.asp','','width=480,height=380');"">发消息</span>" & _
					"&nbsp;&nbsp;&nbsp;&nbsp;" & _
					"<img src=""../images/goto.gif"">&nbsp;<a href=""statistic.asp?freepage=1&"">消息统计</a>" & _
					"&nbsp;&nbsp;&nbsp;&nbsp;" & _
					"<img src=""../images/goto.gif"">&nbsp;<a href=""search.asp?folder=1&freepage=1&"">消息查找</a><br>" & _
					"</tr>" & _
		"</table>"
end function
%>