ตอนนี้ฉันวางแผนที่จะแก้ไขและเพิ่มประสิทธิภาพระบบรายงานที่ฉันสร้างขึ้นสำหรับบริษัทของฉันในปีที่สอง โดยจะใช้ ASP เพื่อที่จะใช้งานเชิงวัตถุ คุณต้องมีคลาส
คัดลอกโค้ดดังต่อไปนี้:<%
class MyClass
Dim var 'ตัวแปรสาธารณะต้องใช้ Dim
Private var2' ตัวแปรส่วนตัวไม่จำเป็นต้องใช้
Sub sub1
response.write var2
End Sub
Private Sub sub2
response.write var
End Sub
Sub SetVar(v)
var2= สิ้นสุด
คลาส
ย่อยสิ้นสุด
Set cls = new MyClass'To create an object, use set
cls.SetVar(asd)
cls.var = 1
cls.sub1' มีการห่อหุ้มที่เข้มงวดและจะไม่แจ้งว่าไม่ได้รับอนุญาต โดยจะแจ้งโดยตรงว่าไม่รองรับแอตทริบิวต์หรือวิธีการ
%>