vbscript中，錯(cuò)誤處理使用on error resume next來(lái)完成，如果在你的代碼里加入這一句，在這句之后的其他代碼如果出現(xiàn)錯(cuò)誤，系統(tǒng)將忽略這些錯(cuò)誤繼續(xù)運(yùn)行后面的代碼，同時(shí)，我們可以使用下面的代碼來(lái)捕獲錯(cuò)誤
代碼如下:
If err.number<>0 then
errNum = Err.Number
errDesc = Err.Description
Call G00B02logOut("Error.002"， errNum ，errDesc )
End If
If err.number<>0 then
errNum = Err.Number
errDesc = Err.Description
Call G00B02logOut("Error.002"， errNum ，errDesc )
End If
這樣可以捕獲到錯(cuò)誤代碼和錯(cuò)誤的描述信息，并寫(xiě)入日志文件。然 而，有個(gè)問(wèn)題是，在我們捕獲了這個(gè)錯(cuò)誤之后的代碼，如果再出現(xiàn)錯(cuò)誤而你沒(méi)有捕獲的話，代碼仍然會(huì)忽略錯(cuò)誤繼續(xù)運(yùn)行。忽略錯(cuò)誤是我們不希望看到的結(jié)果，將導(dǎo)致程序調(diào)試?yán)щy。此時(shí)可以使用 On Error GoTo 0 這句來(lái)終止前面錯(cuò)誤處理，即可以和on error resume next 成對(duì)出現(xiàn)。這樣就不會(huì)影響后面的代碼了。
代碼如下:
on error resume Next
。。。
'DB operate。。
。。。
If err.number<>0 then
errNum = Err.Number
errDesc = Err.Description
Call G00B02logOut("Error.002"， errNum ，errDesc )
End If
On Error Goto 0
on error resume Next
。。。
'DB operate。。
。。。
If err.number<>0 then
errNum = Err.Number
errDesc = Err.Description
Call G00B02logOut("Error.002"， errNum ，errDesc )
End If
On Error Goto 0
有幾個(gè)特點(diǎn)需要了解，
1，on error resume Next如果在全局定義，則作用是全局的，你在主程序中使用了這一句，后面如果調(diào)用了一個(gè)函數(shù)，那么函數(shù)中如果有錯(cuò)誤，也將被忽略，你在主程序中函數(shù)調(diào)用的語(yǔ)句后面也可以捕獲到這個(gè)錯(cuò)誤，這一點(diǎn)可以通過(guò)下面簡(jiǎn)單的代碼驗(yàn)證：
代碼如下:
On error resume Next
funcb ‘調(diào)用函數(shù)
If err.Number <> 0 Then
errNum = Err.Number
errDesc = Err.Description
WScript.Echo errNum & " - " & errDesc
End If
WScript.Echo "main ...."
'On Error Goto 0
Sub funcb
aaaaaaaaaaa '測(cè)試用的無(wú)效語(yǔ)句
WScript.Echo "funcb ok"
If err.Number <> 0 Then
errNum = Err.Number
errDesc = Err.Description
WScript.Echo errNum & " - " & errDesc
End If
End
On error resume Next
funcb ‘調(diào)用函數(shù)
If err.Number <> 0 Then
errNum = Err.Number
errDesc = Err.Description
WScript.Echo errNum & " - " & errDesc
End If
WScript.Echo "main ...."
'On Error Goto 0
Sub funcb
aaaaaaaaaaa '測(cè)試用的無(wú)效語(yǔ)句
WScript.Echo "funcb ok"
If err.Number <> 0 Then
errNum = Err.Number
errDesc = Err.Description
WScript.Echo errNum & " - " & errDesc
End If
End
執(zhí)行以上代碼的結(jié)果：
13 - 型が一致しません。
main ....
可以看出，在函數(shù)中，aaaaaaaaaaa是故意制造的一個(gè)錯(cuò)誤，其后的WScript.Echo "funcb ok"以及后面的代碼都沒(méi)有執(zhí)行。但是，主程序中的WScript.Echo "main ...."語(yǔ)句是執(zhí)行了的。就是說(shuō)，在函數(shù)中如果某個(gè)語(yǔ)句出錯(cuò)，函數(shù)中后面的語(yǔ)句都不執(zhí)行，直接執(zhí)行調(diào)用函數(shù)的語(yǔ)句后面的語(yǔ)句。
2，On error resume Next如果在函數(shù)內(nèi)定義，看下面的代碼執(zhí)行情況
代碼如下:
funcb ‘函數(shù)調(diào)用
If err.Number <> 0 Then
errNum = Err.Number
errDesc = Err.Description
WScript.Echo errNum & " - " & errDesc
End If
WScript.Echo "main ...."
Sub funcb ‘函數(shù)定義
On error resume Next
aaaaaaaaaaaa '無(wú)效語(yǔ)句
WScript.Echo "funcb ok"
If err.Number <> 0 Then
errNum = Err.Number
errDesc = Err.Description
WScript.Echo errNum & " - " & errDesc
End If
End Sub
funcb ‘函數(shù)調(diào)用
If err.Number <> 0 Then
errNum = Err.Number
errDesc = Err.Description
WScript.Echo errNum & " - " & errDesc
End If
WScript.Echo "main ...."
Sub funcb ‘函數(shù)定義
On error resume Next
aaaaaaaaaaaa '無(wú)效語(yǔ)句
WScript.Echo "funcb ok"
If err.Number <> 0 Then
errNum = Err.Number
errDesc = Err.Description
WScript.Echo errNum & " - " & errDesc
End If
End Sub
執(zhí)行結(jié)果如下：
funcb ok
13 - 型が一致しません。
13 - 型が一致しません。
main ....
可以看到，函數(shù)體內(nèi)的err對(duì)象和調(diào)用它的主程序中都可以捕獲到這個(gè)錯(cuò)誤，這說(shuō)明err對(duì)象是全局的，應(yīng)該這么理解，err的作用范圍在一個(gè)On error resume Next語(yǔ)句和一個(gè)On Error Goto 0之間有效。如果我們?cè)趂uncb調(diào)用語(yǔ)句的后面在加一個(gè)無(wú)效語(yǔ)句，執(zhí)行時(shí)會(huì)彈出錯(cuò)誤msg框，說(shuō)明函數(shù)體內(nèi)的On error resume Next不能作用到函數(shù)體外。
以上是使用On error resume Next的一些體會(huì)，如果了解了上面兩點(diǎn)，就可以較好的使用錯(cuò)誤處理的功能了。