📄 monitor.asp

📁 物业管理和办公自动化系统
💻 ASP
字号:
<%
'************************************************************************************************
' 文件名: monitor.asp
' Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司
'
' 　创建人 : 周秋舫
' 　日　期 : 2002-05-13
' 修改历史 :
'   ****年**月**日 ****** 修改内容:**************************************************
' 功能描述 : 监视器（在线人员和实时消息）
' 　版　本 :
'************************************************************************************************
option explicit
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
%>

<!-- #include file="../include/config.inc" -->
<!-- #include file="../include/common.inc" -->
<!-- #include file="../include/debug.inc" -->
<!-- #include file="../include/db.inc" -->
<!-- #include file="../include/date.inc" -->
<!-- #include file="../include/datahandle.inc" -->
<!-- #include file="../include/recordlist.inc" -->
<!-- #include file="../include/security.inc" -->
<!-- #include file="../include/emp.inc" -->

<!-- #include file="msg.inc" -->
<!-- #include file="monitor.inc" -->

<%

'call CheckSecurity()


'' 获取 option 参数
dim pOption	: pOption = GetParam("option")
if IsEmpty(pOption) then pOption = SHOW_NOTHING


dim sMyEmpSerial : sMyEmpSerial = GetEmpSerial
dim iRows				: iRows = 10

dim arrayMsg
dim sMsgSerials, iRecords
dim sUsers, sMsgs
dim sTemp


if pOption <> SHOW_NOTHING then
		Application("msg") = "54:129:11&55:1"

		'' 首先查找application("msgs")中所有跟我有关的消息并清除，但不对我的消息作任何处理
		sMsgSerials = SerialsOfNewMsgFromApp

		'' 接着查询数据库中是否有未通知的新消息，并处理新消息
		sMsgSerials = SerialsOfNewMsgFromDB
		call DealNewMsgs(sMsgSerials)


		'' 接下去我不停地看Application("msg")中是否有我的新消息，直到页面重新被刷新
		''*********************************************************************************************
		'' 接下去我不停地看Application("msg")中是否有我的新消息，直到页面重新被刷新
		''----------------------------------------------------------------------------------------------------------------------------------
		'dim j, k
		'dim dtStart, dtNow, iSeconds
		'j = 1
		'while ( j = 1 )
		'	'' 处理Application中有关我的消息
		'	sMsgSerials = SerialsOfNewMsgFromApp
		'	call DealNewMsgs(sMsgSerials)
		'	
		'	'' 休息1秒钟
		'	dtStart = now()
		'	do
		'		'' 如果时间超过了一秒钟，则跳出循环
		'		iSeconds = DateDiff("s", dtStart, now)
		'		if iSeconds > 1 then exit do
		'		k = 1
		'	loop while (k = 1)
		'wend
end if
%>

<html>
<head>
<title>上海信息大楼 Shanghai Information Tower</title>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<meta http-equiv="refresh" content="30;URL=?option=<%=pOption%>" charset=gb2312 >
<link rel="stylesheet" href="../common/common.css" type="text/css">
</head>

<body bgcolor="orange" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" scroll=no>


<!--
	以下显示消息
-->
<table cellspacing=1 cellpadding=0 width="100%" border=0 style="table-layout:fixed">
<tr style="display:none"><td width=15></td><td width="*">这一行主要用于控制表格的宽度</td></tr>
<tr height=25><td colspan=2 valign=middle><img border=0 src="images/eye_<%=pOption%>.gif">&nbsp;最新消息</td></tr>

<%=MsgRecords%>

<tr height=25><td></td><td align=right style="cursor:hand"><a target=_blank href="msg_l.asp?folder=1&freepage=1&">>>> 更多...</a></td></tr>
</table>
<!--
	显示消息结束
-->


</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -