class - 用于跟踪员工和绩效指标的经典 asp/vbscript 类

Question

我正在尝试创建一个经典的 asp/vbscript 类，它可以让我轻松管理少量员工（30-40）以及与这些员工相关的一些指标，每个指标大约 14 个。我已经在网上完成了一些教程，但不太明白我应该如何进行。到目前为止我所拥有的如下。不多，基本上我觉得只能把员工加到班上的字典里了，但是不知道从这里往哪里走。

class iagent
    private di_agents
    private ar_metrics
    private pri_agent_counter

    Public function add_agent(uuid)
        di_agents.Add uuid, pri_agent_counter
        pri_agent_counter=pri_agent_counter+1
    end function

    private sub Class_initialize
        pri_agent_counter=1
        dim ar_metrics(14, 5)
        set di_agents = CreateObject("Scripting.Dictionary")
    end sub

end class

Answer 1

您拥有的课程只是字典的包装器。您是在谈论创建一个代表员工的类吗？

Class Employee
  Public Name
  Public Age
  Public Phone
  'other properties
End Class

然后你可以像这样实例化 Employee 并设置你的属性

Set e = New Employee
e.Name = "Some name"

然后，您可以将您的 Employee 实例存储在字典中，可能与 ID 配对：

Set d = CreateObject("Scripting.Dictionary")
Call d.Add(uuid, e)

但是，您最好为此使用数据库并使用 ASP/VBS 提取记录...除非这只是一个练习