ASP 3.0高級(jí)編程（三十三）

發(fā)布時(shí)間：2008-07-09 閱讀數(shù)：次來(lái)源：網(wǎng)樂(lè)原科技

7.4.2 VBScript錯(cuò)誤處理
在VBScript中，可以使腳本解釋器不處理其找到的任何錯(cuò)誤，并且使用On Error Resume Next語(yǔ)句繼續(xù)運(yùn)行下個(gè)語(yǔ)句。一旦這個(gè)語(yǔ)句已被處理，腳本引擎將繼續(xù)運(yùn)行后面的程序，而不理會(huì)已經(jīng)發(fā)現(xiàn)的任何錯(cuò)誤。然而，這種過(guò)程僅適用于順序執(zhí)行語(yǔ)句的環(huán)境，換句話說(shuō)，不適用于嵌套的函數(shù)或子程序。
1．使用On Error Resume Next語(yǔ)句
一個(gè)錯(cuò)誤在子程序中出現(xiàn)時(shí)，如果沒(méi)有運(yùn)行On Error Resume Next語(yǔ)句，那么錯(cuò)誤將被交給調(diào)用它的環(huán)境，這個(gè)過(guò)程一直重復(fù)到找到運(yùn)行On Error Resume Next語(yǔ)句的環(huán)境繼續(xù)運(yùn)行，或者找到缺省的腳本錯(cuò)誤處理器，把錯(cuò)誤交給ASP并且IIS顯示缺省錯(cuò)誤網(wǎng)頁(yè)。這個(gè)過(guò)程如圖7-16所示：

圖7-16 錯(cuò)誤處理過(guò)程
這種錯(cuò)誤調(diào)用鏈意味著可以創(chuàng)建防止使程序停止運(yùn)行的運(yùn)行期錯(cuò)誤的函數(shù)和子程序。如果在子程序的開(kāi)頭放置一個(gè)On Error Resume Next語(yǔ)句，任何運(yùn)行期錯(cuò)誤會(huì)中止這個(gè)子程序的運(yùn)行，但是調(diào)用該子程序的程序?qū)⒗^續(xù)運(yùn)行而不會(huì)引起網(wǎng)頁(yè)的停止。
例如，如果需要向一個(gè)文件中寫入字符串，可以通過(guò)一個(gè)獨(dú)立的函數(shù)對(duì)文件進(jìn)行訪問(wèn)文件，防止錯(cuò)誤中斷整個(gè)程序的運(yùn)行：
' 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
注意上面的程序在試圖處理每個(gè)程序語(yǔ)句之前，先檢查VBScript的Err對(duì)象的Number屬性。如果這個(gè)值為0（還沒(méi)有出現(xiàn)錯(cuò)誤），那么就能夠繼續(xù)對(duì)文件的定入和創(chuàng)建過(guò)程。然而如果錯(cuò)誤確實(shí)發(fā)生了，腳本引擎將設(shè)置Err對(duì)象的屬性的值，并且繼續(xù)處理下一行。
只要不引起錯(cuò)誤而能正常運(yùn)行，函數(shù)的返回值將設(shè)置為“True”。否則函數(shù)將返回“False”。在編程中可以在對(duì)其進(jìn)行測(cè)試以后，再使用該函數(shù)和采取其他行動(dòng)。
下面是一個(gè)簡(jiǎn)單的例子，我們希望對(duì)任務(wù)的第一部分采用一個(gè)獨(dú)立的函數(shù)，以便能更精確地辨別出錯(cuò)誤產(chǎn)生在何處。這樣，調(diào)試時(shí)也更容易閱讀代碼。在頁(yè)面的主程序中，可以調(diào)用三個(gè)單獨(dú)的函數(shù)。
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（盡管沒(méi)有文檔記錄）和ASP 3.0中，也能使用On Error Goto 0語(yǔ)句恢復(fù)缺省的錯(cuò)誤處理行為。在運(yùn)行這個(gè)語(yǔ)句后，發(fā)生的運(yùn)行期錯(cuò)誤將導(dǎo)致缺省錯(cuò)誤處理，在環(huán)境鏈中檢查每個(gè)嵌套的程序，直到主頁(yè)面代碼。如果沒(méi)有其他的環(huán)境關(guān)閉缺省錯(cuò)誤處理，網(wǎng)頁(yè)的執(zhí)行將停止并顯示IIS缺省錯(cuò)誤網(wǎng)頁(yè)。
3． VBScript Err對(duì)象
在前面的例子中，關(guān)閉缺省錯(cuò)誤處理時(shí)，通過(guò)檢查VBScript Err對(duì)象的Number屬性，查看錯(cuò)誤是否已經(jīng)出現(xiàn)。Err對(duì)象存儲(chǔ)了關(guān)于運(yùn)行期錯(cuò)誤的信息，表7-3和表7-4給出了VBScript Err對(duì)象提供的方法和屬性。
表7-3 VBScript Err對(duì)象的方法
方法
說(shuō) 明

