<%@ LANGUAGE="VBs cript" %> <%Response.Buffer = True "设置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.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