欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

ASP 環(huán)境下 VBS 事件應用 示例代碼

 更新時間:2007年03月24日 00:00:00   作者:  
<%
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 這個函數(shù)忘記了 今天剛好看到
寫了個簡單示例 有興趣的可以在自己的項目上應用下
不過 VBS 的事件弱了點 最實際的好處其實是可以動態(tài)調(diào)用過程或函數(shù)

相關(guān)文章

最新評論