程序代
<%
シャオユン著 サイト:www.devjs.com
クラス配列リスト
プライベート m_array()
プライベート m_count
プライベートサブクラス_Initialize()
m_array(0) をリディムします
m_count=0
エンドサブ
プライベートサブクラス_Terminate()
m_array(0) をリディムします
m_count=0
エンドサブ
パブリック プロパティ Get Count()
カウント=m_count
終了プロパティ
Public プロパティ Get アイテム(インデックス)
項目=m_array(インデックス)
終了プロパティ
パブリック関数 Add(arrItem)
Redim Preserve m_array(m_count)
m_array(m_count)=arrItem
m_count=m_count+1
終了機能
終了クラス
%>
使用方法は次のとおりです：
程序代コード
<%
dim arr : arr=new ArrayList を設定します
arr.add "a" : arr.add "b" : arr.add "c"
Response.Write arr.count & "<br>"
i=0 から arr.count-1 まで
Response.Write arr.item(i) & "<br>"
次
arr=何も設定しない
%>