Microsoft OLE DB Provider for ODBC Drivers error 80004005 [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified /test.asp, line 60
當我們在程序最上面使用On Error Resume Next語句時,所有的錯誤都會被忽略,程序會自動執行下一條語句。這樣程序就會完全執行,出錯後用戶也不會看到出錯信息。但是這樣也有不好的地方,那就是如果程序沒有按照你想像的執行的話,你就很難找到到底是哪裡出了問題,所以你就得在必要的地方對錯誤進行處理。
<% '設置buffer為True Response.Buffer = True '開始錯誤處理 On Error Resume Next %> <% '錯誤處理 If Err.Number <> 0 Then '清除頁面 Response.Clear '顯示錯誤信息給用戶 %> <HTML> <HEAD> <TITLE></TITLE> </HEAD> <BODY BGCOLOR="#C0C0C0"> <FONT FACE="ARIAL">An error occurred in the execution of this ASP page<BR> Please report the following information to the support desk<P> <B>Page Error Object</B><BR> 錯誤 Number: <%= Err.Number %><BR> 錯誤信息: <%= Err.Description %><BR> 出錯文件: <%= Err.Source %><BR> 出錯行: <%= Err.Line %><BR> </FONT> </BODY> </HTML> <%End If%>
上面的例子首先設置On Error Resume Next ,這樣出現錯誤就不會影響程序的執行。
錯誤處理和數據庫
在錯誤處理中加入數據庫的執行是很復雜的。假若我們有一個程序,有很多的命令去向數據庫中添加記錄,如果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 語句,它能讓我們來處理特定的錯誤。