<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>