Question

如何在下面的SUB函数中使用"OnMouserOver"和"OnMouseOut"事件，从而实现表格背景变色？

sub DownContent(intTitleLen)
dim i,strTemp
i=0
do while not rsDown.eof
strTemp=strTemp & "<tr height=22 bgcolor=#EFEFEF>"
strTemp=strTemp & "<td width=150 align=center>"&rsDown("Title")&"</td>"
strTemp=strTemp & "<td width=160 align=center>"&rsDown("content")&"</td>"
strTemp=strTemp & "<td width=70 align=center>"&rsDown("system")&"</td>"
strTemp=strTemp & "<td width=293 align=center>"&rsDown("language")&"</td>"
strTemp=strTemp & "<td width=60 align=center>"&rsDown("photourl")&"</td>"
strTemp=strTemp & "<td width=50 align=center>"&rsDown("downloadurl")&"</td>"
strTemp=strTemp & "</tr>"

rsDown.movenext
i=i+1
if i>=MaxPerPage then exit do
loop
response.write strTemp
end sub

请问此SUB函数如何使用"OnMouserOver"和"OnMouseOut"事件，从而实现表格背景变色？请高手解答，谢谢！
我已经解决，感谢lzp4881的热情帮助。

Answer 1

strTemp=strTemp & "<tr height=22 bgcolor=#EFEFEF>"
改成
strTemp=strTemp & "<tr height=22 bgcolor=#EFEFEF OnMouserOver='this.bgcolor=#ff0000' OnMouseOut='this.bgcolor=#efefef'">"

追问

你的答案不行，单引号在这里会导致后面的语句变为解释性的语句。注：并且你修改后的语句仅有三个双引号。