📄 menu.asp

📁 物业管理和办公自动化系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<HTML>
<HEAD><title>办公自动化</title>
<style type="text/css">
.root_menu		{ font-size:9pt;color:navy;text-align:center;text-decoration:none;border:solid;border-width:1px;border-color:black white black white}
.child_menu		{ font-size:9pt;display:none; position:absolute;border:solid;background-color:#fffff0;border-width:1px;border-color:navy;z-index:10;padding:6}

#pad1,#pad2,#pad3,#pad4,#pad5,#pad6,#pad7,#pad8,#pad9,#pad10 {font-size:9pt;cursor:hand;filter:blur(Strength=2);color:navy;display:block}
#idpad1,#idpad2,#idpad3,#idpad4,#idpad5,#idpad6,#idpad7,#idpad8,#idpad9,#idpad10{display:none}
</style>

<script Language="VBScript">
Sub HighLightMenu(o)	' 选中菜单的表现形式
	Execute(o & ".filters.blur.enabled=false")				' 取消blur
	Execute(o & ".style.backgroundcolor=""blue""")		' 蓝色背景色
	Execute(o & ".style.color=""white""")					' 白色前景色
End Sub

Sub LowLightMenu(o)		' 未选中菜单的表现形式
	Execute(o & ".style.backgroundcolor=""white""")		' 白　色背景色
	Execute(o & ".style.color=""navy""")				' 海蓝色前景色
	Execute(o & ".style.filter=""blur(Strength=2)""")	' blur的程度
	Execute(o & ".filters.blur.enabled=true")			' blur
	Execute("id" & o & ".style.display=""none""")		' 隐藏子菜单
End Sub

'=======================================================================================
' 处理主菜单的 OnMouseOver 事件
'=======================================================================================
Sub mover(o)
	Dim bSelf
	Dim i
	for i = 1 to 10
		bSelf = Eval("CStr(""id" & o & """)=CStr(""idpad" & i & """)")  
		if not bSelf then
			call LowLightMenu("pad" & i)
		else
			call HighLightMenu("pad" & i)
		end if
	next
End Sub

'=======================================================================================
' 处理主菜单的 OnMouseOut 事件
'=======================================================================================
Sub mout(o)
	' 如果鼠标移到选中菜单的上面或左面或右面，则隐藏子菜单（下面是子菜单，移到子菜单上不隐藏）
	Dim b1 : b1 = false
	Dim b2 : b2 = false
	b1 = Eval("window.event.offsetX < 0 or window.event.offsetY < 0")
	b2 = Eval("window.event.offsetX + 4 > " & o & ".offsetWidth")
	if b1 or b2 then call HideMenu(o)
End Sub

'=======================================================================================
' 根据子菜单的状态决定显示或隐藏
'=======================================================================================
Sub ShowHide(o)
	Dim ShowStatus
	Execute("ShowStatus=id" & o & ".style.display")
	if ShowStatus = "none" then		' 如果是隐藏状态，则显示子菜单
		call ShowMenu(o)
	else							' 如果是显示状态，则隐藏子菜单，然仍然高亮显示选中菜单
		call HideMenu(o)
		call HighLightMenu(o)
	end if
End Sub

'=======================================================================================
' 显示子菜单
'=======================================================================================
Sub ShowMenu(o)
	Call mover(o)
	' 隐藏其它子菜单
	Dim bSelf
	Dim i
	for i = 1 to 10
		bSelf = false
		if CStr("idpad" & i) = CStr("id" & o) then bSelf = true
		if not bSelf then 
			Execute("idpad" & i & ".style.display=""none""")
		end if
	next

	' 显示选中菜单的子菜单
	Execute("id" & o & ".style.display=""block""")
'	Execute("id" & o & "_child.style.display=""block""")

	'Execute("id" & o & ".style.left = " & o & ".offsetLeft + pad1.offsetparent.offsetLeft + pad.offsetLeft")
	msgbox pad1.offsetParent.offsetLeft
	'Execute("id" & o & ".style.left = " & o & ".offsetLeft + pad1.offsetparent.offsetLeft + pad.offsetLeft")
	Execute("id" & o & ".style.top = pad.offsetTop + pad.offsetHeight" )
	Execute("id" & o & ".style.clip = ""rect(auto auto auto auto)""" )

	' 如果菜单的宽度<120，则设置为120，否则就按照菜单本身的宽度
	dim iWidth
	Execute("iWidth=id" & o & ".offsetWidth")	
	if iWidth < 120 then Execute("id" & o & ".style.width = 120")

'	call HideElement("SELECT", "id" & o)
End Sub

'=======================================================================================
' 隐藏子菜单
'=======================================================================================
Sub HideMenu(o)
	' 隐藏子菜单
	Execute("id" & o & ".style.display=""none""")
	Execute("id" & o & "_child.style.display=""none""")
	'*******************************************************
	Execute("id" & o & "_child1.style.display=""none""")
	Execute("id" & o & "_child2.style.display=""none""")
	'*******************************************************
	call LowLightMenu(o)
'	call ShowElement("SELECT")
End Sub

Sub ShowElement(elmID)
	Dim i : i = 0
	Dim obj
	for i = 0 to document.all.tags(elmID).length - 1 step 1
		obj = document.all.tags(elmID)(i)
		if Not isNull(obj) or Not isNull(obj.offsetParent) then
			obj.style.visibility = ""
			obj.offsetParent.style.visibility = ""
		end if
	next
End Sub

Sub HideElement(elmID, menuID)
	Dim i : i = 0
	Dim x1, x2, y1, y2											' 菜单所在位置
	Dim obj, objStr, objTag, objLeft, objRight, objTop, objBottom	' 被覆盖对象的位置
	Dim bVertical, bHorizon
	for i = 0 to document.all.tags(elmID).length - 1 step 1
		obj = document.all.tags(elmID)(i)
		if Not isNull(obj) or Not isNull(obj.offsetParent) then
			'------------------------------------------------------------------------
			' 找到元素相对于BODY的的offsetTop，offsetLeft，offsetRight，offsetBottom位置。
			'------------------------------------------------------------------------
			objLeft   = obj.offsetLeft
			objTop    = obj.offsetTop
			objStr = "obj.offsetParent"
			Execute("objTag = " & objStr & ".tagName")
			while (UCase(objTag) <> "BODY")
				Execute("objLeft  = objLeft + " & objStr & ".offsetLeft")
				Execute("objTop   = objTop + "  & objStr & ".offsetTop")
				objStr = objStr & ".offsetParent"
				Execute("objTag = " & objStr & ".tagName")
			wEnd
			objRight  = objLeft + obj.offsetParent.offsetWidth 
			objBottom = objTop  + obj.offsetParent.offsetHeight

			'------------------------------------------------------------------------
			' 找到下拉菜单的位置，即offsetLeft, offsetRight, offsetTop, offsetBottom 
			'------------------------------------------------------------------------
			Execute("x1 = " & menuID & ".offsetLeft")
			Execute("x2 = " & menuID & ".offsetLeft + " & menuID & ".offsetWidth")
			Execute("y1 = " & menuID & ".offsetTop")
			Execute("y2 = " & menuID & ".offsetTop + " & menuID & ".offsetHeight")

			bVertical = (objLeft > x1 and objLeft < x2) or (objRight  > x1 and objRight  < x2)
			bHorizon  = (objTop  > y1 and objTop  < y2) or (objBottom > y1 and objBottom < y2)
			if ( bVertical and bHorizon ) then
				obj.style.visibility = "hidden"
				obj.offsetparent.style.visibility = "hidden"
			end if
		end if
	next
End Sub

Sub OnMouseOutChildMenu(o)
	Dim b1, b2, b3
	b1 = Eval("window.event.offsetX < 0")								' OffsetX < 0
	b2 = Eval("window.event.offsetX + 4 > id" & o & ".offsetWidth")		' OffsetX > 菜单宽度
	b3 = Eval("window.event.offsetY + 2 > id" & o & ".offsetHeight")	' OffsetY > 菜单高度
	if b1 or b2 or b3 then call HideMenu(o)
End Sub
</script>

</head>
<body topmargin=0 leftmargin=0 marginheight=0 marginwidth=0> 
<center>
<!---------------------------------------------------------------------------------------------------------------------------->
<!-- 主菜单																																				-->
<!---------------------------------------------------------------------------------------------------------------------------->
<table cellspacing=0 cellpadding=0 id='pad' border=0 align=center width=700>
<tr height=25px><td align=center class="root_menu" class=noborder>
	<table cellspacing=0 cellpadding=0 border=0 align=center width="100%"><tr>
	<td align=center class=noborder id='pad1' OnClick="ShowHide('pad1')" OnMouseOver="ShowMenu('pad1')" OnMouseOut="mout('pad1')">日常事务</td>
	<td align=center class=noborder id='pad2' OnClick="ShowHide('pad2')" OnMouseOver="ShowMenu('pad2')" OnMouseOut="mout('pad2')">工作管理</a></td>
	<td align=center class=noborder id='pad3' OnClick="ShowHide('pad3')" OnMouseOver="ShowMenu('pad3')" OnMouseOut="mout('pad3')">会议管理</a></td>
	<td align=center class=noborder id='pad4' OnClick="ShowHide('pad4')" OnMouseOver="ShowMenu('pad4')" OnMouseOut="mout('pad4')">收发管理</a></td>
	<td align=center class=noborder id='pad5' OnClick="ShowHide('pad5')" OnMouseOver="ShowMenu('pad5')" OnMouseOut="mout('pad5')">审核管理</a></td>
	<td align=center class=noborder id='pad6' OnClick="ShowHide('pad6')" OnMouseOver="ShowMenu('pad6')" OnMouseOut="mout('pad6')">人事管理</a></td>
	<td align=center class=noborder id='pad7' OnClick="ShowHide('pad7')" OnMouseOver="ShowMenu('pad7')" OnMouseOut="mout('pad7')">系统管理</a></td>
	<td align=center class=noborder id='pad8' OnClick="ShowHide('pad8')" OnMouseOver="ShowMenu('pad8')" OnMouseOut="mout('pad8')">制度管理</a></td>
	<td align=center class=noborder id='pad10' OnClick="ShowHide('pad10')" OnMouseOver="ShowMenu('pad10')" OnMouseOut="mout('pad10')">IC卡</a></td>
	<td align=center class=noborder id='pad9' OnClick="ShowHide('pad9')" OnMouseOver="ShowMenu('pad9')" OnMouseOut="mout('pad9')">其它</a></td>
	</tr></table>
</td></tr>
<tr height=10px><td class=noborder></td></tr>
</table>

<!---------------------------------------------------------------------------------------------------------------------------->
<!-- 日常事务                                                                                                                -->
<!---------------------------------------------------------------------------------------------------------------------------->
12 下一页
💿 文件大小 16987 K
👤 上传用户 jzp_home_2009
📂 所属分类 OA系统
🏷️ 相关标签

#物业管理 #办公自动化系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -