<%
    '声明一个名为aspcn的类
    Class aspcn
    Private aspcn
    '初始化类
    Private Sub Class_Initialize
    aspcn="Hello word!<br>"
    End Sub  [转自：711网络工作室 http://www.tc711.com]

    '定义一个函数
    Public Function DoIt()
    DoIt=aspcn
    End Function

    '定义一个方法
    Public Sub QueryStr(stat)
    Response.write stat
    End Sub

    End Class
    '下面是实例演示.用到类的时候还是用来include将其包含
    Set Hi_aspcn=New aspcn ''''定义一个名为Hi_aspcn的aspcn对象实例
    response.write Hi_aspcn.DoIt
    varstr="Hello world!<br><font color=red>http://szh.59zx.com/blog</font><br>WelCome!!!"
    Hi_aspcn.QueryStr varstr %>