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 property
public function method()
end function
end class
%>
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
%>
ASP技巧