ASP design and use Class 7

Declare a class named aspcn
Class aspcn
Private aspcn
Initialization class
Private sub class_initialize
Aspcn = "aspcn is good! <Br>"
End sub
Define a function
Public Function doit ()
Doit = aspcn
End Function
Define a method
Public sub querystr (STAT)
Response. Write stat
End sub

End Class

Set hi_aspcn = new aspcn defines an aspcn object instance named hi_aspcn
Response. Write hi_aspcn.doit
Varstr = "aspcn is cool! <Br> <font color = Red> http://www.aspcn.com </font> <br> welcome !!! "
Hi_aspcn.querystr varstr