错误处理和数据库
在错误处理中加入数据库的执行是很复杂的。假若我们有一个程序,有很多的命令去向数据库中添加记录,如果insert/update在程序的最底部执行,如果我们前面又错误发生,那就完了!我们就会向数据库中添加了一个错误的信息。因为我们用了On Error Resume Next 一切的错误都被忽略了!即使前面出错,程序依旧会向数据库中添加数据的。
为避免这种情况,我们就先得做些手脚,正确处理的方法如下:
以下为引用的内容:
- If Err.Number = 0 And objConnection.Errors.Count = 0 Then
- ''这里才能执行语句,因为没有错误
- Set rstResults = dbData.Execute(txtSql)
- End If
更多高级的处理办法
当一个错误发生时,你们也可以显示更多的错误信息。下面是同时处理数据库和页面错误的例子,有了它我们一下就能发现我们程序中的所有错误。
以下为引用的内容:
- <%
- If Err.Number <> 0 Then
- Response.Clear
- 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>
- <%
- End If
- End Select
- End If
- %>
上面的例子让我们一下了处理了很多在数据库中出现的问题,这个在我们日常编程也是常用的!我们也应该看到那个Select Case 语句,它能让我们来处理特定的错误。
Redirect 和错误处理
有一点我们就当注意一下,就是我们常用到的redirect对象,如果一个页面中出现了redirect对象,那么错误处理就失去了意义。所以在转向之前我们还得处理一下,如下:
以下为引用的