关于有新消息标题栏闪烁的问题

最新推荐文章于 2021-11-21 01:41:42 发布

陈刚12

最新推荐文章于 2021-11-21 01:41:42 发布

阅读量1k

点赞数

本文链接：https://blog.csdn.net/u012187684/article/details/17486293

版权

是一个局部刷新的页面，定时（比如每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>