入門：初學ASP動態網頁制作常用錯誤處理_ASP教程

2024-05-04 11:03:22

字體：大中小

來源：轉載

供稿：網友

推薦：ASP教程：初次接觸學習ASP腳本程序
為什么要學腳本語言呢？ASP和腳本語言又有什么關系呢？首先說說ASP是貴為何物吧。ASP是Microsoft Active Server Pages的簡稱，它是一種服務器端腳本環境，可用來創建交互式 Web 頁并建立強大

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">
An error occurred in the execution of this ASP page 
Please report the following information to the support desk
Page Error Object 
錯誤 Number： <%= Err.Number %> 
錯誤信息： <%= Err.Description %> 
出錯文件： <%= Err.Source %> 
出錯行： <%= Err.Line %> 

</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
%>
Database Connection Object
<%
For intLoop = 0 To objConnection.Errors.Count - 1 %>
Error No: <%= objConnection.Errors(intLoop).Number %> 
Description: <%= objConnection.Errors(intLoop).Description %> 
Source: <%= objConnection.Errors(intLoop).Source %> 
SQLState: <%= objConnection.Errors(intLoop).SQLState %> 
NativeError: <%= objConnection.Errors(intLoop).NativeError %>
<% Next
End If
End If
If Err.Number <> 0 Then
%>
Page Error Object 
Error Number <%= Err.Number %> 
Error Description <%= Err.Description %> 
Source <%= Err.Source %> 
LineNumber <%= Err.Line %>
<%
End If
End Select
End If
%>