ASP 类 Class入门

来源:百度文库 编辑:神马文学网 时间:2024/04/29 03:05:05
<%
‘‘声明一个名为aspcn的类
Class aspcn
Private aspcn
‘‘初始化类
Private Sub Class_Initialize
aspcn="Aspcn Is Good!
"
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!
http://www.aspcn.com
WelCome!!!"
Hi_aspcn.QueryStr varstr
%>
这是很简单的一个程序,我们在其中声明了一个名为aspcn的类,建立了一个DoIt函数,一个QueryStr方法,这个程序很简单相信大家能看懂,它的显示如下:
Aspcn Is Good!
Aspcn Is Cool!
http://www.aspcn.com
WelCome!!!