为了让显示的网页不能右键,
服务器上已存在html静态网页,是完整的网页,现在要在显示时,在最后加入一个js文件,
Dim fl As String = "D:\web\" & e.path
If filesys.FileExists(fl)
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
Select Case ext
Case ".jpg",".jpeg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
e.WriteFile(fl)
Return '这里必须返回
End Select
End If
能不能在 e.WriteFile(fl) 代码后面,
用 e.WriteString("<script type='text/javascript' src='nocontextmenu.js'></script>")
或者wb.inserthtml("<script type='text/javascript' src='nocontextmenu.js'></script>")
来在网页最后加入一个js文件
或者又其他更好更方便的,禁用网页右键的办法???
[此贴子已经被作者于2018/4/19 16:42:26编辑过]
加好友 
发短信
Post By：2018/4/19 15:35:00 [只看该作者]
