ASP中的Class类

ASP中的Class类

<%
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
%>

发表评论

电子邮件地址不会被公开。 必填项已用*标注

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据