on error resume next用法

转载源 作者：xuxujian

VBScript语言提供了两个语句和一个对象来处理"运行时错误"，如下所示：

  • On Error Resume Next语句
  • On Error Goto 0语句
  • Err对象

简单介绍一下On Error Resume Next，On Error Goto 0，Err这三者

On Error Resume Next语句和On Error Goto 0语句指明了当出现"运行时错误"时的处理方式。

当加上On Error Resume Next语句后，如果后面的程序出现"运行时错误"时，会继续运行，不中断。

当加上On Error Goto 0语句后，如果后面的程序出现"运行时错误"时，会显示"出错信息"并停止程序的执行。

Err对象保存了“错误信息”

下面结合例子讲解On Error Resume Next，On Error Goto 0，Err这三者

  • 没有加上On Error Resume Next语句
    举例：
i = 1/0   '0作除数，产生"运行时错误",显示"出错信息"并停止程序的执行
Response.Write "除法执行后"   '这句话将不会执行

结果：

    Microsoft VBScript 运行时错误 错误 '800a000b'被零除/test.asp，行 2
  • 加上On Error Resume Next语句
    当我们在某处加上On Error Resume Next这条语句后,随后的程序即便出现"运行时错误"时,也不会显示"出错信息",并且会继续运行下去.
    举例：
On Error Resume Next   '后面的程序即便出现"运行时错误"时，也会继续运行
i = 1/0   '0作除数，这是一种"运行时错误"，但因为有了上面On Error Resume Next这句话，所以不会中断执行，而是会继续运行下去
Response.Write "除法执行后"   '这句话将会执行

结果：

    Microsoft VBScript 运行时错误 错误 '800a000b'被零除/test.asp，行 2
  • 加上On Error Resume Next语句后，使用Err对象来得到错误信息
    使用了On Error Resume Next之后，如果出错,那么Err对象中将放置最近一次出错的信息。

Err对象重要的属性有三个：Number, Source, Description。分别是错误号，错误来源，错误描述。

你能捕获的都是运行时错误，而且If Err then这样的写法等价于If Err.Number then
举例：

Dim i
i = 1/0   '第一个错误
undefined_function "test"   '第二个错误，函数undefined_function未定义
Response.Write Err.Description

结果：

类型不匹配

可以看到，提示的并不是被零除

  • 使用On Error Goto 0 语句，让系统重新接管错误的处理
    加上On Error Resume Next语句后，后面的程序即便出现"运行时错误"时，也会继续运行.可是如果希望后面的程序出现"运行时错误"时停止执行并显示错误,该怎么做呢?

答案是:使用On Error Goto 0 语句

使用 On Error Goto 0 这条语句后，后面的程序一旦有错误发生就会提示错误，并结束脚本执行。
举例：

Dim i
i = 1/0
Response.Write "第一个除法执行后"
On Error Goto 0   '后面的语句一旦有错误发生就会提示错误，并结束脚本执行
i = 1/0
Response.Write "第二个除法执行后"

结果：

第一个除法执行后Microsoft VBScript 运行时错误 错误 '800a000b'被零除/test.asp，行 2

可以看到，第一个Response.Write执行并输出了内容，第二个Response.Write没有执行.
详细讲一下On Error Resume Next
On Error Resume Next语句的作用范围
On Error Resume Next语句只作用于本级别的后续语句。不会作用于被调用的函数或子程序，同样也不会作用于父级别的程序段

On Error Resume Next语句如果出现在某个函数中，则只对本函数产生影响。对“主调函数”和“被调函数”均没有影响

一个子程序中如果没有On Error Resume Next语句，那么当错误在子程序中出现时,将会中断这个子程序的运行,跳转到调用这个子程序的外层程序.如果这个外层程序在“出问题的函数调用”之前包含有On Error Resume Next语句，则会接着执行“函数调用”之后的语句。如果这个外层程序在“出问题的函数调用”之前没有On Error Resume Next语句，那么就跳向外层。这个过程一直重复,直到找到包含有On Error Resume Next语句的环境继续运行，如果最外层的程序也没有包含On Error Resume Next语句，那么将会使用缺省的错误处理器，也就是显示错误信息并停止运行。

 Dim ii = 1/0Response.Write "OK"
