大家帮帮我看看这段代码的翻译!!!!!!!!!!!!

Question

试试看
<script Language="VbScript">
'下拉菜单相关代码
 dim h;
 dim w;
 dim l;
 dim t;
 topMar = 1;
 leftMar = -2;
 space = 1;
 dim isvisible;
 MENU_SHADOW_COLOR='#999999' '定义下拉菜单阴影色
 set global = window.document
 global.fo_currentMenu = null
 global.fo_shadows = new Arrayfunction HideMenu()  dim mX
 dim mY
 dim vDiv
 dim mDiv
if isvisible = true then vDiv = document.all("menuDiv")
mX = window.event.clientX + document.body.scrollLeft
mY = window.event.clientY + document.body.scrollTop
if ((mX < parseInt(vDiv.style.left)) or (mX > parseInt(vDiv.style.left)+vDiv.offsetWidth) or (mY < parseInt(vDiv.style.top)-h) or (mY > parseInt(vDiv.style.top)+vDiv.offsetHeight))

vDiv.style.visibility = "hidden"
isvisible = false
end if
end if
end functionfunction ShowMenu(vMnuCode,tWidth)  vSrc = window.event.srcElement
vMnuCode = "<table id='submenu' cellspacing=1 cellpadding=3 style='width:" & tWidth & "' class=tableborder1 onmouseout='HideMenu()'><tr height=23><td nowrap align=left class=tablebody1>"  & vMnuCode & "</td></tr></table>" h = vSrc.offsetHeight
w = vSrc.offsetWidth
l = vSrc.offsetLeft + leftMar+4
t = vSrc.offsetTop + topMar + h + space-2
vParent = vSrc.offsetParent
do while vParent.tagName.toUpperCase() <> "BODY"

l =l+ vParent.offsetLeft
t = t+vParent.offsetTop
vParent = vParent.offsetParent
loop menuDiv.innerHTML = vMnuCode
menuDiv.style.top = t
menuDiv.style.left = l
menuDiv.style.visibility = "visible"
isvisible = true
call    makeRectangularDropShadow(submenu, MENU_SHADOW_COLOR, 4)
end functionfunction makeRectangularDropShadow(el, color, size) dim i
for i=size to 1 step -1

rect = document.createElement("div")
rs = rect.style
rs.position = "absolute"
rs.left = (el.style.posLeft + i) + "px"
rs.top = (el.style.posTop + i) + "px"
rs.width = el.offsetWidth + "px"
rs.height = el.offsetHeight + "px"
rs.zIndex = el.style.zIndex - i
rs.backgroundColor = color
opacity = 1 - i / (i + 1)
rs.filter = "alpha(opacity=" + (100 * opacity) + ")"
el.insertAdjacentElement("afterEnd", rect)
global.fo_shadows(global.fo_shadows.length) = rect
next
end function
</SCRIPT>