闪烁文字 特效

<DIV id=idname style="COLOR: green">闪烁内容</DIV>


<SCRIPT language=vbscript> 
   dim i   
i=1   
sub change()
window.clearTimeout(my)   
select case i   
case 1   
idname.style.color="red"   
i=2   
case 2   
idname.style.color="blue"     
i=3   
idname.style.color="green"
i=1   
end select   
my=window.setTimeout("change()",400)   
end sub   
sub window_onload()   
my=window.setTimeout("change()",300)   
end sub   
</SCRIPT>
<!--说明: idname 是div的名字  style="COLOR: green" 是默认显示的颜色   idname.style.color= 后面是闪烁的颜色-->