快捷導(dǎo)航

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

更新時(shí)間：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)
%>
差點(diǎn)把 GetRef 這個(gè)函數(shù)忘記了今天剛好看到
寫了個(gè)簡(jiǎn)單示例有興趣的可以在自己的項(xiàng)目上應(yīng)用下
不過(guò) VBS 的事件弱了點(diǎn) 最實(shí)際的好處其實(shí)是可以動(dòng)態(tài)調(diào)用過(guò)程或函數(shù)

相關(guān)文章

ASP+JS三級(jí)聯(lián)動(dòng)下拉菜單[調(diào)用數(shù)據(jù)庫(kù)數(shù)據(jù)]
ASP+JS三級(jí)聯(lián)動(dòng)下拉菜單[調(diào)用數(shù)據(jù)庫(kù)數(shù)據(jù)]...
2007-03-03
Microsoft VBScript 編譯器錯(cuò)誤錯(cuò)誤原因代碼大全
這篇文章主要介紹了Microsoft VBScript 編譯器錯(cuò)誤錯(cuò)誤原因代碼大全,需要的朋友可以參考下
2015-07-07
ASP編程實(shí)用20例
ASP編程實(shí)用20例...
2006-07-07
asp下實(shí)現(xiàn)IP限制函數(shù)代碼
asp下實(shí)現(xiàn)IP限制函數(shù)代碼...
2007-11-11
ASP 包含文件中的路徑問(wèn)題和使用單一數(shù)據(jù)庫(kù)連接文件的解決方案
全站只需要用一個(gè)數(shù)據(jù)庫(kù)連接文件的實(shí)現(xiàn)函數(shù)代碼
2009-03-03
asp #include命令
asp #include命令...
2007-09-09
ASP實(shí)現(xiàn)智能搜索實(shí)現(xiàn)代碼
asp下智能搜索功能的實(shí)現(xiàn)，方便大家學(xué)習(xí)
2008-06-06
asp磁盤緩存技術(shù)使用的代碼
系統(tǒng)包括兩個(gè)文件，其實(shí)可以合并為一個(gè)。之所以分為兩個(gè)是因?yàn)椴糠謿⒍拒浖?huì)因?yàn)槔镞吅蠪SO、XMLHTTP操作而被認(rèn)為是腳本木馬
2007-05-05
ASP下檢測(cè)圖片木馬的函數(shù)代碼
檢測(cè)ASP圖片木馬的函數(shù)。由于FSO無(wú)法讀取客戶端文件的內(nèi)容，所以只能在文件上傳到服務(wù)器后再打開文件進(jìn)行內(nèi)容檢查。
2010-09-09
SQL查詢語(yǔ)句通配符與ACCESS模糊查詢like的解決方法
我今天在寫個(gè)頁(yè)面的時(shí)候，也很郁悶，表中明明有記錄，但在ASP里就是搜索不到，原來(lái)是因?yàn)閍ccess與SQL的查詢語(yǔ)句通配符問(wèn)題不同所引起的。
2011-02-02