<HTML>
<BODY ONLOAD="setupEventHandler()" LANGUAGE="VBS">
<SCRIPT LANGUAGE="VBS">
Dim i
i=1
function setupEventHandler()
set fpchgBackground = getRef("chgBackground") '返回chgBackground这个函数的地址
call mySpan.attachEvent("onclick", fpChgBackground) '绑定onClick事件
end function
function chgBackground()
if i=1 then
document.bgColor = "blue"
i=0
else
document.bgColor = "green"
i=1
end if
end function