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

时间:2022-10-01 14:40:45
  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的事件弱了点最实际的好处其实是可以动态调用过程或函数