<%
Class mzwu
Public url
End class
%>例二：
<%
Class mzwu
Private m_url
Public property let url(value)
m_url = value
End property
Public property get url
url = m_url
End property
End class
%>上面两个例子都给mzwu类定义一个属性url，例二的定义方法和例一相比具有许多的优势：
1.可以设定属性性质：只读、只写或可读可写
. 只有get，则该属性只能读
. 只有let，则该属性只能写
. 有get和let，则该属性可读可写
2.可以给属性值加范围
Public property let url(value)
If instr(value,"[i]http[/i]://")<>0 then
p_url = value
End if
End property 这样url属性值必须包含http://。
评论（0）
暂无评论。