声明一个名为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
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