Clear
清除當(dāng)前所有的Err對(duì)象設(shè)置

Raise
產(chǎn)生一個(gè)運(yùn)行期錯(cuò)誤

表7-4 VBScript Err對(duì)象的屬性
屬性
說(shuō) 明

Description
設(shè)置或返回一個(gè)描述錯(cuò)誤的字符串

Number
（缺省）設(shè)置或返回指定一個(gè)錯(cuò)誤的值

Source
設(shè)置或返回產(chǎn)生錯(cuò)誤的對(duì)象的名稱

使用這些屬性可以檢查發(fā)生了哪種錯(cuò)誤。例如，可以根據(jù)錯(cuò)誤號(hào)采取不同的措施，也可以用Source和Description的屬性值為用戶提供錯(cuò)誤信息，或者傳送到一個(gè)文件中。
也可以使用Err對(duì)象生成一個(gè)錯(cuò)誤。為什么要做這些呢？因?yàn)橛袝r(shí)想把一個(gè)定制的錯(cuò)誤消息傳送給用戶?？梢园袳rr對(duì)象的屬性設(shè)置成所希望的任何值。然后調(diào)用Raise方法來(lái)產(chǎn)生這種錯(cuò)誤，這樣做會(huì)停止程序的運(yùn)行，并且把錯(cuò)誤沿調(diào)用鏈向回傳遞。
下面的例子顯示了在服務(wù)器磁盤上讀取一個(gè)文本文件時(shí)，如何處理錯(cuò)誤。注意如何使用常數(shù)vbObjectError，以確定所選擇的錯(cuò)誤號(hào)不會(huì)和一個(gè)已存在的錯(cuò)誤號(hào)混淆。通過(guò)把任意選擇的錯(cuò)誤號(hào)加到此常數(shù)中，就能夠保證和預(yù)定義的錯(cuò)誤不混淆。
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
調(diào)用這個(gè)函數(shù)的代碼可以使用On Error Resume Next語(yǔ)句，并且能捕獲這個(gè)函數(shù)產(chǎn)生的錯(cuò)誤。
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錯(cuò)誤處理
在5.0版之前，JScript的錯(cuò)誤處理處理能力并不出色，然而在5.0版中情況改變了，JScript采用了一套和Java以及C++非常類似的錯(cuò)誤處理系統(tǒng)。它掌握起來(lái)盡管不像VBScript技術(shù)那樣容易，但人們認(rèn)為在錯(cuò)誤處理上，JScript走在前頭。
在第1章中，在討論這兩個(gè)主要腳本語(yǔ)言的新特點(diǎn)時(shí)候，已詳細(xì)討論了JScript錯(cuò)誤處理，這里不再重復(fù)。如果閱讀第1章時(shí)跳過(guò)了這部分，可以回到那里看看。