如何将一段文字不断变换色彩，求教其方法或可利用的控件

[CMAX]

如何将一段文字不断变换色彩，求教其方法或可利用的控件

[cpp2017]

<div id="div1">文字</div>
<SCRIPT LANGUAGE=vbscript>
<!--
Call SetColor()

Sub SetColor()

Dim r,g,b
Randomize
r = (rnd *1000) mod 255 +1
g = (rnd *1000) mod 255 +1
b = (rnd *1000) mod 255 +1

div1.style.color = RGB(r,g,b)

setInterval "SetColor()","1000"
End Sub

//-->
</SCRIPT>

[seabell]

<div id=mytext style="color:red" href="javascript:void(0)">today is a new

day</div>
<script>
i=0X0;
function d2h(d)
{
return d.toString(16);
}

function changecolor()
{
color=d2h(i);
str="";
for(j=0;j<6-color.length;j++)
str+="0";
color="#"+str+color;
document.all.mytext.style.color=color;
if(i<0XFFFFFF)
i+=100;
else
i=0;
round=setTimeout("changecolor()",10)
}
changecolor();
</script>

[CMAX]

ok,thanks