如下代码：
On Error Resume Next
1=1-1
On Error GoTo 0
Response.Write("程序出错啦！！")
On Error Resume Next 容错语句，只使用这一句话本页面将不会出现错误。
On Error GoTo 0 如果出现了错误，则运行此语句下的第1行。
Err.Description 出错内容
Err.Number 出错数目
Err.Clear 清除错误
应用：可以使用容错＋数据库约束的方法，达到保持数据完整性的目的。（在最近的OA办公系统中使用成功。）
详细例子
1、最基本的错误提示
dim i
i = 1/0
结果：
Microsoft VBScript 运行时错误 错误 '800a000b'
被零除
/try.asp，行 3
2、防止系统的错误提示
使用on error resume next，可以放置系统提示错误，并且好像什么都没有发生一样，沉默的运行下去
on error resume next
dim i
i = 1/0
运行结果：
空
3、检查系统的错误
使用了on error resume next之后，如果出错Err对象中将放置最近一次出错的信息。Err对象重要的属性有三个：Number, Source, Description。分别是错误号，错误来源，错误描述。你能捕获的都是运行时错误，而且If Err then这样的写法等价于If Err.Number then
on error resume next
dim i
i = 1/0
execute "test"
Response.Write Err.Description
运行结果：
类型不匹配
可以看到，提示的并不是被零除
4、让系统重新接管错误的处理
on error goto 0 ，使用这条语句会让系统不再沉默，一旦有错误发生就会提示错误，并结束脚本执行。
on error resume next
dim i
i = 1/0
Response.Write "1"
on error goto 0
i = 1/0
Response.Write "2"
运行结果：
1
Microsoft VBScript 运行时错误 错误 '800a000b'
被零除
/try.asp，行 7
可以看到，第一个1输出了，第二个没有。
5、on error resume next对子程序的影响
先看例子
sub test()
dim i
i = 1/0
Response.Write "ok"
end sub
sub test1()
test
Response.Write "ok"
end sub
on error resume next
test1
运行结�
1. oncontextmenu="window.event.returnvalue=false" 将彻底屏蔽鼠标右键
<table border oncontextmenu=return(false)><td>no</table> 可用于Table
2. <body onselectstart="return false"> 取消选取、防止复制
3. onpaste="return false" 不准粘贴
4. oncopy="return false;" oncut="return f ......
HTML部分：
<asp:Chart ID="ChartBar" runat="server" Width="800px" BackColor="#FFFFCC" Palette="BrightPastel" BorderWidth = "2" BorderColor = "#cc9900" >
& ......
