\\ Home Page : Articolo : Stampa
Classi in vbscript
Di ac3 (del 06/02/2007 - 14:30:08, in Tech, letto 839 volte)

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