asp 클래스 사용하기

클래스 생성

<%

    Class Counter

    

        '생성자

        Private Sub Class_Initialize()

        

        END SUB

        

        '소멸자

        Private Sub Class_Terminate()

        

        END SUB

        

        '제휴 콘텐트 갯수

        Public Function Contents()

            Dim result :  result = 10

            

            Contents = result

        End Function

        

        '새 댓글 갯수

        Public Function Comments()

            Dim result : result = 10

            

            

            Comments = result

        End Function

        

        '클래스 해제

        Sub closeCounter

       If Not counterConstructors Is Nothing Then Set counterConstructors = Nothing

        End Sub

    

    End Class

 %>

클래스 호출

<!--#include File = "class.Counter.asp"-->

<%

    Dim counterConstructors

    SET counterConstructors = NEW Counter

    

    Response.Write(counterConstructors.Contents())

    Response.Write(counterConstructors.Comments())

    

    

    Call counterConstructors.closeCounter

%>