asp中如何使用类?

我们通过一个简单的例子来讲解如何在ASP中定义类并且使用它

<%
  Class intels
' 声明一个名为intels的类 
    Private intels
   ' 初始化类
    Private  Sub Class_Initialize
       intels="BHCODE!<br>"
    End Sub
Public Function DoIt()
    ' 定义一个DoIt函数
      DoIt=intels
    End Function
Public Sub QueryStr(stat)
   ' 定义QueryStr方法
      Response.write stat
    End Sub
   
  End Class
 
  Set Hi_intels=New intels '
' 定义一个名为Hi_intels的intels对象实例
 response.write Hi_intels.DoIt
  varstr="BHCODE<br><fontcolor=red>http://www.bhcode.net</font><br>欢迎您！"
  Hi_intels.QueryStr varstr 
%>