程序代码
<%
'Написано Шаоюнем. Сайт: 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 (индекс)
Конечная собственность
Открытая функция Add(arrItem)
Redim Preserve 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"
Ответ. Напишите счетчик количества & "<br>"
для i=0 до arr.count-1
Response.Write arr.item(i) & "<br>"
следующий
установить arr=ничего
%>