祝福 发表于 2007-12-15 02:52

444

<font id="me1" face="华文行楷" size="5" color="#FFFF00"><b>中画网</b></font>

<script language="vbscript">   
dim i   
i=1   
sub change()   
window.clearTimeout(my)   
select case i   
case 1   
me1.style.color="red"   
i=2   
case 2   
me1.style.color="blue"   
i=3   
case 3   
me1.style.color="yellow"   
i=1   
end select   
my=window.setTimeout("change()",200)   
end sub   
   
sub window_onload()   
   
my=window.setTimeout("change()",100)   
end sub   
</script>

[ 本帖最后由 祝福 于 2007-12-15 02:54 编辑 ]

小白兔 发表于 2007-12-15 14:18

这个也拿走
页: [1]
查看完整版本: 444