<% ''声明一个名为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>http://www.aspcn.com</font><br>WelCome!!!" Hi_aspcn.QueryStr varstr