使用CSS样式实现

<style type="text/css">
#ttt:hover{
color: #FF0000;
}
</style>
<table width="100" height="35" border="1" cellpadding="0" cellspacing="0">
<tr>
<td id="ttt">CSS样式实现</td>
</tr>
</table>

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

<p onmousemove="hello()">鼠标经过时就会变色的文本</p>