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 약 하 다 가장 실제 적 인 장점 은 사실 동적 호출 과정 이나 함수 이다.

좋은 웹페이지 즐겨찾기