示例：错误处理

此示例演示如何显示标准错误消息。您编写的每段工作流脚本都应添加错误处理，因为工作流代码未检测到的错误可能导致用户的浏览器崩溃。

用户定义的函数 PrintError 接收调用过程的名称作为参数。如果错误已经发生，则 PrintError 打印错误编号、描述和严重度，以及发生错误的过程的名称。

不需要创建 Err 对象，因为它是 VBScript 固有的。有关 Err 对象的详细信息，请参考 Microsoft 文档。

Sub PrintError(strFunctionName)
        If Err.Number <> 0 Then
            MsgBox "Error #" & Err.Number & ": " & Err.Description, _
            vbOKOnly+vbCritical, _
            "Workflow Error in Function " & strFunctionName
        End If
End Sub

以下代码段演示如何将错误处理添加到子例程。

Sub <子名称>()  
        On Error Resume Next
        ...
        [在此处输入您的代码]
        ...
        PrintError "<子名称>"
End Sub

以下代码段演示如何将错误处理添加到函数。

Function <函数名>()
        On Error Resume Next
        ...
        [在此处输入您的代码]
        ...
        PrintError "<函数名>"
End Function