On Error Resume Next
...程序
If Err.Number>0 Then
    Response.Write Err.Description
    Response.End
End If