ASP环境下VBS事件应用示例代码

1. <% 
2.  
3. ClassTopicModel 
4.  
5. PublicOnView 
6.  
7. PublicFunctionLoad(id) 
8.  
9. IFNot(IsEvent(OnView))Then 
10.  
11. OnView(1) 
12.  
13. EndIF 
14.  
15. EndFunction 
16.  
17. FunctionIsEvent(evnet) 
18.  
19. IsEvent=IsEmpty(evnet) 
20.  
21. EndFunction 
22.  
23. EndClass 
24.  
25. SubUpdateViewCounter(value) 
26.  
27. Response.Write("CounterAdd"&value&".") 
28.  
29. EndSub 
30.  
31. Dimtopic:Settopic=newTopicModel 
32.  
33. Settopic.OnView=GetRef("UpdateViewCounter") 
34.  
35. topic.Load(1) 
36.  
37. %> 

差点把GetRef这个函数忘记了今天刚好看到

写了个简单示例有兴趣的可以在自己的项目上应用下

不过VBS的事件弱了点最实际的好处其实是可以动态调用过程或函数