End Sub
Sub test1()testResponse.Write "OK"
End Sub
On Error Resume Next
test1

结果：

除法执行后

两个ok都没有被打印。因为On Error Resume Next是在最外层下达的，所以当调用的子程序中出了问题之后，会直接从子程序中跳出，跳到外层的代码中。

如果在子程序的开头放置一个On Error Resume Next语句，出现的运行期错误不会中止这个子程序的运行，。

例如，如果需要向一个文件中写入字符串，可以通过一个独立的函数对文件进行访问，防止错误中断整个程序的运行：

'returns True if it succeeds, or False on any error
Function WriteNewFile(strFileName, strContent)On Error Resume Next   'turn off the default error handlerWiteNewFile = Flase   'default return value of functionSet objFSO = CreateObject("scripting.FileSystemObject")If Err.Number = 0 Then Set objFile = objFSO.CreateTextFile(strFileName,True)If Err.Number = 0 Then objFile.WriteLine strContentIf Err.Number = 0 Then objFile.CloseIf Err.Number = 0 Then WriteNewFile = True
End Function

上面的程序在处理每个程序语句之前，先检查Err对象的Number属性。如果值为0（还没有出现错误），那么就能够继续对文件的创建和写入过程。如果错误发生了，脚本引擎将设置Err对象的属性的值，并且继续处理下一行。

只要不引起错误而能正常运行，函数的返回值将设置为“True”。否则函数将返回“False”。

On Error Goto 0语句
在ASP 2.0（尽管没有文档记录）和ASP 3.0中，On Error Goto 0语句可以恢复缺省的错误处理行为。

在运行这个语句后，发生的运行期错误将导致缺省错误处理，在环境链中检查每个嵌套的程序，直到主页面代码。如果没有其他的环境关闭缺省错误处理，网页的执行将停止并显示IIS缺省错误网页。

Err对象

在前面的例子中，关闭缺省错误处理后，通过检查Err对象的Number属性，查看错误是否已经出现。

Err对象存储了关于运行期错误的信息

下表给出了Err对象提供的属性。
Description 设置或返回一个描述错误的字符串
Number （缺省属性）设置或返回指定一个错误的值
Source 设置或返回产生错误的对象的名称

使用这些属性可以检查发生了哪种错误。例如，可以根据错误号采取不同的措施，也可以用Source和Description的属性值为用户提供错误信息。

下表给出了Err对象提供的方法。
Clear 清除当前所有的Err对象设置
Raise 产生一个运行期错误

使用Err对象生成一个“自定义错误”。
可以使用Err对象生成一个“自定义错误”。为什么要做这些呢？因为有时想把一个定制的错误消息传送给用户。可以把Err对象的属性设置成所希望的任何值，然后调用Raise方法来产生这种错误，这样做会停止程序的运行，并且把错误沿调用链向回传递。

下面的例子显示了在服务器磁盘上读取一个文本文件时，如何处理错误。注意如何使用常数vbObjectError，以确定所选择的错误号不会和一个已存在的错误号混淆。通过把任意选择的错误号加到此常数中，就能够保证和预定义的错误不混淆。

  Set objFSO = CreateObject("scripting.FileSystemObject")Set objFile = objFSO.OpenTextFile("strFileName", ForReading)Select Case Err.NumberCase 0   'OK, take no actionCase 50,53   'standard file or path not found errors'create custom error values and raise error back up the call chainintErrNumber = vbObjectError + 1073     'custom error numberstrErrDescription = "The file has been deleted or moved. "strErrSource = " ReadThisFile function"Err.Raise intErrNumber, strErrSource, strErrDescriptionExit FunctionCase Else   'som other error'raise the standard error back up the call chainErr.Raise Err.Number, Err.Source, Err.DescriptionExit FunctionEnd SelectReadThisFile = objFile.ReadAll   ' we opened it OK, so return the contentobjFile.Close
