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 的事件弱了點 最實際的好處其實是可以動態調用過程或函數