wz-8  鼠标经过文字变色：

<p onmousemove="hello()">输入特效文字</p>

<p><script language="VBScript">
sub hello
document.fgColor=int(256*256*256*rnd)
end sub
</script></p>