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

2 risposte a “classi in vbscript”

Mentions

  • acor3
  • mago28

Lascia un commento

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

Questo sito utilizza Akismet per ridurre lo spam. Scopri come vengono elaborati i dati derivati dai commenti.

Per rispondere sul tuo sito web, inserisci l'URL della tua risposta che dovrebbe contenere un link all'URL del permalink di questo post. La tua risposta verrà quindi visualizzata (possibilmente dopo la moderazione) in questa pagina. Vuoi aggiornare o rimuovere la tua risposta? Aggiorna o elimina il tuo post e inserisci nuovamente l'URL del tuo post. (Ulteriori informazioni)