程序代码
-
'เขียนโดยเว็บไซต์ Shaoyun: www.devjs.com
คลาส ArrayList
m_array() ส่วนตัว
m_count ส่วนตัว
Class_Initialize ส่วนตัว ()
ทำซ้ำ m_array(0)
ม._นับ=0
จบหมวดย่อย
Class_Terminate ส่วนตัวย่อย ()
ทำซ้ำ m_array(0)
ม._นับ=0
จบหมวดย่อย
ทรัพย์สินสาธารณะรับการนับ()
นับ=m_count
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะรับรายการ (ดัชนี)
รายการ=m_array(ดัชนี)
สิ้นสุดคุณสมบัติ
เพิ่มฟังก์ชั่นสาธารณะ (arrItem)
Redim รักษา m_array(m_count)
m_array(m_count)=arrItem
m_count=m_count+1
ฟังก์ชันสิ้นสุด
จบคลาส
-
使用方法如下：
程序代码
-
dim arr : set arr=new ArrayList
arr.add "a" : arr.add "b" : arr.add "c"
Response.เขียน arr.count & "<br>"
สำหรับ i=0 ถึง arr.count-1
Response.เขียน arr.item(i) & "<br>"
ต่อไป
ตั้งค่า arr=nothing
-