ASP类的写法


            <% 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 Function method() End Function End Class%>