程序代码
<%
'Écrit par le site Shaoyun : www.devjs.com
Liste de tableaux de classe
m_array privé()
m_count privé
Sous-classe privée_Initialize()
Redim m_array(0)
m_count=0
Fin du sous-marin
Sous-classe privée_Terminate()
Redim m_array(0)
m_count=0
Fin du sous-marin
Propriété publique Get Count()
Nombre=m_count
Propriété de fin
Propriété publique Obtenir l'élément (index)
Article = m_array (index)
Propriété de fin
Fonction publique Ajouter (arrItem)
Redim Préserver m_array(m_count)
m_array(m_count)=arrItem
m_count=m_count+1
Fonction de fin
Fin du cours
%>
使用方法如下：
程序代码
<%
dim arr : set arr=new ArrayList
arr.ajouter "a" : arr.ajouter "b" : arr.ajouter "c"
Réponse.Écrire arr.count & "<br>"
pour i=0 à arr.count-1
Réponse.Écrire arr.item(i) & "<br>"
suivant
définir arr = rien
%>