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程序都使用缓冲区。这样的话，如果错误发生，页面就会停止，页面内容也会被清除，这样用户就不会看到错误信息，对你们的抱怨也就少了！下面是一个例子：

1@ LANGUAGE="VBScript"

1Response.Buffer = True   
2"设置buffer为True   
3On Error Resume Next   
4"开始错误处理

1"错误处理   
2If Err.Number <> 0 Then   
3"清除页面   
4Response.Clear   
5"显示错误信息给用户

 1<html>
 2<head>
 3<title></title>
 4</head>
 5<body bgcolor="#C0C0C0">
 6<font face="ARIAL">An error occurred in the execution of this ASP page<br/>   
 7Please report the following information to the support desk   
 8<p><b>Page Error Object</b><br/>   
 9错误 Number： ```
10= Err.Number 
11```<br/>   
12错误信息： ```
13= Err.Description 
14```<br/>   
15出错文件： ```
16= Err.Source 
17```<br/>   
18出错行： ```
19= Err.Line 
20```<br/>
21</p></font>
22</body>
23</html>

1End 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
更多高级的处理办法
当一个错误发生时，你们也可以显示更多的错误信息。下面是同时处理数据库和页面错误的例子，有了它我们一下就能发现我们程序中的所有错误。（由于有些地方我觉得英文更能说时问题，所以没有翻译）。

 1 If Err.Number <> 0 Then   
 2Response.Clear   
 3Select Case Err.Number   
 4Case 8   
 5"指定错误的Number   
 6"在这里处理自定义错误   
 7Case Else   
 8"一般错误   
 9If IsObject(objConnection) Then   
10If objConnection.Errors.Count > 0 Then

1<b>Database Connection Object</b>

1   
2For 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 ``` 上面的例子让我们一下了处理了很多在数据库中出现的问题，这个在我们日常编程也是常用的！我们也应该看到那个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以前也要进行错误处理。让你处理错误的包含文件在代码的最上面我希望这篇文章对你们有所用，因为我在我们的论坛中已经发现有人在问这个问题了！也许我编译出这篇文章能对你们起些作用。简单介绍 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="VBScript" ``` ``` Response.Buffer = True "设置buffer为True On Error Resume Next "开始错误处理

"错误处理
If Err.Number <> 0 Then
"清除页面
Response.Clear
"显示错误信息给用户

 1<html>
 2<head>
 3<title></title>
 4</head>
 5<body bgcolor="#C0C0C0">
 6<font face="ARIAL">An error occurred in the execution of this ASP page<br/>   
 7Please report the following information to the support desk   
 8<p><b>Page Error Object</b><br/>   
 9错误 Number： ```
10= Err.Number 
11```<br/>   
12错误信息： ```
13= Err.Description 
14```<br/>   
15出错文件： ```
16= Err.Source 
17```<br/>   
18出错行： ```
19= Err.Line 
20```<br/>
21</p></font>
22</body>
23</html>

End If

 1你们上面看到了，我首先设置On Error Resume Next ，这样出现错误就不会影响程序的执行。   
 2错误处理和数据库   
 3在错误处理中加入数据库的执行是很复杂的。假若我们有一个程序，有很多的命令去向数据库中添加记录，如果insert/update在程序的最底部执行，如果我们前面又错误发生，那就完了！我们就会向数据库中添加了一个错误的信息。因为我们用了On Error Resume Next 一切的错误都被忽略了！即使前面出错，程序依旧会向数据库中添加数据的。   
 4为避免这种情况，我们就先得做些手脚，正确处理的方法如下：   
 5If Err.Number = 0 And objConnection.Errors.Count = 0 Then   
 6"这里才能执行语句，因为没有错误   
 7Set rstResults = dbData.Execute(txtSql)   
 8End If   
 9更多高级的处理办法   
10当一个错误发生时，你们也可以显示更多的错误信息。下面是同时处理数据库和页面错误的例子，有了它我们一下就能发现我们程序中的所有错误。 （由于有些地方我觉得英文更能说时问题，所以没有翻译）。

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

1<b>Database Connection Object</b>

For intLoop = 0 To objConnection.Errors.Count - 1

 1Error No: ```
 2= objConnection.Errors(intLoop).Number 
 3```<br/>   
 4Description: ```
 5= objConnection.Errors(intLoop).Description 
 6```<br/>   
 7Source: ```
 8= objConnection.Errors(intLoop).Source 
 9```<br/>   
10SQLState: ```
11= objConnection.Errors(intLoop).SQLState 
12```<br/>   
13NativeError: ```
14= objConnection.Errors(intLoop).NativeError 
15```<p>

Next
End If
End If
If Err.Number <> 0 Then

 1Page Error Object</b><br/>   
 2Error Number ```
 3= Err.Number 
 4```<br/>   
 5Error Description ```
 6= Err.Description 
 7```<br/>   
 8Source ```
 9= Err.Source 
