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