ASP寫Class


Class ClassName
'Get
Public Property Get Message()
Message = m_sGreeting
End Property
'Set
Public Property Set Message(sMsg)
m_sGreeting = sMsg
End Property
'Initail
Private Sub Class_Initialize()
m_sGreeting = "Hello world!" & now
End Sub
'Repsonse
Public Sub Greet()
Response.Write m_sGreeting
End Sub
'Terminate
Private Sub Class_Terminate()
End Sub
End Class

'Use the class function
Dim oGreeting
'Instantiate an object of type
Set oGreeting = New ClassName
'Call
oGreeting.Greet
'set nothing release
Set oGreeting = nothing