ASP/VBScript Class ความหมาย Class คือแบบร่างที่ถูกออกแบบไว้สำหรับการ ทำงานใดทำงานหนึ่ง ในกลุ่มของคำสั่งที่เกี่ยวข้องกัน ซึ่งใน Class เองจะประกอบด้วย Method/Function หลาย ๆ Method และมี Property ที่ไว้รับตัวแปรจากภายนอก ในภาษา VBScript เองการใช้งาน Class เป็นเรื่องง่ายมาก และไม่มีความซับซ้อนเลย และสามารถทำความเข้าใจได้อย่างง่ายได้
Syntax
<%
Class Class_Name
'*** Variable ***'
Dim strVar
Dim strMyProperty
'*** Left Property ***'
Property Get MyProperty (MyProperty)
strMyProperty = MyProperty
End Property
'*** Get Property ***'
Property Get sMyProperty
sMyProperty = strMyProperty
End Property
'*** Method Function ***'
Function MyFunction
....
End Fuction
'*** Method Sub ***'
Sub MySub
....
End Sub
End Class
%>
ถ้ายังไม่เข้าลองมาดูตัวอย่างดีกว่าครับ
Sample
<html>
<head>
<title>ThaiCreate.Com ASP Class</title>
</head>
<body>
<%
Class MyClass
Private strFullName
Private strFirstName
Private strLastName
'*** 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
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 03
