ASP 环境下 VBS 事件应用 示例代码
2018-09-06 11:13
阅读：599
<%
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的事件弱了点最实际的好处其实是可以动态调用过程或函数
评论
亲，登录后才可以留言！