<%
Classe myClassName
ID de catégorie Int_id privé
'Initialisation de la classe
Private Sub class_Initialize ()
m_streror = ""
Sub-Sub
'Release de classe
Private Sub class_termiate ()
m_streror = ""
Sub-Sub
'----- Lisez et écrivez divers attributs -------------------------------------------------------------------------------------------------------------
Propriété publique Obtenez ID
Id = int_id
Propriété finale
Propriété publique Let ID (Intid)
int_id = intid
Propriété finale
Méthode de la fonction publique ()
Fonction finale
Classe finale
%>