一段点击后使td变颜色的代码

<Script language="VBScript">
Sub Click01(Object1)
  dim MyObject
  If Object1.bgColor<>"#ff2222" Then
    Object1.bgColor="#ff2222"
    End If
  End Sub
</Script>

<table border="1" cellpadding="0" cellspacing="0" style="BORDER-COLLAPSE: collapse" bordercolor="#808080" align="center">
  <tr>
   <td width="20" align="middle" bgcolor="#fff0ff" height="20" id="td01" OnClick="VBScript:Click01 td01">test</td></tr>
</table>