📄 watchdog.asp
字号:
<%@ language="VBScript" %>
<% option explicit %>
<!-- #include file="../config/common.asp" -->
<%
Dim sFileName : sFileName = "watchdog.asp"
%>
<%
' 获取该用户的新消息
Dim msgSuffix : msgSuffix = ","
Dim sMsgSerials : sMsgSerials = ""
Dim rsMessage
openrs rsMessage, "select Serial from T_PersonalMessage where Account_id=" & ToSQL(Session("UserID"),"Text") & " and new=0"
if Not rsMessage.EOF then
' 有新消息,取到所有的序列号(表T_PersonalMessage)
sMsgSerials = rsMessage.GetString( , , , msgSuffix, "--error--")
sMsgSerials = Left( sMsgSerials, Len(sMsgSerials) - 1 )
end if
Set rsMessage = nothing
' 如果有新消息，应该先判断MessageList窗口（该窗口中列出最新的N条消息）是否已经打开，打开的话刷新并通过声音提示，否则打开MessageInfo窗口
' 以下打开MessageList窗口
'response.write "<script language='JavaScript'>window.open('MessageList.asp','MessageList','toolbar=no,top=1,left=1')</script>"
'以下打开MessageInfo窗口
Dim arrayMsgs, msgCount, i
arrayMsgs = split(sMsgSerials, ",") '分隔得到消息序列号
' 将所有未接收的消息的状态设置为已接收状态，第二次就不会被打开了
msgCount = ubound(arrayMsgs)
for i = LBound(arrayMsgs) to UBound(arrayMsgs)
cn.execute "update T_PersonalMessage set new = 1 where Serial=" & ToSQL(arrayMsgs(i),"Number")
response.write "<script language='JavaScript'>window.open('u_MessageInfo.asp?PMSerial=" & ToSQL(arrayMsgs(i),"Number") & "','MessageInfo" & ToSQL(arrayMsgs(i), "Number") & "','toolbar=no,top=1,left=1,width=300,height=300');</script>"
next
%>
<HTML>
<HEAD>
<meta HTTP-EQUIV="refresh" CONTENT="30;URL=<%=sFileName%>" charset=gb2312 >
<SCRIPT language=JavaScript1.2>
</SCRIPT>
</HEAD>
<BODY>
</BODY>
</HTML>
<%
cn.close
Set cn = Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -