on error goto (Vbscript)和try catch

  • Post author:
  • Post category:其他


在安装了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,则会显示出错信息,只不过不是第三行,而是第五行错误了。