蟊暌迫胧录?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;