微软教程：如何处理 VBScript 中的错误？

在 VBScript 中，使用 On Error Resume Next，然后检查Err.Number和Errors集合的Count属性 可以起到调试代码的作用，具体范例如下


相关代码：


asp调试代码.asp (1.39 KB, 下载次数: 0)

2024-11-23 18:34 上传

点击文件名下载附件

1. ' 故意触发一个错误
   
2. Set cnn1 = Server.CreateObject("ADODB.Connection")
   
3. cnn1.Open "nothing"
   
4. 
   
5. If cnn1.Errors.Count > 0 Then
   
6. ' 枚举显示详细的错误集合和属性信息
   
7. 
   
8.                  For Each errLoop In cnn1.Errors
   
9.                                          strError = "Error #" & errLoop.Number & "<br>" & _
   
10.                                          " " & errLoop.Description & "<br>" & _
    
11.                                          " (Source: " & errLoop.Source & ")" & "<br>" & _
    
12.                                          " (SQL State: " & errLoop.SQLState & ")" & "<br>" & _
    
13.                                          " (NativeError: " & errLoop.NativeError & ")" & "<br>"
    
14.                                          
    
15.                  If errLoop.HelpFile = "" Then
    
16.                                  strError = strError & _
    
17.                                  " 没有可用的帮助文件" & _
    
18.                                  "<br><br>"
    
19.                  Else
    
20.                                  strError = strError & _
    
21.                                  " (帮助文件: " & errLoop.HelpFile & ")" & "<br>" & _
    
22.                                  " (文件内容: " & errLoop.HelpContext & ")" & _
    
23.                                  "<br><br>"
    
24.                  End If
    
25.                  Response.Write ("<p>" & strError & "</p>")
    
26.                  Next
    
27. End If

复制代码

每天来都有惊喜！