statistic.inc

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

<%
function TableStatistic()
		dim sFolder, sFolderName, iRecordsUnread, iRecordsRead, iRecords, iTotalUnread, iTotalRead
		dim sTemp, sUnreadStyle

		dim rs, cn
		set cn = New CDBConnection
		cn.Connect(dbLocal)
		set rs = cn.m_DBConn.Execute("proc_MsgStatistic " & GetEmpSerial)

		iTotalUnread = 0
		iTotalRead = 0
		while not rs.eof
				sFolder					= rs("folder_id")
				sFolderName			= rs("folder_name")
				iRecordsUnread		= rs("msg_unread")
				iRecordsRead			= rs("msg_read")
				iRecords = CInt(iRecordsUnread) + CInt(iRecordsRead)
				
				if CInt(iRecordsUnread) > 0 then sUnreadStyle = "color:blue;font-weight:600" else sUnreadStyle = ""
				sTemp = sTemp & _
						"<tr bgcolor=white>" & vbLF & _
						"		<td align=center style=""display:none"">" & sFolder & "</td>" & vbLF & _
						"		<td align=left>&nbsp;<a href=""msg_l.asp?folder=" & sFolder & "&freepage=" & pFreePage & "&"" style=""color:navy"">" & sFolderName & "</a>&nbsp;</td>" & vbLF & _
						"		<td align=center style=""" & sUnreadStyle & """>&nbsp;" & iRecordsUnread & "&nbsp;</td>" & vbLF & _
						"		<td align=center>&nbsp;" & iRecordsRead & "&nbsp;</td>" & vbLF & _
						"		<td align=center>&nbsp;" & iRecords & "&nbsp;</td>" & vbLF & _
						"</tr>" & vbLF
				
				iTotalUnread = iTotalUnread + iRecordsUnread
				iTotalRead = iTotalRead + iRecordsRead
				
				rs.movenext
		wend
		rs.Close()

		iRecords = iTotalUnread + iTotalRead
		TableStatistic = _
				"<table width=""100%"" border=0 cellspacing=1 cellpadding=3 bgcolor=silver style=""table-layout:fixed"">" & vbLF & _
				"<tr bgcolor=""#eeeeee"" style=""font-weight:600;ver"">" & vbLF & _
				"		<td align=center style=""display:none"">文件夹标识</td>" & vbLF & _
				"		<td align=center width=""*"">文件夹</td>" & vbLF & _
				"		<td align=center width=120>未读消息数</td>" & vbLF & _
				"		<td align=center width=120>已读消息数</td>" & vbLF & _
				"		<td align=center width=120>总消息数</td>" & vbLF & _
				"</tr>" & vbLF & _
				sTemp & _
				"<tr bgcolor=""#eeeeee"" style=""color:black;font-weight:600"">" & vbLF & _
				"		<td align=center>合　计</td>" & vbLF & _
				"		<td align=center>" & iTotalUnread & "</td>" & vbLF & _
				"		<td align=center>" & iTotalRead & "</td>" & vbLF & _
				"		<td align=center>" & iRecords & "</td>" & vbLF & _
				"</tr>" & vbLF & _
				"<!--tr bgcolor=""#0099cc"" style=""color:white;font-weight:600"">" & vbLF & _
				"		<td align=center>合　计</td>" & vbLF & _
				"		<td align=center>" & iTotalUnread & "</td>" & vbLF & _
				"		<td align=center>" & iTotalRead & "</td>" & vbLF & _
				"		<td align=center>" & iRecords & "</td>" & vbLF & _
				"</tr-->" & vbLF & _
				"</table>"  & vbLF & _
				"<br><br><br><br><br><br><br><br><br><br><br><br>" & vbLF
end function
%>