<%
Classe MyClassName
ID de categoria privado INT_ID '
'Inicialização da classe
Sub -classe privado_initialize ()
M_STERROR = ""
Final sub
'Liberação da classe
Sub -classe particular ()
M_STERROR = ""
Final sub
'----- Leia e escreva vários atributos ---------------------------------------------------------------------------------------------------------------
Propriedade pública Obtenha id
Id = int_id
Propriedade final
Propriedade pública Let ID (INTID)
int_id = intid
Propriedade final
Método da função pública ()
Função final
Classe final
%>