public menustatus
public activemenuid
public ActiveSubMenuId

sub SameContext()
	inShow.innerHTML=PageCatch.document.body.innerHTML
end sub

'sub LoadPage(url)
'	inShow.innerHTML="<table height=100% width=100% border=0><tr><td align=center><table align=center border=0 width=170 height=40 style=font-family:宋体;font-size:9pt;color:red class=2d bgcolor=#ffeecc><tr><td class=3d align=center valign=middle>正在载入中,请稍后...</td></tr></table><br><br></td></tr></table>"
'	open url,"PageCatch"
' end sub
sub firstinit()
	on error resume next
	menustatus=false
	activemenuid=""
	ActiveSubMenuId=""
end sub
sub activelabel(objid)
	on error resume next
	window.event.cancelBubble=true
	HiddenSubMenu
	if menustatus=false then
		document.all(objid).className="3d"
	else
		document.all(activemenuid).style.visibility="hidden"
		document.all(left(objid,1) & "enu" & right(objid,1)).style.visibility="visible"
		'document.all(left(objid,1) & "enu" & right(objid,1)).style.left=document.all(objid).style.left
		document.all(objid).className="inbox"
		if objid<>left(activemenuid,1) & right(activemenuid,1) then
			document.all(left(activemenuid,1) & right(activemenuid,1)).className="noborder"
		end if
		activemenuid=left(objid,1) & "enu" & right(objid,1)
	end if
end sub
sub noactivelabel(objid)
	on error resume next
	window.event.cancelBubble=true
	HiddenSubMenu
	'if activemenuid=flase then
	'	document.all(left(objid,1) & "enu" & right(objid,1)).style.visibility="hidden"
	'end if
end sub
sub popmenu(menuid)
	on error resume next
	window.event.cancelBubble=true
	HiddenSubMenu
	if menustatus=false then
		document.all(objid).className="3d"
	else
		document.all(activemenuid).style.visibility="hidden"
		document.all(left(objid,1) & "enu" & right(objid,1)).style.visibility="visible"
		'document.all(left(objid,1) & "enu" & right(objid,1)).style.left=document.all(objid).style.left
		document.all(objid).className="inbox"
		if objid<>left(activemenuid,1) & right(activemenuid,1) then
			document.all(left(activemenuid,1) & right(activemenuid,1)).className="noborder"
		end if
		activemenuid=left(objid,1) & "enu" & right(objid,1)
	end if
	if document.all(menuid).style.visibility="hidden" then
		document.all(menuid).style.visibility="visible"
		document.all(left(menuid,1) & right(menuid,1)).className="inbox"
		activemenuid=menuid
		menustatus=true
	else
		document.all(menuid).style.visibility="hidden"
		document.all(left(menuid,1) & right(menuid,1)).className="3d"
		activemenuid=""
		menustatus=false
	end if
end sub
sub hidemenu(objid)
	on error resume next
	document.all(objid).style.visibility="hidden"
	activemenuid=""
	menustatus=false
end sub

sub hidemenu2()
	on error resume next
	window.event.cancelBubble=true
	HiddenSubMenu
	for i=1 to 9
		document.all("Menu" & i).style.visibility="hidden"
	next
	if activemenuid<>"" then
		document.all(left(activemenuid,1) & right(activemenuid,1)).className="noborder"
	end if
	activemenuid=""
	menustatus=false
end sub