ASP的错误处理集锦

ASP的错误处理集锦(5) 　　Select Case Err.Number
　　　　Case 8
　　　　　"指定错误的Number
　　　　　"在这里处理自定义错误
　　　　Case Else
　　　　　"一般错误
　　　　　If IsObject(objConnection) Then
　　　　　　If objConnection.Errors.Count > 0 Then
　　　　　　%>
　　　　　　<B>Database Connection Object</B>
　　　　　　<% 　
　　　　　　　For intLoop = 0 To objConnection.Errors.Count - 1 %>
　　　　　　　　Error No: <%= objConnection.Errors(intLoop).Number %><br>
                Description: <%= objConnection.Errors(intLoop).Description %><BR>
                Source: <%= objConnection.Errors(intLoop).Source %><BR>
                SQLState: <%= objConnection.Errors(intLoop).SQLState %><BR>
                NativeError: <%= objConnection.Errors(intLoop).NativeError %><P>
              <% Next
            End If
         End If
         If Err.Number <> 0 Then %> <B>
           Page Error Object</B><BR>
           Error Number <%= Err.Number %><BR>
           Error Description <%= Err.Description %><BR>
           Source <%= Err.Source %><BR>
           LineNumber <%= Err.Line %><P>