Вопросы Теги

Структура классов в классическом asp

Мне нужно использовать структуру классов в классическом asp. Я написал следующие три класса.

Category.asp 

<%

Class Category

    Private NameVar

    Public Property Get Name()
        Name = NameVar
    End Property

    Public Property Let Name(nameParam)
        NameVar = nameParam
    End Property

End Class

%>

Item.asp 

<%

Class Item

    Private NameVar
        Private CategoryVar

    Public Property Get Name()
        Name = NameVar
    End Property

    Public Property Let Name(nameParam)
        NameVar = nameParam
    End Property

    Public Property Get Category()
        category = categoryVar
    End Property

    Public Property Let Category(categoryParam)
    CategoryVar = categoryParam
    End Property

End Class

%>

Test.asp 

<%

    Dim CategoryVar
    Set CategoryVar = New Category

    CategoryVar.Name = "Weight"

    Dim ItemVar
    Set ItemVar = New Item

    ItemVar.Name = "kg"
    ItemVar.Category = CategoryVar

%>
<html>
    <head>
        <title>UoM Componet Testing</title>
    </head>
    <body>
        <%= ItemVar.Name %><br/>
    </body>
</html>

При запуске этого кода я обнаружил некоторую проблему. Ошибка:

Среда выполнения Microsoft VBScript (0x800A01B6) Объект не поддерживает это свойство или метод: 'CategoryVar' ".

Как это объяснить? Пожалуйста, помогите мне.

5
задан zanhtet 9 January 2012 в 09:54
поделиться