ASP/VBScript - Class_Initialize() & Class_Terminate() เป็น Method ของ Class ที่ทำงานอัตโนมัติเมื่อมีการเรียกใช้งาน Class โดย
Class_Initialize() ทำงานอัตโนมัติเมื่อมีการ New Class ขึ้นมาใหม่ Class_Terminate() ทำงานอัตโนมัติเมื่อจบสิ้นการทำงานของ Class
Syntax
<%
Private Sub Class_Initialize()
// Statement
End Sub
Private Sub Class_Terminate()
// Statement
End Sub
%>
Sample
<html>
<head>
<title>ThaiCreate.Com ASP Class</title>
</head>
<body>
<%
Class MyClass
Private strFullName
Private strFirstName
Private strLastName
Private Sub Class_Initialize()
Response.write("<b>Welcome to MyClass</b><br>")
End Sub
'*** Let Property (รับตัวแปรจาก Properties) ***'
Public Property Let FirstName(sFirstName) '*** Property FirstName ***'
strFirstName = sFirstName
End Property
Public Property Let LastName(sLastName) '*** Property LastName ***'
strLastName = sLastName
End Property
'*** Get Property (อ่านตัวแปรจาก Property (strFirstName,strLastName) ) ***'
Public Property Get vFirstName
vFirstName = strFirstName
End Property
Public Property Get vLastName
vLastName = strLastName
End Property
'*** Method MyName ***'
Public Function MyName
strFullName = strFirstName & " " & strLastName
MyName = strFullName
End Function
'*** Method WriteMyName ***'
Public Sub WriteMyName
Response.write strFullName
Response.write "<br>" & vFirstName & " " & vLastName
End Sub
Private Sub Class_Terminate()
Response.write("<br><b>Bye Bye</b>")
End Sub
End Class
'*** New Class ***'
Dim MyCls,strMyFullName
Set MyCls = New MyClass
MyCls.FirstName = "Mr.Weerachai"
MyCls.LastName = "Nukitram"
strMyFullName = MyCls.MyName()
MyCls.WriteMyName()
Response.write("<hr>")
Response.write "strMyFullName = " & strMyFullName
%>
</body>
</html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 01
