<%
クラスmyClassName
プライベートint_id 'カテゴリID
'クラスの初期化
private sub class_initialize()
m_strerror = ""
End Sub
'クラスリリース
private sub class_terminate()
m_strerror = ""
End Sub
'-----Read and write various attributes-----------------------------------------------------------------------------------------------------------------
公共財産はIDを取得します
id = int_id
プロパティを終了します
公有財産let id(intid)
int_id = intid
プロパティを終了します
パブリック関数メソッド()
エンド関数
エンドクラス
%>