10```<br/>   
11LineNumber ```
12= Err.Line 
13```<p>

End If
End Select
End If

 1上面的例子让我们一下了处理了很多在数据库中出现的问题，这个在我们日常编程也是常用的！我们也应该看到那个Select Case 语句，它能让我们来处理特定的错误。   
 2Redirect 和错误处理   
 3有一点我们就当注意一下，就是我们常用到的redirect对象，如果一个页面中出现了redirect对象，那么错误处理就失去了意义。所以在转向之前我们还得处理一下，如下：   
 4If Err.Number = 0 And objConnection.Errors.Count = 0 Then   
 5Response.Clear   
 6Response.Redirect ?lt;URL Here&gt;?   
 7End If   
 8把代码变得更整齐   
 9为了让代码变得更整齐，首先把错误处理的文件放在一个包含文件中。这样你就可以在任何文件中使用它。这样修改也方便。在你程序的最上方加入(当然在语言声明之后）On Error Resume Next语句。在你执行SQL以前进行错误检查。使用redirect以前也要进行错误处理。   
10让你处理错误的包含文件在代码的最上面   
11我希望这篇文章对你们有所用，因为我在我们的论坛中已经发现有人在问这个问题了！也许我编译出这篇文章能对你们起些作用。   
12简单介绍   
13ASP是非常简单的，以至于许多的开发者不会去思考错误处理。错误处理能够让你的应用程序更加合理。我看到过很多个用ASP编写的商业网站，大多数都忽略了错误处理。 错误的类型   
14有三种主要的错误类型：   
15１．编译错误：   
16这种错误出现一般都是代码的语法问题。因为编译错误而导致辞ASP停止运行。   
17２．运行错误：   
18这个错误是发生在你准备运行ASP时的。例如：如果你试图给一个变量赋值，但是却超出了该变量允许的范围。   
19３．逻辑错误：   
20逻辑错误是最难被发现的，这种错误经常是一种结构错误，电脑是发现不了的。这就需要我们彻头彻尾地检查我们的代码。   
21因为编译错误一般是和逻辑错误一起发生的，一般都能显示出来，所以我们担心的就只是运行错误。它都终止ASP的运行，而且给用户丢下一堆很不友好的文字。 那么我们要怎样处理运行错误呢？   
22我们先来看看，ASP唯一提供给我们的错误命令---On Error Resume Next(这里提醒一下初学者，在ASP中只有On Error Resume Next语句，没有On Error Resume Goto语句） 如果你不使用On Error Resume Next语句的话,一切运行错误都会发生，这个是致命的，那么就会有一段错误代码“展现”给用户，而且ASP程序也会停止。 下面就是一个错误代码：   
23Microsoft 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   
24当我们在程序最上面使用On Error Resume Next语句时，所有的错误都会被忽略，程序会自动执行下一条语句。这样程序就会完全执行，出错后用户也不会看到出错信息。但是这样也有 不好的地方，那就是如果程序没有按照你想像的执行的话，你就很难找到到底是哪里出了问题，所以你就得在必要的地方对错误进行处理。   
25处理错误   
26在ASP中，处理错误的最好的办法就是在程序最底端放上代码来处理错误。我也推荐在每个ASP程序都使用缓冲区。这样的话，如果错误发生，页面就会停止， 页面内容也会被清除，这样用户就不会看到错误信息，对你们的抱怨也就少了！下面是一个例子：

@ LANGUAGE="VBScript"

Response.Buffer = True
"设置buffer为True
On Error Resume Next
"开始错误处理

"错误处理
If Err.Number <> 0 Then
"清除页面
Response.Clear
"显示错误信息给用户

 1<html>
 2<head>
 3<title></title>
 4</head>
 5<body bgcolor="#C0C0C0">
 6<font face="ARIAL">An error occurred in the execution of this ASP page<br/>   
 7Please report the following information to the support desk   
 8<p><b>Page Error Object</b><br/>   
 9错误 Number： ```
