蟊暌迫胧录?br>

Sub document_onmouseover

Dim object

set object=window.event.srcElement

If object.className="menubar" then

如果事件源为卡片头则设置卡片头的颜色为橙色

object.style.backgroundColor="#FFDD11"

End if

End Sub

鼠标移出事件

Sub document_onmouseout

Dim object

set object=window.event.srcElement

If object.className="menubar" then

如果事件源为卡片头则恢复卡片头的颜色为灰白色

object.style.backgroundColor="#E3E3E3"

End if

End Sub

鼠标按下事件

Sub document_onmousedown

dim object

set object=window.event.srcElement

If object.className="menubar" then

如果事件源为卡片头则通过设置边框色来显示出下凹的感觉

object.style.borderColor="#000000 #FFFFFF #FFFFFF #6C6C6C"

End if

End Sub

鼠标松开事件

Sub document_onmouseup

Dim object

set object=window.event.srcElement

如果事件源为卡片头

If object.className="menubar" then

调用上面的ShowMenu过程，参数(即要显示的卡片)通过一系列的引用来得到，具体可以参考微软的文档对象模型说明

ShowMenu object.parentElement.nextSibling.childNodes(0)

通过设置边框色来恢复正常的卡片头外观

object.style.borderColor="#FFFFFF #000000 #6C6C6C #FFFFFF"

End if

End Sub

$#@60;/SCRIPT$#@62;

$#@60;!--脚本代码结束，下面为标准的HTML代码--$#@62;

$#@60;!--想必也不需要把HTML逐句解说吧，主要就是说个思路，如果你对HTML毫无所知的话只能建议你去看看一些HTML教程了，毕竟能看懂HTML对我们做出高质量的网页（如结构清晰，易于更新维护等方面）还是有不少帮助的。不过我还是会尽量说的详细一点，呵呵--$#@62;

$#@60;/head$#@62;

$#@60;!--设置背景为灰白色，左/上边距为零，页面调出的时候执行init过程--$#@62;

$#@60;body bgcolor="#e3e3e3" leftmargin=0 topmargin=0 onload="init()"$#@62;

$#@60;!--主要的页面内容都包含在下面这个表格里，分为两个窗格，左边放卡片框，右边放一个浮动框架"if e"，表格高度宽度均为100%--$#@62;

$#@60;table width="100%" height="100%" border="0"

cellspacing="0" cellpadding="0"$#@62;

$#@60;tr$#@62;