<%

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