<%

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 Property

public Function method()

End Function

End Class

%>