End Function

调用这个函数的代码可以使用On Error Resume Next语句，并且能捕获这个函数产生的错误。

strContent = ReadThisFile("myfile.txt")
If Err.Number = 0 ThenResponse.Write "File content is:<br/>" & strContent
ElseResponse.Write Err.Source & "<br/>" & Err.Description
End If

下面是另一篇：

on error resume next

用了on error resume next

则在这句往后的代码就算出错也会继续执行

具体有没有错可以用err.number来判断

err.number=0表示没有出错

err.number<>0表示有错

具体什么错误可以用ASPError对象获得

首先建立
set objasperror=server.GetLastError 对象，接着由 ASPError 物件的属生取得相关信息：
objasperror.ASPCode 传回iis产生的错误码
objasperror.Number 传回com标准错误码，如 0x800a03fc
objasperror.Source 传回实际产生错误的原始码
objasperror.Category 指出错误的来源为 asp、script 或是 object
objasperror.File 传回错误程序档案名称
objasperror.Line 传回错误程序的行数
objasperror.Column 传回错误程序的列数
objasperror.Description 传回错误原因简介
objasperror.ASPDescription 传回详细错误原因

简单介绍
　　ASP是非常简单的，以至于许多的开发者不会去思考错误处理。错误处理能够让你的应用程序更加合理。我看到过很多个用ASP编写的商业网站，大多数都忽略了错误处理。 错误的类型
有三种主要的错误类型：
１．编译错误：
　　这种错误出现一般都是代码的语法问题。因为编译错误而导致辞ASP停止运行。
２．运行错误：
　　这个错误是发生在你准备运行ASP时的。例如：如果你试图给一个变量赋值，但是却超出了该变量允许的范围。
３．逻辑错误：
　　逻辑错误是最难被发现的，这种错误经常是一种结构错误，电脑是发现不了的。这就需要我们彻头彻尾地检查我们的代码。
　　因为编译错误一般是和逻辑错误一起发生的，一般都能显示出来，所以我们担心的就只是运行错误。它都终止ASP的运行，而且给用户丢下一堆很不友好的文字。 那么我们要怎样处理运行错误呢？
　　我们先来看看，ASP唯一提供给我们的错误命令—On Error Resume Next(这里提醒一下初学者，在ASP中只有On Error Resume Next语句，没有On Error Resume Goto语句） 如果你不使用On Error Resume Next语句的话,一切运行错误都会发生，这个是致命的，那么就会有一段错误代码“展现”给用户，而且ASP程序也会停止。 下面就是一个错误代码：
　　 Microsoft OLE DB Provider for ODBC Drivers error 80004005 [Microsoft][ODBC Driver Manager] 　　Data source name not found and no default driver specified /test.asp, line 60
　　当我们在程序最上面使用On Error Resume Next语句时，所有的错误都会被忽略，程序会自动执行下一条语句。这样程序就会完全执行，出错后用户也不会看到出错信息。但是这样也有 不好的地方，那就是如果程序没有按照你想像的执行的话，你就很难找到到底是哪里出了问题，所以你就得在必要的地方对错误进行处理。
处理错误
　　在ASP中，处理错误的最好的办法就是在程序最底端放上代码来处理错误。我也推荐在每个ASP程序都使用缓冲区。这样的话，如果错误发生，页面就会停止， 页面内容也会被清除，这样用户就不会看到错误信息，对你们的抱怨也就少了！下面是一个例子：

<%@ LANGUAGE="VBScript" %>
<%Response.Buffer = True
"设置buffer为True
On Error Resume Next
"开始错误处理
%>
<%"错误处理
If Err.Number <> 0 Then
"清除页面
Response.Clear
"显示错误信息给用户
%>
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY BGCOLOR="#C0C0C0">
<FONT FACE="ARIAL">An error occurred in the execution of this ASP page<BR>
Please report the following information to the support desk
<P><B>Page Error Object</B><BR>
错误 Number： <%= Err.Number %><BR>
错误信息： <%= Err.Description %><BR>
出错文件： <%= Err.Source %><BR>
出错行： <%= Err.Line %><BR>
</FONT>
</BODY>
</HTML>
<%End If%>

你们上面看到了，我首先设置On Error Resume Next ，这样出现错误就不会影响程序的执行。
错误处理和数据库
　　在错误处理中加入数据库的执行是很复杂的。假若我们有一个程序，有很多的命令去向数据库中添加记录，如果insert/update在程序的最底部执行，如果我们前面又错误发生，那就完了！我们就会向数据库中添加了一个错误的信息。因为我们用了On Error Resume Next 一切的错误都被忽略了！即使前面出错，程序依旧会向数据库中添加数据的。
　　为避免这种情况，我们就先得做些手脚，正确处理的方法如下：
If Err.Number = 0 And objConnection.Errors.Count = 0 Then
"这里才能执行语句，因为没有错误
　　Set rstResults = dbData.Execute(txtSql)
End If
更多高级的处理办法
　　当一个错误发生时，你们也可以显示更多的错误信息。下面是同时处理数据库和页面错误的例子，有了它我们一下就能发现我们程序中的所有错误。 （由于有些地方我觉得英文更能说时问题，所以没有翻译）。


<% If Err.Number <> 0 Then Response.Clear Select Case Err.Number Case 8 "指定错误的Number "在这里处理自定义错误 Case Else "一般错误 If IsObject(objConnection) Then If objConnection.Errors.Count > 0 Then %> <B>Database Connection Object</B> <% 　 For intLoop = 0 To objConnection.Errors.Count - 1 %> Error No: <%= objConnection.Errors(intLoop).Number %><br>
Description: <%= objConnection.Errors(intLoop).Description %><BR>
Source: <%= objConnection.Errors(intLoop).Source %><BR>
SQLState: <%= objConnection.Errors(intLoop).SQLState %><BR>
NativeError: <%= objConnection.Errors(intLoop).NativeError %><P>
<% Next
End If
End If
If Err.Number <> 0 Then %> <B>
Page Error Object</B><BR>
Error Number <%= Err.Number %><BR>
Error Description <%= Err.Description %><BR>
Source <%= Err.Source %><BR>
LineNumber <%= Err.Line %><P>
<%End If
End Select
End If %>

上面的例子让我们一下了处理了很多在数据库中出现的问题，这个在我们日常编程也是常用的！我们也应该看到那个Select Case 语句，它能让我们来处理特定的错误。
Redirect 和错误处理
　　有一点我们就当注意一下，就是我们常用到的redirect对象，如果一个页面中出现了redirect对象，那么错误处理就失去了意义。所以在转向之前我们还得处理一下，如下：

　　If Err.Number = 0 And objConnection.Errors.Count = 0 Then Response.Clear Response.Redirect ?lt;URL Here>? End If

把代码变得更整齐
　　为了让代码变得更整齐，首先把错误处理的文件放在一个包含文件中。这样你就可以在任何文件中使用它。这样修改也方便。在你程序的最上方加入(当然在语言声明之后）On Error Resume Next语句。在你执行SQL以前进行错误检查。使用redirect以前也要进行错误处理。
让你处理错误的包含文件在代码的最上面

on error resume next用法相关推荐

  1. [vb]On Error GoTo 0和On Error resume区别

    On Error GoTo 0 表示禁止当前过程中任何已启动的错误处理程序. On Error Resume Next 说明当一个运行时错误发生时,控件转到紧接着发生错误的语句之后的语句,并在此继续运 ...

  2. On Error Resume Next是什么意思

    On Error Resume Next的意思是如果发生错误就继续直接执行出错语句下面的那句.一般的,如果出错,VB会报告并停止运行,但有时错误并不严重,不会产生严重影响,你可以在可能出错的语句前面加 ...

  3. On Error Resume Next

    QTP采用VBS作为脚本语言,VBS中处理错误的语句是: On Error Resume Next On Error GoTo 0 If you don't use an On Error Resum ...

  4. VBA的3种错误处理方式 on error goto 0 /-1 , on error resume next , on error goto index，是抛出异常，还是忽略报错，还是进行错误捕捉？

    总结 on error goto 0 /-1        '直接抛出异常 on error resume next    '忽略,但是可以配合 if 等来处理 on error goto  inde ...

  5. （manjaro）linux系统启动时提示 ERROR:resume:hibernation device‘UUID=3f48c68c-4717-438e-aff6-26ac8f‘ not found

    情况说明 电脑上有两个manjaro系统,今天把另一个不用的删除后(删除的系统本来就是被引导的 ),然后我使用下面两个命令重新生成了grub. sudo update-grub sudo grub-i ...

  6. error日志的用法

    1.引入 Nginx的日志模块(这里所说的日志模块是ngx_errlog_module模块, 而ngx_http_log_module模块是用于记录HTTP请求的访问日志的, 两者功能不同, 在实现上 ...

  7. VB中 On error 的用法

    定义: 1. 启动一个错误处理程序并指定该子程序在一个过程中的位置:也可用来禁止一个错误处理程序. 2. 如果产生错误则跳到需要跳转的地方,删掉后可能会不能正确运行. 语法: On Error GoT ...

  8. VB6 XArrayDB | Xarray ReDim 用法

    用法解释 官方解释:http://helpcentral.componentone.com/nethelp/truedblist8/default.htm#!redimmethodxarraydb.h ...

  9. vb FindwindowEx的用法实例

    '添加 Command1 Const WS_CHILD = &H40000000 Const WM_LBUTTONDOWN = &H201 Const WM_LBUTTONUP = & ...

最新文章

  1. 操作系统的进程状态变迁图_1.操作系统是干什么的？
  2. 如何使用sed在文件中确定行插入带有变量的字符串
  3. (2) freemarker入门案例2
  4. Mysql 字符操作函数相关
  5. 上机 文件读写器 c# 1614998685
  6. c语言编写dnf辅助,DNF辅助脚本怎么制作？游戏简易脚本制作教程
  7. yytextview 复制_Swift iOS : YYText显示微博@文字的方法
  8. 获取iOS设备的型号（iPhone4，iphone5，iPhone5s......）
  9. intel安装mac os
  10. 【家庭网络】申请安装移动宽带过程及简单建议
  11. MindManager2022安装使用教程
  12. 二项分布与负二项分布卡片
  13. Servlet、ServletConfig、ServletContext
  14. 数据库的四种隔离级别
  15. 小象学院-人工智能机器学习
  16. Command line is too long. Shorten command line for EpsFrontApplication or also for Spring Boot defau
  17. 人类的征途是星辰大海，玉兔的征途从月球开始
  18. storm mysql trident_Trident简介
  19. 敏捷转型行动笔记：内部敏捷教练培训资料分享——基础篇（夯实精益敏捷思想，掌握相关实践）
  20. 手把手教学：使用油猴脚本对CCTV央视网启用HTML5播放器

热门文章

  1. nyoj325 zb的生日（DFS）
  2. icloud android,果粉当腻了？你和安卓手机只差一个iCloud同步
  3. SQL命令之FROM子句
  4. 提升语音识别率的技术 强调与唤醒词相符的输入语音数据
  5. 第一章 Silicon labs BLE 开发介绍
  6. C语言隐式类型转换（字符类型以及短整型的运算规则）
  7. CTF~ImageMagick+gaps=自动拼图
  8. 技术大佬：还在用Excel，傻了吧！网友：每天朝九晚六飞起来！
  9. Html+Css新手简单快速仿京东商品分类导航
  10. Python爬虫入门，详细讲解爬虫过程