أخطط الآن لإعادة تعديل وتحسين نظام التقارير الذي أنشأته لشركتي في سنتي الثانية، وهو يستخدم ASP، ولحسن الحظ فإن VBS يدعمه.
انسخ الكود كما يلي:<%
class MyClass
Dim var 'المتغيرات العامة يجب أن تستخدم Dim
Private var2' لا تتطلب المتغيرات الخاصة
استجابةSub sub1.write
var2
End Sub
Private Sub2
Response.write var
End Sub
SetVar(v)
var2= v
End Sub
end class
Set cls = new MyClass'لإنشاء كائن، استخدم set
cls.SetVar(asd)
cls.var = 1
يحتوي cls.sub1' على تغليف قوي ولن يطالب بعدم وجود إذن وسيشير بشكل مباشر إلى أن السمات أو الأساليب غير مدعومة
%>