程序代码
<%
'Escrito por Shaoyun Sitio:www.devjs.com
Lista de matrices de clases
m_array privado()
m_count privado
Subclase privada_Initialize()
Redimificar m_array(0)
m_count=0
Subtítulo final
Subclase privada_Terminate()
Redimificar m_array(0)
m_count=0
Subtítulo final
Propiedad pública Obtener recuento()
Recuento = m_recuento
Propiedad final
Propiedad pública Obtener artículo (índice)
Elemento = m_array (índice)
Propiedad final
Agregar función pública (arrItem)
Redim Preservar m_array(m_count)
m_array(m_count)=arrItem
m_cuenta=m_cuenta+1
Función final
Fin de clase
%>
使用方法如下：
程序代码
<%
dim arr: establecer arr = nueva ArrayList
arr.añadir "a" : arr.añadir "b" : arr.añadir "c"
Respuesta.Escribir arr.count & "<br>"
para i=0 a arr.count-1
Respuesta.Escribir arr.item(i) & "<br>"
próximo
establecer arr=nada
%>