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

答案：<% 
Class TopicModel 
 Public OnView 
 Public Function Load(id) 
  IF Not(IsEvent(OnView)) Then 
   OnView(1) 
  End IF 
 End Function 
 Function IsEvent(evnet) 
  IsEvent = IsEmpty(evnet) 
 End Function 
End Class 
Sub UpdateViewCounter(value) 
 Response.Write("Counter Add "& value &" .") 
End Sub 
Dim topic : Set topic = new TopicModel 
Set topic.OnView = GetRef("UpdateViewCounter") 
topic.Load(1) 
%> 
差点把 GetRef 这个函数忘记了 今天刚好看到 
写了个简单示例 有兴趣的可以在自己的项目上应用下 
不过 VBS 的事件弱了点 最实际的好处其实是可以动态调用过程或函数 

上一个：字符批量替换程序asp服务器版
下一个：chr(9)、chr(10)、chr(13)、chr(32)、chr(34)讲解