一种新颖的公告栏效果
  现在的主页上的公告栏大都是千篇一律的滚动效果，如何去创造出一种不同
的风格呢，我用filter中的alpha滤镜做出了一种较新颖的效果,请大家指点：
  以下为源码:
  <script language="vbscript">
sub window_onload()
defade
end sub
sub defade()
 dim time
divtexta.filters.alpha.opacity=divtexta.filters.alpha.opacity-4
divtextb.filters.alpha.opacity=divtextb.filters.alpha.opacity+4
if divtexta.filters.alpha.opacity>0 then
  time=settimeout("defade",150)
end if
if divtexta.filters.alpha.opacity=0 then
  dofadeno
end if
end sub
sub dofadeno()
  dim time1
  time1=settimeout("dofade",6000)
end sub
sub dofade()
 dim time2
divtextb.filters.alpha.opacity=divtextb.filters.alpha.opacity-4
divtexta.filters.alpha.opacity=divtexta.filters.alpha.opacity+4
if divtextb.filters.alpha.opacity>0 then
 
  time2=settimeout("dofade",150)
end if
if divtextb.filters.alpha.opacity=0 then
  defadeno
end if
end sub
sub defadeno()
  dim time3
  time3=settimeout("defade",6000)
end sub
</script>
    本段放在HEAD中，然后在BODY中适当位置放入:
<div id=divtexta style="position:absolute;color:red;filter:alpha(opacity=100);top:75;
z-index:3" width=160>
&nbsp;&nbsp;&nbsp;&nbsp;
</div>
<div id=divtextb style="position:absolute;color:red;filter:alpha(opacity=0);top:75;
z-index:2">

这样在主页中就出现了一个渐变出现内容的公告栏，但程序较为烦琐，而且因为是用VBSCRIPT写的，时常出现与JAVASCRIPT不兼容的问题，请高手指点，用JAVASCRIPT从新编译此程序!