<!--
  Dim I,j
  Dim TempText(3)  
  TempText(0)="<font size=4 face='宋体,Arial' color=#ffffff>诚 信 服 务、专 业 化 服 务</font>" + "<br><font size=3 color=#ffffff> www.gmblower.com<font>"
  TempText(1)="<font size=4 face='宋体,Arial' color=#ffffff>朝 阳 市 光 明 风 机 制 造 厂</font>" + "<br><font size=3 color=#ffffff> www.gmblower.com<font>"
  TempText(2)="<font size=4 face='宋体,Arial' color=#ffffff>欢 迎 登 陆 我 们 的 网 站 !</font>" + "<br><font size=3 color=#ffffff> www.gmblower.com<font>"
  I=-1   
  Sub TextColor()        
      If I=2 Then
         I=0
       Else
         I=I+1
      End If
      mtext.filters(0).apply()
      mtext.innerHTML = temptext(I)	
      mtext.filters(0).play()
      SetTimeOut "textcolor()",5000    
  End Sub
//twinkle-->