هذا هو الحال
<%
'كتبه موقع شاويون: www.devjs.com
قائمة صفيف الفئة
م_صفيف خاص ()
م_الخاص
فئة فرعية خاصة_Initialize()
استرداد m_array(0)
م_العدد=0
نهاية الفرعية
فئة فرعية خاصة_Terminate()
استرداد m_array(0)
م_العدد=0
نهاية الفرعية
الحصول على الملكية العامة ()
العدد=m_count
نهاية الملكية
الملكية العامة احصل على العنصر(الفهرس)
العنصر=m_array(الفهرس)
نهاية الملكية
إضافة الوظيفة العامة (arrItem)
استرداد الاحتفاظ m_array(m_count)
m_array(m_count)=arrItem
m_count=m_count+1
وظيفة النهاية
نهاية الفصل
%>
المنتج
: أفضل ما في الأمر
<%
dim arr : set arr=new ArrayList
arr.add "أ" : arr.add "ب" : arr.add "ج"
الاستجابة.اكتب arr.count & "<br>"
لـ i=0 إلى arr.count-1
Response.Write arr.item(i) & "<br>"
التالي
تعيين آر = لا شيء
%>