程序代码
<%
'Geschrieben von Shaoyun Website:www.devjs.com
Klasse ArrayList
Privates m_array()
Privater m_count
Private Sub Class_Initialize()
Redim m_array(0)
m_count=0
Sub beenden
Private Sub Class_Terminate()
Redim m_array(0)
m_count=0
Sub beenden
Öffentliches Eigentum Get Count()
Anzahl=m_count
End-Eigenschaft
Public Property Get Item(index)
Item=m_array(index)
End-Eigenschaft
Öffentliche Funktion Add(arrItem)
Redim Preserve m_array(m_count)
m_array(m_count)=arrItem
m_count=m_count+1
Funktion beenden
Unterricht beenden
%>
使用方法如下:
程序代码
<%
dim arr: set arr=new ArrayList
arr.add „a“ : arr.add „b“ : arr.add „c“
Response.Write arr.count & „<br>“
für i=0 bis arr.count-1
Response.Write arr.item(i) & "<br>"
nächste
setze arr=nichts
%>