您的位置:首页技术开发ASP教程 → ASP 3.0高级编程(三十三)

ASP 3.0高级编程(三十三)

时间:2004/11/7 4:13:00来源:本站整理作者:蓝点我要评论(0)

7.4.2 VBScript错误处理

       在VBScript中,可以使脚本解释器不处理其找到的任何错误,并且使用On Error Resume Next语句继续运行下个语句。一旦这个语句已被处理,脚本引擎将继续运行后面的程序,而不理会已经发现的任何错误。然而,这种过程仅适用于顺序执行语句的环境,换句话说,不适用于嵌套的函数或子程序。

1.  使用On Error Resume Next语句

一个错误在子程序中出现时,如果没有运行On Error Resume Next语句,那么错误将被交给调用它的环境,这个过程一直重复到找到运行On Error Resume Next语句的环境继续运行,或者找到缺省的脚本错误处理器,把错误交给ASP并且IIS显示缺省错误网页。

    这种错误调用链意味着可以创建防止使程序停止运行的运行期错误的函数和子程序。如果在子程序的开头放置一个On Error Resume Next语句,任何运行期错误会中止这个子程序的运行,但是调用该子程序的程序将继续运行而不会引起网页的停止。

例如,如果需要向一个文件中写入字符串,可以通过一个独立的函数对文件进行访问文件,防止错误中断整个程序的运行:

' create a file named strFileName, overwriting any existing one with that name

' and writes strContent into it then closes the file

' returns True if it succeeds, or False on any error

Function WriteNewFile(strFileName, strContent)

       On Error Resume Next         ' turn off the default error handler

       WiteNewFile = Flase             ' default return value of function

       Set objFSO = CreateObject("Scripting.FileSystemObject")

       If Err.Number = 0 Then Set objFile = objFSO.CreateTextFile(strFileName, True)

       If Err.Number = 0 Then objFile.WriteLine strContent

       If Err.Number = 0 Then objFile.Close

       If Err.Number = 0 Then WriteNewFile = True

End Function

注意上面的程序在试图处理每个程序语句之前,先检查VBScript的Err对象的Number属性。如果这个值为0(还没有出现错误),那么就能够继续对文件的定入和创建过程。然而如果错误确实发生了,脚本引擎将设置Err对象的属性的值,并且继续处理下一行。

只要不引起错误而能正常运行,函数的返回值将设置为“True”。否则函数将返回“False”。在编程中可以在对其进行测试以后,再使用该函数和采取其他行动。

下面是一个简单的例子,我们希望对任务的第一部分采用一个独立的函数,以便能更精确地辨别出错误产生在何处。这样,调试时也更容易阅读代码。在页面的主程序中,可以调用三个单独的函数。

If CreateNewFile(strFileName) Then                         ' create the new file

       Response.Write "New file successfully created
"

       If WriteContent(strContent) Then                       ' write the content

              Response.Write "Content written to file
"

       Else

              Response.Write "ERROR: Failed to write to the file
"

       End If

       If CloseFile(strFileName) Then

              Response.Write "File closed
"

       Else

              Response.Write "ERROR: Failed to close the file
"

       End If

Else

       Response.Write "ERROR: Failed to create the new file
"

End Funciotn

2.  使用On Error Goto 0

在ASP 2.0(尽管没有文档记录)和ASP 3.0中,也能使用On Error Goto 0语句恢复缺省的错误处理行为。在运行这个语句后,发生的运行期错误将导致缺省错误处理,在环境链中检查每个嵌套的程序,直到主页面代码。如果没有其他的环境关闭缺省错误处理,网页的执行将停止并显示IIS缺省错误网页。

3.  VBScript Err对象

在前面的例子中,关闭缺省错误处理时,通过检查VBScript Err对象的Number属性,查看错误是否已经出现。Err对象存储了关于运行期错误的信息,表7-3和表7-4给出了VBScript Err对象提供的方法和属性。

表7-3  VBScript Err对象的方法

方  法

说  明



Clear

清除当前所有的Err对象设置



Raise

产生一个运行期错误





表7-4  VBScript Err对象的属性

属  性

说  明



Description

设置或返回一个描述错误的字符串



Number

(缺省)设置或返回指定一个错误的值



Source

设置或返回产生错误的对象的名称



使用这些属性可以检查发生了哪种错误。例如,可以根据错误号采取不同的措施,也可以用Source和Description的属性值为用户提供错误信息,或者传送到一个文件中。

也可以使用Err对象生成一个错误。为什么要做这些呢?因为有时想把一个定制的错误消息传送给用户。可以把Err对象的属性设置成所希望的任何值。然后调用Raise方法来产生这种错误,这样做会停止程序的运行,并且把错误沿调用链向回传递。

下面的例子显示了在服务器磁盘上读取一个文本文件时,如何处理错误。注意如何使用常数vbObjectError,以确定所选择的错误号不会和一个已存在的错误号混淆。通过把任意选择的错误号加到此常数中,就能够保证和预定义的错误不混淆。

Functoin ReadThisFile(strFileName)            ' returns the content as a string

       On Error Resume Next

       ReadThisFile = " "                       ' default return value of function

       Set objFSO = CreateObject("Scripting.FileSystemObject")

       Set objFile = objFSO.OpenTextFile("strFileName", ForReading)

       Select Case Err.Number

              Case 0                                        ' OK, take no action

              Case 50, 53                                ' standard file or path not found errors

                     ' create custom error values and raise error back up the call chain

                     intErrNumber = vbObjectError + 1073        'custom error number

                     strErrDescription = "The file has been deleted or moved. "

                     strErrSource = " ReadThisFile function"

                     Err.Raise intErrNumber, strErrSource, strErrDescription

                     Exit Function

              Case Else                                    ' som other error

                     ' raise the standard error back up the call chain

                     Err.Raise Err.Number, Err.Source, Err.Description

                     Exit Function

       End Select

       ReadThisFile = objFile.ReadAll             ' we opened it OK, so return the content

       objFile.Close

End Function

调用这个函数的代码可以使用On Error Resume Next语句,并且能捕获这个函数产生的错误。

On Error Resume Next

strContent = ReadThisFile("myfile,txt")

If Err.Number = 0 Then

       Response.Write "File content is:
" & strContent

Else

       Response.Write "Err.Source & "
" & Err.Description

End If



7.4.3 JScript错误处理

       在5.0版之前,JScript的错误处理处理能力并不出色,然而在5.0版中情况改变了,JScript采用了一套和Java以及C++非常类似的错误处理系统。它掌握起来尽管不像VBScript技术那样容易,但人们认为在错误处理上,JScript走在前头。

       在第1章中,在讨论这两个主要脚本语言的新特点时候,已详细讨论了JScript错误处理,这里不再重复。如果阅读第1章时跳过了这部分,可以回到那里看看。






相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 没有查询到任何记录。

最新文章 《龙珠:超宇宙》 战斗E3 2014:瘆人僵尸《消 asp代码实现access数据导出到excel文件如何使用FSO读取Js文件内容并可以编辑修改对初学者有用的一些asp函数集学习ASP编程必会的代码

人气排行 asp代码实现access数据导出到excel文件asp不需要任何配置的伪静态实现如何使用FSO读取Js文件内容并可以编辑修改asp去除html标记和空格的代码Asp全选删除代码教大家网页伪静态知识及其2种实现方法Microsoft SQL Server 7.0安装问题(一)ASP.NET中的Code Behind技术4