如何屏蔽页面"查看"-->“源文件”功能，谢谢！(保留IE菜单栏)

Question

function rightClick() 
{
if (event.button==2)
{alert("大坏蛋，不许看！");}
}
document.onmousedown=rightClick

Answer 1

有方法了
保存成vbs
Dim pubLogonURLpubLogonURL="http://expert.csdn.net/member/logon.asp"Dim pubWindow
Dim pubDocumentDim pubTimeoutpubTimeout=15Set pubWindow=CreateObject("InternetExplorer.Application")
pubWindow.Visible = True
pubWindow.Navigate "about:blank"Set pubDocument=DocumentGetByWindows(pubWindow,pubTimeout)
Set tObj=LogonGetByCreate(pubDocument)
pubDocument.body.innerHTML=tObj.outerHTMLFunction DocumentGetByWindows(pWindow,pTimerout)
  tOnLoopTimer=Timer
  Do
    tTimeout=Abs(tOnLoopTimer-Timer)
  Loop Until pWindow.ReadyState=4 Or tTimeout>pTimerout  Set DocumentGetByWindows=pWindow.document
End FunctionFunction LogonGetByCreate(pDocument)  With pDocument.body
    .style.backgroundcolor="rgb(0,0,0)"
    .style.color="rgb(255,255,255)"
    .style.fontfamily="宋体"
    .style.fontsize="9pt"
  End With
  
  Set tForm=pDocument.createElement("<FORM name='alogon'>")
  With tForm
    .method="POST"
    .target="_blank"
    .name="alogon"
    .action=pubLogonURL
  End With  Set tP=pDocument.createElement("P")
  tP.innerText="请输入ID："
  tForm.insertAdjacentElement "BeforeEnd",tP  Set tInputName=pDocument.createElement("<INPUT NAME='name'>")
  With tInputName
    .type="text"
    .name="name"
    .size="7"
    .height=22
    .style.backgroundcolor="rgb(192,255,0)"
    .style.color="rgb(0,0,0)"
    .style.fontfamily="宋体"
    .style.fontsize="9pt"
    .style.borderleft="1px solid rgb(128,128,128)"
    .style.borderright="1px solid rgb(255,255,255)"
    .style.bordertop="1px solid rgb(128,128,128)"
    .style.borderbottom="1px solid rgb(255,255,255)"
  End With  
  tForm.insertAdjacentElement "BeforeEnd",tInputName  Set tP=pDocument.createElement("P")
  tP.innerText="请输入密码："
  tForm.insertAdjacentElement "BeforeEnd",tP  Set tInputPass=pDocument.createElement("<INPUT NAME='pass'>")
  With tInputPass
    .type="password"
    .name="pass"
    .size="7"
    .height=22
    .style.backgroundcolor="rgb(192,255,0)"
    .style.color="rgb(0,0,0)"
    .style.fontfamily="宋体"
    .style.fontsize="9pt"
    .style.borderleft="1px solid rgb(128,128,128)"
    .style.borderright="1px solid rgb(255,255,255)"
    .style.bordertop="1px solid rgb(128,128,128)"
    .style.borderbottom="1px solid rgb(255,255,255)"
  End With  
  tForm.insertAdjacentElement "BeforeEnd",tInputPass  Set tInputType=pDocument.createElement("<INPUT NAME='type'>")
  With tInputType
    .type="text"
    .name="type"
    .size="7"
    .height=22
    .value=1
    .style.backgroundcolor="rgb(192,255,0)"
    .style.color="rgb(0,0,0)"
    .style.fontfamily="宋体"
    .style.fontsize="9pt"
    .style.borderleft="1px solid rgb(128,128,128)"
    .style.borderright="1px solid rgb(255,255,255)"
    .style.bordertop="1px solid rgb(128,128,128)"
    .style.borderbottom="1px solid rgb(255,255,255)"
    .style.visibility="hidden"
  End With  
  tForm.insertAdjacentElement "BeforeEnd",tInputType  Set tP=pDocument.createElement("P")
  tP.innerText=""
  tForm.insertAdjacentElement "BeforeEnd",tP  Set tButtom=pDocument.createElement("INPUT")
  With tButtom
    .type="submit"
    .value="进入"
    .height=20
    .style.backgroundcolor="rgb(100,150,200)"
    .style.color="rgb(255,255,255)"
    .style.fontfamily="宋体"
    .style.fontsize="9pt"
    .style.borderleft="2px solid rgb(255,255,255)"
    .style.borderright="2px solid rgb(0,50,100)"
    .style.bordertop="2px solid rgb(255,255,255)"
    .style.borderbottom="2px solid rgb(0,50,100)"
  End With  
  tForm.insertAdjacentElement "BeforeEnd",tButtom  Set LogonGetByCreate=tForm
End Function

Answer 2

简单方法是用javascript弹出窗口，去掉菜单属性，屏闭Ctrl+N快捷方式。但想绝对屏闭，劝你还是放弃！

Answer 3

徒劳！
弹窗？：用Ctrl+N看看...
有地址栏更好：view-source:http://...
看看你还能屏蔽不？
能屏蔽的话，告诉我一声啊！