VBScript中的错误处理

On Error Resume Next (打开错误处理功能) 和
On Error GoTo 0 (关闭错误处理功能)

向上层抛出异常：?Err.Raise Err.Number

?

?

?

http://www.pcdog.com/edu/vbscript/2005/10/p075747.html

?

?

On?? Error?? Resume?? Next

'可能出现异常的脚本语句

If?? Err?? <>?? 0?? Then
???? MsgBox?? "An?? error?? occurred:?? "?? &?? Err.Description
Else
???? MsgBox?? "Success! "
End?? If

?

测试例子：

?On Error Resume Next
'下面一行代码会在MSXML 4.0没有被安装或者已经损坏的情况下产生错误
Set myVar = Server.CreateObject("MSXML2.DOMDocument.4.0")
If Err.Number <> 0 Then
' 在这里处理错误
' 结束错误处理，避免以后发生的错误无法被发现
On Error GoTo 0
Else
' myVar 现在指向 MSXML 4.0 DOMDocument的一个实例
' 结束错误处理，避免以后发生的错误无法被发现
On Error GoTo 0
End If

?

?例子2：

?

Function Test1
??? On Error Resume Next
??? Test2
???? If Err.Number <> 0 Then? '测试结果，当Test2出错抛异常时，我这里不能捕获
??????? WScript.Echo "Exception!!!"
???? End If
End Function

Function Test2
??? On Error Resume Next
??? Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
??? Set GetWMIService = objSWbemLocator.ConnectServer("kk")
??? If Err.Number <> 0 Then '这里出错时，我想把异常抛出去，不处理
??????? Err.Raise Err.Number
??? End If
End Function

Test2