冷眼 - 技术专栏

<%
Class Rectangle
   Private intWidth
   Private intHeight

   Public Property Let width(iWidth)
      intWidth = iWidth
      '参数验证略
   End Property

   Public Property Let height(iHeight)
      intHeight = iHeight
      '参数验证略
   End Property

   Private Sub Class_Initialize
      '类初始化代码
   End Sub

   Public Function perimeter()
      '返回矩形的周长
      getResult = 2*(intHeight + intWidth)
   End Function

   Private Sub Class_Terminate
      '类销毁时执行的代码
   End Sub

End Class


'调用类
Dim obj
Set objRectangle = new Rectangle
objRectangle.width = 10
objRectangle.height = 20
Response.Write(objRectangle.perimeter())
Set objRectangle = Nothing
%>