ASP Classic“Microsoft VBScript运行时错误'800a01a8'对象必需：'hashHelp'”

Question

这里我有一个双目录，假设是以对象hashHelp的形式从数据库中携带信息。显然，这不起作用。 基于我在本网站和网络上发现的所有内容，此错误消息似乎暗示对象hashHelp未创建，但您可以清楚地看到它正在上面创建。我检查一下，知道会发生什么事吗？

    do until rs.eof
        if valid(cart, rs, data) = true then
                Dim hashHelp 
                Set hashHelp = new HashHelper
                hashHelp.setCode(rs.Fields("Code"))
                hashHelp.setDateTime(rs.Fields("ScanTime"))
                Dim entry
                entry = DateDiff("d", beginDate, DateValue(rs.Fields("ScanTime")))
                hash.Item(rs.Fields("ScanTime")).Item(arr(entry)) = hashHelp
                arr(DateDiff("d", beginDate, rs.Fields("ScanTime"))) = arr(DateDiff("d", beginDate, rs.Fields("ScanTime"))) + 1
        End If
        rs.movenext
    loop
    rs.close

错误发生的行是hash.Item（rs.Fields（“ScanTime”））。Item（arr（entry））= hashHelp 我检查了所有其他变量，它们正在被创建和使用。