在VBScript中，能够使脚本解释器不处理其找到的任何错误，并且使用On Error Resume Next语句继续运行下个语句。一旦这个语句已被处理，脚本引擎将继续运行后面的程式，而不理会已发现的任何错误。然而，这种过程仅适用于顺序执行语句的环境，换句话说，不适用于嵌套的函数或子程式。
1． 使用On Error Resume Next语句
一个错误在子程式中出现时，假如没有运行On Error Resume Next语句，那么错误将被交给调用他的环境，这个过程一直重复到找到运行On Error Resume Next语句的环境继续运行，或找到缺省的脚本错误处理器，把错误交给ASP并且IIS显示缺省错误网页。
这种错误调用链意味着能够创建防止使程式停止运行的运行期错误的函数和子程式。假如在子程式的开头放置一个On Error Resume Next语句，任何运行期错误会中止这个子程式的运行，但是调用该子程式的程式将继续运行而不会引起网页的停止。
例如，假如需要向一个文档中写入字符串，能够通过一个单独的函数对文档进行访问文档，防止错误中断整个程式的运行：
' create a file named strFileName, overwriting any existing one with that name
' and writes strContent into it then closes the file
' returns True if it succeeds, or False on any error
Function WriteNewFile(strFileName, strContent)
On Error Resume Next ' turn off the default error handler
WiteNewFile = Flase ' default return value of function
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 ' create the new file
Response.Write "New file successfully created<BR>"
If WriteContent(strContent) Then ' write the content
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对象提供的方法和属性。
表7-3 VBScript Err对象的方法
方 法
说 明
Clear
清除当前任何的Err对象配置
Raise
产生一个运行期错误
表7-4 VBScript Err对象的属性
属 性
说 明
Description
配置或返回一个描述错误的字符串
Number
（缺省）配置或返回指定一个错误的值
Source
配置或返回产生错误的对象的名称
使用这些属性能够检查发生了哪种错误。例如，能够根据错误号采取不同的措施，也能够用Source和Description的属性值为用户提供错误信息，或传送到一个文档中。
也能够使用Err对象生成一个错误。为什么要做这些呢？因为有时想把一个定制的错误消息传送给用户。能够把Err对象的属性配置成所希望的任何值。然后调用Raise方法来产生这种错误，这样做会停止程式的运行，并且把错误沿调用链向回传递。
下面的例子显示了在服务器磁盘上读取一个文本文档时，如何处理错误。注意如何使用常数vbObjectError，以确定所选择的错误号不会和一个已存在的错误号混淆。通过把任意选择的错误号加到此常数中，就能够确保和预定义的错误不混淆。
Functoin ReadThisFile(strFileName) ' returns the content as a string
On Error Resume Next
ReadThisFile = " " ' default return value of function
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("strFileName", ForReading)
Select Case Err.Number
Case 0 ' OK, take no action
Case 50, 53 ' standard file or path not found errors
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
