<%
Class Demo '聲明一個名爲Demo的類
Public jordan
Private Sub Class_Initialize'初始化類
jordan="My Name is jordan."
End Sub
Private Sub Class_Terminate()'類的結束
End Sub
Public Property get YName'YName函數是獲得jordan的值
YName=jordan
End Property
public property let MName(x)'MName函數是設置jordan屬性的值
jordan=x
end property
End Class
Set obj=New jordan '新建Demo的obj對象
obj.MName="jordan is 23"'調用MName函數,設置jordan的值
Response.Write(obj.YName)'返回YName函數的值,就是獲得jordan的值
%>
其中Get和Let的區別在於,Get是獲得jordan的值,而Let是設置
jordan的值
關鍵字“Property”,告知了編譯器如同調用屬性一樣在外部調用函數。
例如:obj.YName調用,就跟類屬性調用的方式是一樣的