ASP 环境下 VBS 事件应用 示例代码


            <% Class TopicModel  Public OnView  Public Function Load(id)   IF Not(IsEvent(OnView)) Then    OnView(1)   End IF  End Function  Function IsEvent(evnet)   IsEvent = IsEmpty(evnet)  End Function End Class Sub UpdateViewCounter(value)  Response.Write("Counter Add "& value &" .") End Sub Dim topic : Set topic = new TopicModel Set topic.OnView = GetRef("UpdateViewCounter") topic.Load(1) %> 差点把 GetRef 这个函数忘记了 今天刚好看到 写了个简单示例 有兴趣的可以在自己的项目上应用下 不过 VBS 的事件弱了点 最实际的好处其实是可以动态调用过程或函数