ASP 环境下 VBS 事件应用 示例代码
摘要：差点把GetRef这个函数忘记了今天刚好看到写了个简单示例有兴趣的可以在自己的项目上应用下不过VBS的事件弱了点最实际的好处其实是可以动态调...
<%
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的事件弱了点最实际的好处其实是可以动态调用过程或函数
【ASP 环境下 VBS 事件应用 示例代码】相关文章：