Я сделал что-то подобное для имитации свойств, но они являются функциями. Я не уверен, как сделать свойства в VBScript. Помогите кому-нибудь?
Class Fubar
Private m_var
Public Function set_one_type(stringtype)
m_var = stringtype
End Function
Public Function get_one_type
get_one_type = m_var
End Function
Public Function myBox(strMsg)
myBox = "Hej " & strMsg
End Function
End Class
И вы используете это так:
Set myFubar = new Fubar
myFubar.set_one_type("Volvo")
Response.Write(myFubar.get_one_type())