关于有新消息标题栏闪烁的问题
是一个局部刷新的页面,定时(比如每n秒)从文件里获取消息展示出来,消息里含有时间,需要实现当消息的时间和当前时间在1分钟内,就让标题栏闪烁提示有新消息。请教大侠帮助,谢谢!下面是部分代码,请知道的朋友帮忙。(第11行处该怎么加入让标题闪烁的代码)01 <html>
02 <BODY style="overflow-y:scroll" BGCOLOR="#E6F2FF">
03 <div id="mtxt">
04 <%
05 sCurrDate = Date() '当前日期
06 For I = 1 to 30
07 sSendMsg = ReadMsg("./msg/msg"&I)
08 if Trim(sSendMsg) <> "" then '空字符串不显示
09 if I < 3 then
10 sMsgTime = split(sSendMsg," ")(0) '消息的时间
11 if DateDiff("n",sMsgTime,Now) < 1 then '此处需要执行让标题栏闪烁' end if '标题栏闪烁
12 Response.Write "<FONT COLOR='#FF0000' SIZE=-1>" & sSendMsg & "</FONT>" & "<BR>"
13 else
14 sMsgDate = Mid(sSendMsg,1,len(sCurrDate)) '消息的日期
15 if (Trim(sMsgDate) = Trim(sCurrDate)) then '是当天的消息,则用红色表示
16 Response.Write "<FONT COLOR='#FF0000' SIZE=-1>" & sSendMsg & "</FONT>" & "<BR>"
17 else
18 Response.Write sSendMsg & "<BR>"
19 end if
20 end if
21 end if
22 Next
23 %>
24 </div>
25 </body>
26 </html>