<%
Kelas myclassName
ID Kategori Int_id Pribadi
'Inisialisasi kelas
Private sub class_initialize ()
m_strerror = ""
Akhir sub
'Rilis Kelas
Private Sub Class_Terminate ()
m_strerror = ""
Akhir sub
'----- Baca dan tulis berbagai atribut -------------------------------------------------------------------------------------------------------------
Properti Publik Dapatkan ID
Id = int_id
Akhir properti
Properti Publik Let Id (Intid)
int_id = inti
Akhir properti
metode fungsi publik ()
Fungsi akhir
Kelas akhir
%>