<script language=vbscript runat=server>
class clstest
private m_strtest
private sub class_initialize()
m_strtest = "vbscript programming is fun!"
end sub
private function privatetest(strtest)
privatetest = strreverse(strtest)
end function
public property get testproperty()
testproperty = m_strtest
end property
public property let testproperty(strtest)
m_strtest = strtest
end property
public sub test()
m_strtest = privatetest(m_strtest)
end sub
end class
dim objtest
set objtest = new clstest
response.write objtest.testproperty & "<br>"
objtest.test
response.write objtest.testproperty & "<br>"
objtest.testproperty = "objects are cool!"
response.write objtest.testproperty & "<br>"
objtest.test
response.write objtest.testproperty & "<br>"
set objtest = nothing
</script>
