程序代码
<%
'Escrito por Shaoyun Site: www.devjs.com
Classe ArrayList
m_array privado()
m_count privado
Subclasse Privada_Initialize()
Redimensionar m_array(0)
m_contagem=0
Finalizar sub
Subclasse Privada_Terminate()
Redimensionar m_array(0)
m_contagem=0
Finalizar sub
Propriedade Pública Obter Contagem()
Contagem=m_contagem
Fim da propriedade
Propriedade pública obter item (índice)
Item=m_array(índice)
Fim da propriedade
Função pública Adicionar (arrItem)
Redim Preservar m_array(m_count)
m_array(m_count)=arrItem
m_contagem=m_contagem+1
Função final
Fim da aula
%>
使用方法如下:
程序代码
<%
dim arr: definir arr = novo ArrayList
arr.add "a": arr.add "b": arr.add "c"
Response.Write arr.count & "<br>"
para i=0 para arr.count-1
Response.Write arr.item(i) & "<br>"
próximo
definir arr = nada
%>