程序代码
<%
'作者：少云 网址：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=无
%>