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

是一个局部刷新的页面，定时（比如每n秒）从文件里获取消息展示出来，消息里含有时间，需要实现当消息的时间和当前时间在1分钟内，就让标题栏闪烁提示有新消息。请教大侠帮助，谢谢！下面是部分代码，请知道的朋友帮忙。（第11行处该怎么加入让标题闪烁的代码）

01 
02   
03   
 
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 "" & sSendMsg & "" & "
"     
13       else       
14         sMsgDate = Mid(sSendMsg,1,len(sCurrDate))   '消息的日期       
15         if (Trim(sMsgDate) = Trim(sCurrDate)) then  '是当天的消息，则用红色表示         
16           Response.Write "" & sSendMsg & "" & "
"       
17         else            
18           Response.Write sSendMsg & "
"       
19         end if     
20       end if   
21     end if    
22     Next    
23   %>  
24   
25 
26