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

Lascia un Commento

L'indirizzo email non verrà pubblicato. I campi obbligatori sono contrassegnati *

È possibile utilizzare questi tag ed attributi XHTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>