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 的事件弱了点 最实际的好处其实是可以动态调用过程或函数