ASP类的写法
程序员文章站
2022-07-12 08:17:16
<% class myclassname private int_id '分类id '类初始化 private sub class_initialize() m_st...
<%
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
%>
上一篇: 鱼腥草烧水喝有什么功效