ASP:调用存储在新类中的对象

Question

下面是我的代码的简化示例，展示了我的类的外观。。。这两个类都在单独的asp文件（newsitem.asp和messageboard.asp）中

Class NewsItem
    private c_title
    private c_content
    public property get title
        title = c_title
    end property 
    public property get content
        content = c_content
    end property
    public function loadById (id)
        'Fill all the variables with database records'
        c_title = rs(...)
        c_content = rs(...)
    end function
End Class
Class MessageBoard
    Dim dict
    private sub Class_Initialize
         set dict = Server.CreateObject("Scripting.Dictionary")     
    end sub
    public property get messages ()
        messages = dict
    end property
    public function fillBoard ()
        Dim oNews : set oNews = new NewsItem
        For all the newsitems in the database
            oNews.loadByID(newsitemID)
            dict.add newsitemsID, oNews
        Next
    end function
End Class

在第三个文件（showMessageboard.asp）中，我包含了以上两个文件，并尝试执行以下操作：

Dim oMB : set oMB = new MessageBoard
oMB.fillBoard() 'Dictionary of MessageBoard class is filled with NewsItem-objects'
response.write oMB.messages.item(1).content 'show the content of the first NewsItem-object'

我总是在最后一行收到一个错误，说对象属性不支持该方法（我现在不知道确切的错误消息，因为我不在家：）稍后会添加它）。

有人能看看这个代码并告诉我可能出了什么问题吗？我通过将response.write dict.item（1）.content添加到公共属性get-messages来测试我的代码，它运行良好。所以在课外使用字典时出了问题？？？

我还尝试使用函数而不是公共属性，但结果相同。。。

Answer 1

在属性getMessages（）中，您必须设置返回值，如下所示：

public property get messages ()
    set messages = dict
end property