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