服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - ASP环境下VBS事件应用示例代码

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

2019-10-17 10:10asp代码网 ASP教程

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

延伸 · 阅读

精彩推荐