该语句的作用是:启用或禁用错误处理程序。一般用法如下:
如果在您的代码中未使用On Error Resume Next语句,所发生的运行时错误将显示错误信息,同时,代码的执行也随之终止。
但当你采用它时,就会使程序按照产生错误的语句之后的语句继续执行,或是按照最近一次所调用的过程(该过程含有 On Error Resume Next 语句)中的语句继续运行。这个语句可以不顾运行时错误,继续执行程序,之后您可以在过程内部建立错误处理例程。
在调用另一个过程时,On Error Resume Next 语句变为非活动的。所以,如果希望在例程中进行内部错误处理,则应在每一个调用的例程中执行 On Error Resume Next 语句。
如果您已启用 On Error Resume Next 错误处理程序,则可使用On Error GoTo 0禁用错误处理程序。
附注:要在代码中生成运行时错误,请用Err对象的Raise方法。
这样的情况经常在调试程序的时候看见,比如分别调试下面两程序则会显示。
技术信息(用于支持人员)
2,err2.asp
调试的时候也就是
但当你在首行添加了On Error Resume Next之后,发现不报错提示,表明内部错误处理完成。
但进行下列程序的时候发现
3,err3.asp
这时运用了On Error GoTo 0,则会显示出错信息,只不过不是第三行,而是第五行的cnbruce.com错误对象了
On Error Resume Next On Error GoTo 0
如果在您的代码中未使用On Error Resume Next语句,所发生的运行时错误将显示错误信息,同时,代码的执行也随之终止。
但当你采用它时,就会使程序按照产生错误的语句之后的语句继续执行,或是按照最近一次所调用的过程(该过程含有 On Error Resume Next 语句)中的语句继续运行。这个语句可以不顾运行时错误,继续执行程序,之后您可以在过程内部建立错误处理例程。
在调用另一个过程时,On Error Resume Next 语句变为非活动的。所以,如果希望在例程中进行内部错误处理,则应在每一个调用的例程中执行 On Error Resume Next 语句。
如果您已启用 On Error Resume Next 错误处理程序,则可使用On Error GoTo 0禁用错误处理程序。
<script language=vbs> On Error Resume Next Err.Raise 6 '产生溢出错误。 msgbox ("Error # " & CStr(Err.Number) & " " & Err.Description) cnbruce.com '缺少对象,因为cnbruce是自定义的 msgbox ("Error # " & CStr(Err.Number) & " " & Err.Description) Err.com '对象不支持该属性或方法 msgbox ("Error # " & CStr(Err.Number) & " " & Err.Description) Err.Clear '清除错误。 </script>
附注:要在代码中生成运行时错误,请用Err对象的Raise方法。
这样的情况经常在调试程序的时候看见,比如分别调试下面两程序则会显示。
1,err1.asp <%Err.Raise 6%>
技术信息(用于支持人员)
错误类型: Microsoft VBScript 运行时错误 (0x800A0006) 溢出
2,err2.asp
<%cnbruce.com%>
调试的时候也就是
技术信息(用于支持人员) 错误类型: Microsoft VBScript 运行时错误 (0x800A01A8) 缺少对象: 'cnbruce'
但当你在首行添加了On Error Resume Next之后,发现不报错提示,表明内部错误处理完成。
但进行下列程序的时候发现
3,err3.asp
<% On Error Resume Next cnbruce.com On Error GoTo 0 cnbruce.com %>
这时运用了On Error GoTo 0,则会显示出错信息,只不过不是第三行,而是第五行的cnbruce.com错误对象了