拍拍尘土

<%
Class MyClass

  '************************************
  '申明私有和公有变量
  '************************************
  
  Private x
  'public y
  
  
  '************************************
  '定义属性部分
  '************************************
  
  '设置属性
  Public Property Let myX(xValue)
    x=xValue
  End Property
  
  '获取属性
  Public Property Get myX
    myX=x
  End Property
  

  '************************************
  '定义方法和函数部分
  '************************************

  '-------------------------------
  '类构造方法
  Private Sub class_Initialize()
    '处理语句
  End Sub

  '-------------------------------
  '类析构方法
  Private Sub class_terminate()
    '处理语句
  End Sub
  
    
  
  '-------------------------------
  '定义一个自定义函数
  Public Function MyFun(a,b)
    '处理语句
    
    'me.MySub("My test...") '用me代表对象本身,类似this
    'MyFun = 。。。
  End Function

  '-------------------------------
  '定义一个自定义方法
  Public sub MySub(a)
    '处理语句
    'Response.write a
  End Sub

End Class
%>

<%
             Dim class1
             Set class1 = New MyClass
          
           '处理语句

           Set class1 = Nothing
%>