程式碼
<%
'作者：少雲 網址：www.devjs.com
類別 ArrayList
私有 m_array()
私有 m_count
私有子類別_Initialize()
重整 m_array(0)
m_count=0
結束子
私有子類別_Terminate()
重整 m_array(0)
m_count=0
結束子
公共屬性 Get Count()
計數=m_count
結束財產
公共屬性取得項目（索引）
項目=m_array(索引)
結束財產
公共函數添加（arrItem）
Redim 保留 m_array(m_count)
m_array(m_count)=arrItem
m_count=m_count+1
結束功能
結束課程
%>
使用方法如下：
程式碼
<%
暗淡 arr ：設定 arr=new ArrayList
arr.add "a" : arr.add "b" : arr.add "c"
Response.Write arr.count & "<br>"
對於 i=0 到 arr.count-1
Response.Write arr.item(i) & "<br>"
下一個
設定 arr=無
%>