明晰程式異常的來源 ASP錯誤處理小結

ASP是非常簡單的，以至於許多的 開發者不會去思考錯誤處理。錯誤處理能夠讓你的應用程式更加合理。我看到過很多個用ASP編寫的商業 網站，大多數都忽略了錯誤處理。

　　錯誤的類型

　　有三種主要的錯誤類型：

　　１．編譯錯誤：

　　這種錯誤出現一般都是代碼的文法問題。因為編譯錯誤而導致辭ASP停止運行。

　　２．運行錯誤：

　　這個錯誤是發生在你準備運行ASP時的。例如：如果你試圖給一個變數賦值，但是卻超出了該變數允許的範圍。

　　３．邏輯錯誤：

　　邏輯錯誤是最難被 發現的，這種錯誤經常是一種結構錯誤，電腦是發現不了的。這就需要我們徹頭徹尾地檢查我們的代碼。

　　因為編譯錯誤一般是和邏輯錯誤一起發生的，一般都能顯示出來，所以我們擔心的就只是運行錯誤。它都終止ASP的運行，而且給使用者丟下一堆很不友好的文字。 那麼我們要怎樣處理運行錯誤呢？

　　我們先來看看，ASP唯一提供給我們的錯誤命令---On Error Resume Next(這裡提醒一下初學者，在ASP中只有On Error Resume Next語句，沒有On Error Resume Goto語句） 如果你不使用On Error Resume Next語句的話,一切運行錯誤都會發生，這個是致命的，那麼就會有一段錯誤碼“展現”給使用者，而且ASP程式也會停止。 下面就是一個錯誤碼：

　　 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語句時，所有的錯誤都會被忽略，程式會自動執行下一條語句。這樣程式就會完全執行，出錯後使用者也不會看到出錯資訊。但是這樣也有 不好的地方，那就是如果程式沒有按照你想像的執行的話，你就很難找到到底是哪裡出了問題，所以你就得在必要的地方對錯誤進行處理。
處理錯誤

　　在ASP中，處理錯誤的最好的辦法就是在程式最底端放上代碼來處理錯誤。我也推薦在每個ASP程式都使用緩衝區。這樣的話，如果錯誤發生，頁面就會停止， 頁面內容也會被清除，這樣使用者就不會看到錯誤資訊，對你們的抱怨也就少了！下面是一個例子：

＜%@ LANGUAGE="VBs cript" %＞
＜%Response.Buffer = True
"設定buffer為True
On Error Resume Next
"開始錯誤處理
%＞
＜%"錯誤處理
If Err.Number ＜＞ 0 Then
"清除頁面
Response.Clear
"顯示錯誤資訊給使用者
%＞
＜HTML＞
＜HEAD＞
＜T ITLE＞＜/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.Des cription %＞＜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＞
Des cription: ＜%= objConnection.Errors(intLoop).Des cription %＞＜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 Des cription ＜%= Err.Des cription %＞＜BR＞
Source ＜%= Err.Source %＞＜BR＞
LineNumber ＜%= Err.Line %＞＜P＞
＜%End If
End Select
End If %＞

　　上面的例子讓我們一下了處理了很多在資料庫中出現的問題，這個在我們日常 編程也是常用的！我們也應該看到那個Select Case 語句，它能讓我們來處理特定的錯誤。
Redirect 和錯誤處理

　　有一點我們就當注意一下，就是我們常用到的redirect對象，如果一個頁面中出現了redirect對象，那麼錯誤處理就失去了意義。所以在轉向之前我們還得處理一下，如下：

　　If Err.Number = 0 And objConnection.Errors.Count = 0 Then
　　　Response.Clear
　　　Response.Redirect ?lt;URL Here＞?
　　End If

　　把代碼變得更整齊

　　為了讓代碼變得更整齊，首先把錯誤處理的檔案放在一個包含檔案中。這樣你就可以在任何檔案中使用它。這樣修改也方便。在你程式的最上方加入(當然在語言聲明之後）On Error Resume Next語句。在你執行SQL以前進行錯誤檢查。使用redirect以前也要進行錯誤處理。

　　讓你處理錯誤的包含檔案在代碼的最上面

　　我希望這篇文章對你們有所用，因為我在我們的 論壇中已經發現有人在問這個問題了！也許我編譯出這篇文章能對你們起些作用。