模擬右鍵彈出選單

　　相信身為站長的網友，都非常討厭瀏覽器預設的右邊選單，於是站長想了一個方法，模擬彈出自己設計的右鍵選單：

範例：試試按右鍵

這是站長自製的右鍵選單，用錢也買不到

按Ctrl+C複製

語法：（按Ctrl + C複製原始碼）

<body oncontextmenu=window.event.returnValue=false> <script language="vbscript"> Dim IsMenu IsMenu = False Sub Document_OnMouseDown() If Window.Event.button = 1 then If IsMenu = False Then document.all.MyMenu.style.visibility = "hidden" Else document.all.MyMenu.style.pixelLeft = Window.Event.ClientX + document.body.ScrollLeft document.all.MyMenu.style.pixelTop = Window.Event.ClientY + document.body.ScrollTop document.all.MyMenu.style.visibility = "visible" End If End Sub </script> <table border="0" width="111" height="131" background="menu.gif" cellspacing="0" cellpadding="0" id="MyMenu" style="position:absolute;visibility:hidden" onMouseMove="vbscript:IsMenu=True" onMouseOut="vbscript:IsMenu=False"> <tr> <td width="100%"> <p align="center"><span style="background-color: #FFFF00"><font color="#0000FF">這是站長自製的右鍵選單，用錢也買不到</font></span></p> <p align="center"><font color="#0000FF"><span style="background-color: #FFFF00">按Ctrl+C複製</span></font></p> <p align="center"><a href="http://www.vbex.net" target="_blank"><span style="background-color: #FFFF00">主頁</span></a></td> </tr> </table>