Copy code

<%
Class C_UserList
    Function Add(User)
        Dim temp,i
        If IsArray(Application("UserList")) Then
            temp = Application("UserList")
            For i = LBound(temp) to UBound(temp) step 1
                If temp(i) = User Then Exit Function
            Next
            ReDim Preserve temp(UBound(temp) + 1)
            temp(UBound(temp)) = (User)
        Else
            ReDim Preserve temp(1)
            temp(1) = User
        End if
        Application("UserList") = temp
    End Function
   
    Function Del(User)
        Dim temp,i,j
        If IsArray(Application("UserList")) Then
            temp = Application("UserList")
            For i = LBound(temp) to UBound(temp) step 1
                If temp(i) = User Then
                    For j = i to UBound(temp) - 1 step 1
                        temp(j) = temp(j + 1)
                    Next
                    ReDim Preserve temp(UBound(temp) - 1)
                    Exit For
                End if
            Next

        Else
            temp = ""
        End if
        Application("UserList") = temp
    End Function
   
    Function Show(iCount)
        Dim temp,i,str
        temp = Application("UserList")
        If IsArray(temp) Then
            if IsNumeric(iCount) And iCount >= LBound(temp) And iCount <= UBound(temp) Then
                str = temp(iCount)
            Else
                For i = LBound(temp) to UBound(temp) step 1
                    If i <> LBound(temp) Then str = str & "<br>"
                    str = str & temp(i)
                Next
            End if
        Else
            str = temp
        End if
        Show = str
    End Function
End Class
%>