10= Err.Number 
11```<br/>   
12错误信息： ```
13= Err.Description 
14```<br/>   
15出错文件： ```
16= Err.Source 
17```<br/>   
18出错行： ```
19= Err.Line 
20```<br/>
21</p></font>
22</body>
23</html>

End If

 1你们上面看到了，我首先设置On Error Resume Next ，这样出现错误就不会影响程序的执行。   
 2错误处理和数据库   
 3在错误处理中加入数据库的执行是很复杂的。假若我们有一个程序，有很多的命令去向数据库中添加记录，如果insert/update在程序的最底部执行，如果我们前面又错误发生，那就完了！我们就会向数据库中添加了一个错误的信息。因为我们用了On Error Resume Next 一切的错误都被忽略了！即使前面出错，程序依旧会向数据库中添加数据的。   
 4为避免这种情况，我们就先得做些手脚，正确处理的方法如下：   
 5If Err.Number = 0 And objConnection.Errors.Count = 0 Then   
 6"这里才能执行语句，因为没有错误   
 7Set rstResults = dbData.Execute(txtSql)   
 8End If   
 9更多高级的处理办法   
10当一个错误发生时，你们也可以显示更多的错误信息。下面是同时处理数据库和页面错误的例子，有了它我们一下就能发现我们程序中的所有错误。 （由于有些地方我觉得英文更能说时问题，所以没有翻译）。

1<b>Database Connection Object</b>

For intLoop = 0 To objConnection.Errors.Count - 1

 1Error No: ```
 2= objConnection.Errors(intLoop).Number 
 3```<br/>   
 4Description: ```
 5= objConnection.Errors(intLoop).Description 
 6```<br/>   
 7Source: ```
 8= objConnection.Errors(intLoop).Source 
 9```<br/>   
10SQLState: ```
11= objConnection.Errors(intLoop).SQLState 
12```<br/>   
13NativeError: ```
14= objConnection.Errors(intLoop).NativeError 
15```<p>

Next
End If
End If
If Err.Number <> 0 Then

 1Page Error Object</b><br/>   
 2Error Number ```
 3= Err.Number 
 4```<br/>   
 5Error Description ```
 6= Err.Description 
 7```<br/>   
 8Source ```
 9= Err.Source 
10```<br/>   
11LineNumber ```
12= Err.Line 
13```<p>

End If
End Select
End If

 1上面的例子让我们一下了处理了很多在数据库中出现的问题，这个在我们日常编程也是常用的！我们也应该看到那个Select Case 语句，它能让我们来处理特定的错误。   
 2Redirect 和错误处理   
 3有一点我们就当注意一下，就是我们常用到的redirect对象，如果一个页面中出现了redirect对象，那么错误处理就失去了意义。所以在转向之前我们还得处理一下，如下：   
 4If Err.Number = 0 And objConnection.Errors.Count = 0 Then   
 5Response.Clear   
 6Response.Redirect ?lt;URL Here&gt;?   
 7End If   
 8把代码变得更整齐   
 9为了让代码变得更整齐，首先把错误处理的文件放在一个包含文件中。这样你就可以在任何文件中使用它。这样修改也方便。在你程序的最上方加入(当然在语言声明之后）On Error Resume Next语句。在你执行SQL以前进行错误检查。使用redirect以前也要进行错误处理。   
10让你处理错误的包含文件在代码的最上面   
11我希望这篇文章对你们有所用，因为我在我们的论坛中已经发现有人在问这个问题了！也许我编译出这篇文章能对你们起些作用。</p></p></p></p></p></p>