Pubblicato il di ac3

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
%>

qui la demo funzionante e lo zip con i file

Potrebbe interessarti anche:

e' mio il mioa701
filtro gmail per visualizzare solo i messagi non letti
quasi quasi mi riscrivo il firmware

2 risposte a “classi in vbscript”

Lascia un commento

Il tuo indirizzo email non sarà pubblicato. I campi obbligatori sono contrassegnati *

Questo sito usa Akismet per ridurre lo spam. Scopri come i tuoi dati vengono elaborati.