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