这么简单的脚本都出错 郁闷！ 各位进来帮我看看吧

[scan30]

<script language = "VBScript">
sub change(x,tr_id)
if x = 1 then
varbgcolor = "#FF00FF"
else
varbgcolor = "#FFFFFF"
end if
document.all("tr"&tr_id).bgcolor= varbgcolor
end sub
</script>


<table>
<% set mycon = server.createobject("ADODB.Connection")
mycon.open(Application("CONNSTR"))
set mydata = mycon.execute("select top 5 menu_id,id,title from bbs_m order by bbsdate desc")
tr_id = 1
do while not mydata.eof %>
<tr id=<% ="tr"&tr_id %> onMouseOver="change(1,'<% =tr_id %>')" onmouseout="change(0,'<% =tr_id %>')" >
<td height="20"><% =mid(mydata("title"),1,7) %>…… </a></td>
</tr>
<% mydata.movenext
tr_id = tr_id + 1
loop
%>
</table>

该脚本主要是功能是当鼠标指向某一行时该记录背景色改变

可是状态栏老是提示网页有错误，而且不起作用

各位帮我分析解决一下吧 谢谢！

[mars_net]

感觉还是用CSS实现起来比较方便
顶先

[scan30]

自己再顶下 各位拜托了

[lzhblacker]

<tr<%=sItemRowClass%> onMouseOver="javascript:return this.style.backgroundColor='#CCCCFF'" onMouseOut="javascript:return this.style.backgroundColor='#FFFFFF'">

[笨笨兔兔兔兔兔]

dom 解决吧,用document.getElementById("tr"&tr_id) try this

[hzhla]

原因不明，用javascript试过行

[dh20156]

调用子程序时不允许使用括号，TRY：
<script language = "VBScript">
sub change(x,tr_id)
if x = 1 then
varbgcolor = "#FF00FF"
else
varbgcolor = "#FFFFFF"
end if
document.all("tr"&tr_id).bgcolor= varbgcolor
end sub
</script>


<table>
<% for i = 0 to 6 %>
<tr id=<% ="tr"&i %> onMouseOver="change 1,<%=i%>" onmouseout="change 0,<%=i%>" >
<td height="20">test…… </a></td>
</tr>
<% next %>
</table>