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
當(dāng)我們在程序最上面使用On Error Resume Next語句時,所有的錯誤都會被忽略,程序會自動執(zhí)行下一條語句。這樣程序就會完全執(zhí)行,出錯后用戶也不會看到出錯信息。但是這樣也有不好的地方,那就是如果程序沒有按照你想像的執(zhí)行的話,你就很難找到到底是哪里出了問題,所以你就得在必要的地方對錯誤進行處理。 處理錯誤 在ASP中,處理錯誤的最好的辦法就是在程序最底端放上代碼來處理錯誤。我也推薦在每個ASP程序都使用緩沖區(qū)。這樣的話,如果錯誤發(fā)生,頁面就會停止,頁面內(nèi)容也會被清除,這樣用戶就不會看到錯誤信息,對你們的抱怨也就少了!下面是一個例子: % '設(shè)置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 pageBR> Please report the following information to the support deskP> B>Page Error Object/B>BR> 錯誤 Number: %= Err.Number %>BR> 錯誤信息: %= Err.Description %>BR> 出錯文件: %= Err.Source %>BR> 出錯行: %= Err.Line %>BR> /FONT> /BODY> /HTML> %End If%> 你們上面看到了,我首先設(shè)置On Error Resume Next ,這樣出現(xiàn)錯誤就不會影響程序的執(zhí)行。 錯誤處理和數(shù)據(jù)庫 在錯誤處理中加入數(shù)據(jù)庫的執(zhí)行是很復(fù)雜的。假若我們有一個程序,有很多的命令去向數(shù)據(jù)庫中添加記錄,如果insert/update在程序的最底部執(zhí)行,如果我們前面又錯誤發(fā)生,那就完了!我們就會向數(shù)據(jù)庫中添加了一個錯誤的信息。因為我們用了On Error Resume Next 一切的錯誤都被忽略了!即使前面出錯,程序依舊會向數(shù)據(jù)庫中添加數(shù)據(jù)的。 為避免這種情況,我們就先得做些手腳,正確處理的方法如下: If Err.Number = 0 And objConnection.Errors.Count = 0 Then
'這里才能執(zhí)行語句,因為沒有錯誤 Set rstResults = dbData.Execute(txtSql) End If
更多高級的處理辦法 當(dāng)一個錯誤發(fā)生時,你們也可以顯示更多的錯誤信息。下面是同時處理數(shù)據(jù)庫和頁面錯誤的例子,有了它我們一下就能發(fā)現(xiàn)我們程序中的所有錯誤。(由于有些地方我覺得英文更能說時問題,所以沒有翻譯)。 % 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 %>
% 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 %>
上面的例子讓我們一下了處理了很多在數(shù)據(jù)庫中出現(xiàn)的問題,這個在我們?nèi)粘>幊桃彩浅S玫?!我們也?yīng)該看到那個Select Case 語句,它能讓我們來處理特定的錯誤。 Redirect 和錯誤處理 有一點我們就當(dāng)注意一下,就是我們常用到的redirect對象,如果一個頁面中出現(xiàn)了redirect對象,那么錯誤處理就失去了意義。所以在轉(zhuǎn)向之前我們還得處理一下,如下:
If Err.Number = 0 And objConnection.Errors.Count = 0 Then