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程式都使用緩衝區。這樣的話,如果錯誤發生,頁面就會停止,頁面內容也會被清除,這樣使用者就不會看到錯誤資訊,對你們的抱怨也就少了!下面是一個例子:
<%
'設定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 語句,它能讓我們來處理特定的錯誤。
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以前也要進行錯誤處理。
讓你處理錯誤的包含檔案在代碼的最上面