<p onMouseMove="hello()">鼠标经过时就会变色的文本</p>
                  <script language="VBScript">
sub hello
document.fgColor=int(256*256*256*rnd)
end sub
</script>