查看: 65|回复: 1

[文章教程] 微软教程:如何处理 VBScript 中的错误?

[复制链接]
xuanxiao 发表于 2024-11-23 18:34:27 | 显示全部楼层 |阅读模式
在 VBScript 中,使用 On Error Resume Next,然后检查Err.Number和Errors集合的Count属性 可以起到调试代码的作用,具体范例如下
微信截图_20241123183021.png

相关代码:
微信截图_20241123183102.png

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


  1. ' 故意触发一个错误
  2. Set cnn1 = Server.CreateObject("ADODB.Connection")
  3. cnn1.Open "nothing"

  4. If cnn1.Errors.Count > 0 Then
  5. ' 枚举显示详细的错误集合和属性信息

  6.                  For Each errLoop In cnn1.Errors
  7.                                          strError = "Error #" & errLoop.Number & "<br>" & _
  8.                                          " " & errLoop.Description & "<br>" & _
  9.                                          " (Source: " & errLoop.Source & ")" & "<br>" & _
  10.                                          " (SQL State: " & errLoop.SQLState & ")" & "<br>" & _
  11.                                          " (NativeError: " & errLoop.NativeError & ")" & "<br>"
  12.                                          
  13.                  If errLoop.HelpFile = "" Then
  14.                                  strError = strError & _
  15.                                  " 没有可用的帮助文件" & _
  16.                                  "<br><br>"
  17.                  Else
  18.                                  strError = strError & _
  19.                                  " (帮助文件: " & errLoop.HelpFile & ")" & "<br>" & _
  20.                                  " (文件内容: " & errLoop.HelpContext & ")" & _
  21.                                  "<br><br>"
  22.                  End If
  23.                  Response.Write ("<p>" & strError & "</p>")
  24.                  Next
  25. End If
复制代码
一往情僧 发表于 2024-11-24 08:46:20 | 显示全部楼层
每天来都有惊喜!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号