验血是什么医生:怎样编写ASP的类

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/06 14:07:40
能否列一个简单的例子。
同时在ASP程序中怎样调用这个类。

Class Page
Private vName, vID, vText

Private Sub Class_Initialize() '初始化过程

End Sub

Private Sub Class_Terminate() '类结束时运行的过程

End Sub

Public Property Get Name()'外部可以获取的属性
Name=vName
End Property

Public Property Let Name(pName)'外部可以赋予的属性
vName=pName
End Property

Public Sub write() 外部可以调用的方法
response.write vText
End Sub
End Class

'类的实例

Set gPage = new Page

类的调用
gPage.Name = "调用"

gPage.write()

类的注销

Set gPage = Nothing