On Error Resume Next用法简介

发布时间:2019-12-19编辑:脚本学堂
为大家介绍On Error Resume Next的用法,通过具体的实例,了解其具体使用方法,有需要的朋友,可以参考下。

On Error Resume Next
如果发生错误就继续直接执行出错语句下面的那句。
一般的,如果出错,VB会报告并停止运行,但有时错误并不严重,不会产生严重影响,你可以在可能出错的语句前面加上这句。但是如果错误很严重,会影响到后续语句,就不要使用这个方法了。

如果将其写在函数以外,则表示 on error resume next 以后调用的所有语句和函数,在出现错误时,都不会报错。这样做是不好的,这使很多错误不能被发现,比如变量未申明错误,查找起来也非常困难,一般我们用于函数内部。

在VBscript中,可以使脚本解释器不处理其找到的任何错误,并且使用On Error Resume Next语句继续运行下个语句。一旦这个语句已被处理,脚本引擎将继续运行后面的程序,而不理会已经发现的任何错误。然而,这种过程仅适用于顺序执行语句的环境,换句话说,不适用于嵌套的函数或子程序。

1、使用On Error Resume Next语句
一个错误在子程序中出现时,如果没有运行On Error Resume Next语句,那么错误将被交给调用它的环境,这个过程一直重复到找到运行On Error Resume Next语句的环境继续运行,或者找到缺省的脚本错误处理器,把错误交给ASP并且IIS显示缺省错误网页。

这种错误调用链意味着可以创建防止使程序停止运行的运行期错误的函数和子程序。如果在子程序的开头放置一个On Error Resume Next语句,任何运行期错误会中止这个子程序的运行,但是调用该子程序的程序将继续运行而不会引起网页的停止。

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

复制代码 代码示例:
Function WriteNewFile(strFileName, strContent)
      On Error Resume Next        
      WiteNewFile = Flase            
      Set objFSO = CreateObject("scripting.FileSystemObject")
      If Err.Number = 0 Then Set objFile = objFSO.CreateTextFile(strFileName, True)
      If Err.Number = 0 Then objFile.WriteLine strContent
      If Err.Number = 0 Then objFile.Close
      If Err.Number = 0 Then WriteNewFile = True
End Function
 

注意上面的程序在试图处理每个程序语句之前,先检查VBscript的Err对象的Number属性。如果这个值为0(还没有出现错误),那么就能够继续对文件的定入和创建过程。然而如果错误确实发生了,脚本引擎将设置Err对象的属性的值,并且继续处理下一行。

只要不引起错误而能正常运行,函数的返回值将设置为“True”。否则函数将返回“False”。在编程中可以在对其进行测试以后,再使用该函数和采取其他行动。
下面是一个简单的例子,我们希望对任务的第一部分采用一个独立的函数,以便能更精确地辨别出错误产生在何处。这样,调试时也更容易阅读代码。在页面的主程序中,可以调用三个单独的函数。
 

复制代码 代码示例:
If CreateNewFile(strFileName) Then                        
      Response.Write "New file successfully created<BR>"
      If WriteContent(strContent) Then                      
             Response.Write "Content written to file<BR>"
      Else
             Response.Write "ERROR: Failed to write to the file<BR>"
      End If
      If CloseFile(strFileName) Then
             Response.Write "File closed<BR>"
      Else
             Response.Write "ERROR: Failed to close the file<BR>"
      End If
Else
      Response.Write "ERROR: Failed to create the new file<BR>"
End Funciotn

2、使用On Error Goto 0
在ASP 2.0(尽管没有文档记录)和ASP 3.0中,也能使用On Error Goto 0语句恢复缺省的错误处理行为。在运行这个语句后,发生的运行期错误将导致缺省错误处理,在环境链中检查每个嵌套的程序,直到主页面代码。如果没有其他的环境关闭缺省错误处理,网页的执行将停止并显示IIS缺省错误网页。

3、VBscript Err对象
在前面的例子中,关闭缺省错误处理时,通过检查VBscript Err对象的Number属性,查看错误是否已经出现。Err对象存储了关于运行期错误的信息,表7-3和表7-4给出了VBscript Err对象提供的方法和属性。
Clear
清除当前所有的Err对象设置

Raise
产生一个运行期错误

VBscript Err对象的属性

Description
设置或返回一个描述错误的字符串

Number
(缺省)设置或返回指定一个错误的值

Source
设置或返回产生错误的对象的名称

使用这些属性可以检查发生了哪种错误。例如,可以根据错误号采取不同的措施,也可以用Source和Description的属性值为用户提供错误信息,或者传送到一个文件中。
也可以使用Err对象生成一个错误。为什么要做这些呢?因为有时想把一个定制的错误消息传送给用户。可以把Err对象的属性设置成所希望的任何值。然后调用Raise方法来产生这种错误,这样做会停止程序的运行,并且把错误沿调用链向回传递。
下面的例子显示了在服务器磁盘上读取一个文本文件时,如何处理错误。注意如何使用常数vbObjectError,以确定所选择的错误号不会和一个已存在的错误号混淆。通过把任意选择的错误号加到此常数中,就能够保证和预定义的错误不混淆。
 

复制代码 代码示例:
Functoin ReadThisFile(strFileName)           
      On Error Resume Next
      ReadThisFile = " "                     
      Set objFSO = CreateObject("scripting.FileSystemObject")
      Set objFile = objFSO.OpenTextFile("strFileName", ForReading)
      Select Case Err.Number
             Case 0                                      
             Case 50, 53                               
                    strErrDescription = "The file has been deleted "
                    strErrSource = " ReadThisFile function"
                    Err.Raise intErrNumber, strErrSource, strErrDescription
                    Exit Function
             Case Else                                 
                    Err.Raise Err.Number, Err.Source, Err.Description
                    Exit Function
      End Select
      ReadThisFile = objFile.ReadAll           
      objFile.Close
End Function
 

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

复制代码 代码示例:
On Error Resume Next
strContent = ReadThisFile("myfile,txt")
If Err.Number = 0 Then
      Response.Write "File content is:<BR>" & strContent
Else
      Response.Write "Err.Source & "<BR>" & Err.Description
End If

以上就是有关On Error Resume Next的内容与相关例子,希望对大家有所帮助。