求助！如何为超连结的焦点换色编程？

Question

VBScript 我想 javascript 也一样
<Script Language=vbs>
Sub TextLinkOver
Dim oSource
Set oSource = window.event.srcElement  得到当前对象
oSource.style.color = "yellow"  Rem 字体颜色 oSource.style.textDecorationUnderline = true Rem 下划线
oSource.style.cursor = "hand"  Rem 鼠标类型,手型
End Sub
</Script>
<a onmouseover="vbs:TextLinkOver">Test</a>

Answer 1

用不着javascript，css足矣
a:link { color: blue; }
a:active { color: yellow; }

Answer 2

就是啊！CSS不就行了吗？
a:link { color: blue; }
a:hover { color: yellow; }

Answer 3

JS也行啊！
<a href="." onmouseover="this.style.color='red'" onmouseout="this.style.color='green'">AAA</a>

Answer 4

a:link { color: blue; }
a:active { color: yellow; }

Answer 5

顺便问一下：
用javascript如何实现对某一个table中的tr下的td的背景色属性进行动态修改；该如何写代码？

Answer 6

<td onmouseover="this.style.backgroundColor='red'" onmouseout="this.style.backgroundColor=''">

Answer 7

用HTC
<PUBLIC:COMPONENT>
<PUBLIC:ATTACH EVENT="onmouseover" ONEVENT="_On_Over()" />
<PUBLIC:ATTACH EVENT="onmouseout" ONEVENT="_On_Out()" />
<SCRIPT>
var _color=element.currentStyle.color;
var _bgcolor=element.currentStyle.backgroundColor;
function _On_Over()
{
runtimeStyle.color="black";
runtimeStyle.backgroundColor="#F3F3F3";
}
function _On_Out()
{
runtimeStyle.color=_color;
runtimeStyle.backgroundColor=_bgcolor;
}
</SCRIPT>
</PUBLIC:COMPONENT>用法是在Style里面写
.chgBgcolor {behavior:url('btn.htc');}<table> <tr class="chgBgcolor"><td></td></tr></table>