- <%
- ClassTopicModel
- PublicOnView
- PublicFunctionLoad(id)
- IFNot(IsEvent(OnView))Then
- OnView(1)
- EndIF
- EndFunction
- FunctionIsEvent(evnet)
- IsEvent=IsEmpty(evnet)
- EndFunction
- EndClass
- SubUpdateViewCounter(value)
- Response.Write("CounterAdd"&value&".")
- EndSub
- Dimtopic:Settopic=newTopicModel
- Settopic.OnView=GetRef("UpdateViewCounter")
- topic.Load(1)
- %>
差点把GetRef这个函数忘记了今天刚好看到
写了个简单示例有兴趣的可以在自己的项目上应用下
不过VBS的事件弱了点最实际的好处其实是可以动态调用过程或函数