<% Class myClassName Private int_ID ‘分类id ‘类初始化 Private Sub Class_Initialize() m_strError = “” End Sub ‘类释放 Private Sub Class_Terminate() m_strError = “” End Sub ‘—–读写各个属性————————— Public Property Get ID ID = int_ID End Property Public Property Let ID(intId) int_ID = intId End Propertypublic