Class 类中的经典ASP arraylist属性?

Class 类中的经典ASP arraylist属性?,class,asp-classic,arraylist,Class,Asp Classic,Arraylist,如何使用classic ASP将arraylist属性添加到类中 我的例子(不起作用): 您需要在类构造函数的子例程方法函数中初始化类成员。当然,最好的是在构造函数内部 演示如何将.NET ArrayList用作自定义VBScript类的一部分的完整工作代码: <% Class MyCustomClass Private internalArrayList Private Sub Class_Initialize() Set internalArray

如何使用classic ASP将
arraylist
属性添加到类中

我的例子(不起作用):


您需要在类构造函数的子例程方法函数中初始化类成员。当然,最好的是在构造函数内部

演示如何将.NET ArrayList用作自定义VBScript类的一部分的完整工作代码:

<%
Class MyCustomClass
    Private internalArrayList

    Private Sub Class_Initialize()  
        Set internalArrayList = Server.CreateObject("System.Collections.ArrayList")
    End Sub  

    Private Sub Class_Terminate()  
        Set internalArrayList = Nothing
    End Sub  

    Public Sub AddItem(oItem)
        internalArrayList.Add(oItem)
    End Sub

    Public Function ToString()
        Dim data, x
        data = "List contains " & internalArrayList.Count & " item"
        If internalArrayList.Count<>1 Then data = data & "s"
        For x=0 To internalArrayList.Count-1
            data = data & "<br />"
            If IsObject(internalArrayList(x)) Then
                data = data & "complex object of type " & TypeName(internalArrayList(x))
            ElseIf IsArray(internalArrayList(x)) Then
                data = data & "array with " & (UBound(internalArrayList(x)) + 1) & " items"
            Else  
                data = data & internalArrayList(x)
            End If
        Next
        ToString = data
    End Function
End Class
%>

您需要在类构造函数的子例程方法函数中初始化类成员。当然,最好的是在构造函数内部

演示如何将.NET ArrayList用作自定义VBScript类的一部分的完整工作代码:

<%
Class MyCustomClass
    Private internalArrayList

    Private Sub Class_Initialize()  
        Set internalArrayList = Server.CreateObject("System.Collections.ArrayList")
    End Sub  

    Private Sub Class_Terminate()  
        Set internalArrayList = Nothing
    End Sub  

    Public Sub AddItem(oItem)
        internalArrayList.Add(oItem)
    End Sub

    Public Function ToString()
        Dim data, x
        data = "List contains " & internalArrayList.Count & " item"
        If internalArrayList.Count<>1 Then data = data & "s"
        For x=0 To internalArrayList.Count-1
            data = data & "<br />"
            If IsObject(internalArrayList(x)) Then
                data = data & "complex object of type " & TypeName(internalArrayList(x))
            ElseIf IsArray(internalArrayList(x)) Then
                data = data & "array with " & (UBound(internalArrayList(x)) + 1) & " items"
            Else  
                data = data & internalArrayList(x)
            End If
        Next
        ToString = data
    End Function
End Class
%>

经典ASP没有类的概念,所以我根本不确定这里发生了什么…但经典ASP不是其中之一…@DavidW错了。它确实有课。(classic ASP正在使用VBScript 5)classic ASP没有类的概念,所以我根本不确定这里发生了什么…但classic ASP不是其中之一…@DavidW搞错了。它确实有课。(经典ASP使用VBScript 5)
Class Foo
    Public Dummy
End Class

Dim myInstance, myFoo
Set myInstance = New MyCustomClass
myInstance.AddItem("hello")
myInstance.AddItem("world")
myInstance.AddItem(Array(1, 2, 3))

Set myFoo = New Foo
myFoo.Dummy = "just checking"
myInstance.AddItem(myFoo)

Response.Write(myInstance.ToString())