classi in vbscript

data una definizione di classe con nome class1

file: class1.asp

<%
Class class1
'================================
    ' Class Constructor / Initializer
    '================================ 
    Private Sub Class_Initialize()
'Do Nothing
    End Sub
'=========================================
    '## Class_Terminate           ##
    '## Fires during class destruction    ##
    '=========================================
    Private Sub Class_Terminate()
'Do Nothing
    End Sub
'===========================
    '## Private Class Members ##
    '===========================
    Private m_proprieta
Public Property Get proprieta()
proprieta = cstr(m_proprieta)
End Property
Public Property Let proprieta(p_Data)
m_proprieta = cstr(p_Data)
End Property
'#############  Public Functions ##############

function write()
Response.Write m_proprieta
end function
End Class
%>

ed una definizione di un’altra classe di nome class2

file: class2.asp

<%
Class class2
'================================
    ' Class Constructor / Initializer
    '================================ 
    Private Sub Class_Initialize()
'Do Nothing
    End Sub
'=========================================
    '## Class_Terminate           ##
    '## Fires during class destruction    ##
    '=========================================
    Private Sub Class_Terminate()
'Do Nothing
    End Sub
'===========================
    '## Private Class Members ##
    '===========================
    Private m_proprieta
Public Property Get proprieta()
proprieta = cstr(m_proprieta)
End Property
Public Property Let proprieta(p_Data)
m_proprieta = cstr(p_Data)
End Property
'#############  Public Functions ##############

function write()
Response.Write m_proprieta
end function
End Class
%>

è possibile usarle in una pagina ASP classic in questo modo:

<!--#include file="class1.asp"-->
<!--#include file="class2.asp"-->
<%
dim istanzaClasse1, istanzaClasse2
Set istanzaClasse1= new class1
Set istanzaClasse2= new class2
istanzaClasse1.proprieta="proprietà classe 1"
istanzaClasse2.proprieta="proprietà classe 2"
istanzaClasse1.write
Response.Write    "
"
istanzaClasse2.write
%>