asp Property 实例

Class myClass1
Public a1,a2
Public Property Get a3(ByVal a5)
a3=a5＆" good"
End Property
End Class

Dim x
Set x=New myClass1
response.Write("x.a1+x.a2="＆x.a3("中国")＆"〈br〉")
x.a1=1
x.a2=2
Response.Write("x.a1="＆x.a1＆"〈br〉")
Response.Write("x.a2="＆x.a2＆"〈br〉")
运行结果为：
x.a1+x.a2=中国 good
x.a1=1
x.a2=2
对属性只读



Class myClass1
Public a1,a2
Public Property Let a3(ByVal a5)
a3=a5 ＆ " good"
a1=a5
End Property
End Class