on error goto (Vbscript)和try catch

最新推荐文章于 2024-06-25 16:22:04 发布

fionahd

最新推荐文章于 2024-06-25 16:22:04 发布

阅读量8.6k

点赞数

分类专栏： F) ASP 文章标签： vbscript microsoft asp vb.net 语言服务器

F) ASP 专栏收录该内容

32 篇文章 0 订阅

订阅专栏

在安装了IIS以后，缺省的服务器端脚本语言被设置成VBScript。许多Web 开发团队在他们的开发环境中保持了这些缺省设置，这是不幸的，因为VBScript对于处理运行时错误的支持非常的差。在VBScript中，开发者可以使用的唯一一个错误处理结构是

On Error Resume Next (打开错误处理功能) 和
On Error GoTo 0 (关闭错误处理功能)

　　为了在你的ASP 页面里有效的使用这个错误处理结构，你可能需要用这些结构包括可能抛出异常的代码，就象下面这样：

<%
Dim myVar
On Error Resume Next
'下面一行代码会在MSXML 4.0没有被安装或者已经损坏的情况下产生错误
Set myVar = Server.CreateObject("MSXML2.DOMDocument.4.0")
If Err.Number <> 0 Then
' 在这里处理错误
' 结束错误处理，避免以后发生的错误无法被发现
On Error GoTo 0
Else
' myVar 现在指向 MSXML 4.0 DOMDocument的一个实例
' 结束错误处理，避免以后发生的错误无法被发现
On Error GoTo 0
End If
%>

　　就象你看到的一样，如果你要在每一行现有的可能发生错误的代码上使用上面的规则，你的程序马上就会充满 "On Error" 和 "If Err.Number <> 0 Then . . ." 这样的结构。

　　而另一方面JScript对于健壮的错误处理机制“结构化异常处理（SEH）”有内建的支持。使用SEH能够让你的软件开发团队顺利的转移到.NET 环境上来，因为SEH是JScript.NET, VB.NET, 和 C#缺省的错误处理机制。（注意：.NET不支持VBScript。）下面的例子代码执行与VBScript代码相同的操作，但是使用JScript语言并用SEH来处理异常

<%@ LANGUAGE="JScript" %>
<%
var myVar;
try {
myVar = Server.CreateObject("MSXML2.DOMDocument.4.0");
// 如果上面发生了错误，那么catch
// 代码块就会立刻被执行
// 并在myVar上进行必要的操作。
}
catch (e) {
// 在这里处理异常，异常本身可以用
// 'e' 变量进行引用。
}
finally {
// 在这里进行所有收尾工作
// 这段代码不管错误有没有发生
// （也就是“catch”块有没有运行）
// 都会执行。
}
%>

　　通过在服务器端使用JScript，你就得到了SEH带来的好处，以及对复杂ASP对象，比方Server，Request和Response对象的完全使用。要把这种脚本语言设置成你的ASP页面的缺省语言，你只需要简单的在你的ASP页面上添加@LANGUAGE指令，就象上面的例子那样。

详细的on error语句的材料:

On Error 语句
　　该语句的作用是：启用或禁用错误处理程序。一般用法如下：

On Error Resume Next On Error GoTo 0　　

如果在您的代码中未使用On Error Resume Next语句，所发生的运行时错误将显示错误信息，同时，代码的执行也随之终止。

　　但当你采用它时，就会使程序按照产生错误的语句之后的语句继续执行，或是按照最近一次所调用的过程（该过程含有 On Error Resume Next 语句）中的语句继续运行。这个语句可以不顾运行时错误，继续执行程序，之后您可以在过程内部建立错误处理例程。

　　在调用另一个过程时，On Error Resume Next 语句变为非活动的。所以，如果希望在例程中进行内部错误处理，则应在每一个调用的例程中执行 On Error Resume Next 语句。

　　如果您已启用 On Error Resume Next 错误处理程序，则可使用On Error GoTo 0禁用错误处理程序。
要在代码中生成运行时错误，请用Err对象的Raise方法。
　　这样的情况经常在调试程序的时候看见，比如分别调试下面两程序则会显示。

　　1，err1.asp

<%Err.Raise 6%>
技术信息（用于支持人员）错误类型：Microsoft VBScript 运行时错误 (0x800A0006)溢出　　

2，err2.asp

<%aspxuexi.com%>　　调试的时候也就是：

技术信息（用于支持人员）错误类型：Microsoft VBScript 运行时错误 (0x800A01A8)缺少对象: 'aspxuexi'　　

但当你在首行添加了On Error Resume Next之后，发现不报错提示，表明内部错误处理完成。

3，err3.asp

<%

On Error Resume Next

aspxuexi.com

On Error GoTo 0

aspxuexi.com%>　　这时运用了On Error GoTo 0，则会显示出错信息，只不过不是第三行，而是第五行错误了。