asp 异常机制

error.asp

<% 
Dim myVar 
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 
%>