ASP 类 Class入门

<% 
''声明一个名为aspcn的类  
Class aspcn 
Private aspcn 
''初始化类 
Private Sub Class_Initialize 
aspcn="Aspcn Is Good!<br>" 
End Sub  
''定义一个函数 
Public Function DoIt() 
DoIt=aspcn 
End Function 
''定义一个方法 
Public Sub QueryStr(stat) 
Response.write stat 
End Sub  

End Class 

Set Hi_aspcn=New aspcn ''定义一个名为Hi_aspcn的aspcn对象实例 
response.write Hi_aspcn.DoIt 
varstr="Aspcn Is Cool!<br><font color=red>//www.jb51.net</font><br>WelCome!!!" 
Hi_aspcn.QueryStr varstr  
%>