In questa pagina sfrutteremo l'Active Server Page per creare l'oggetto bicicletta, identificare le sue proprietà ed i suoi metodi. Per fare questa operazione dobbiamo utilizzare l'istruzione Class.
<%
Class bicicletta
public Colore
public Peso
public Costo
End Class
%>
Adesso, dopo aver definito l'oggetto genitore bicicletta generiamo una sua istanza assegnandole il nome miaBicicletta e dei valori alle sue
proprietà. Infine verrà ucciso l'oggetto creato svuotando tutto il suo contenuto.
<%
' Creazione oggetto
dim miaBicicletta
Set miaBicicleta = new bicicletta
' Impostazione proprietà
miaBicicletta.colore = "Rosso"
miaBicicletta.peso = "12 Kg"
miaBicicletta.costo = "Non Dichiarato."
'Eliminazione Oggetto
Set miaBicicleta = nothing
%>
Al nostro oggetto precedente, assegniamo adesso al suo interno un metodo
oltre alle proprietà già presenti.
<%
Class bicicletta
public Colore
public Peso
public Costo
public sub mostraFoto(nomeImmagine)
response.write "<img src=" & nomeImmagine & ">"
End
Sub
End Class
%>
Adesso per utilizzare il metodo mostraFoto dell'oggetto bicicletta
è sufficiente richiamarlo utilizzando la seguente sintassi:
<%
'Creazione oggetto
dim miaBicicletta
Set miaBicicleta = new bicicletta
' Utilizzo Metodo Interno
miaBicicletta.mostraFoto("image.gif")
'Eliminazione Oggetto
Set miaBicicleta = nothing
%>[/code]