<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 +1div1.style.color = RGB(r,g,b)setInterval "SetColor()","1000"
End Sub//-->
</SCRIPT>
<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 +1div1.style.color = RGB(r,g,b)setInterval "SetColor()","1000"
End Sub//-->
</SCRIPT>
<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>