配列の定義
DimmyArray
myArray = array（1,5,123,12,98）
拡張アレイ
dimmyArray（）
fori = 0to10
RedimpreServeMyArray（i）
myArray（i）= i
次
文字列を分割し、分割結果の配列を返します
DimmyArray
myarray = split（tempcnt、chr（13）＆chr（10））
fori = lbound（myarray）toubound（myarray）
Respons.WriteMyArray（i）＆ "<br>"
次
配列ソート機能
function..sort（ary）
keepchecking = true
dountilkeepchecking = false
keepchecking = false
fori = 0toubound（ary）
ifi = ubound（ary）thenexitfor
ifary（i）> ary（i+1）then
firstValue = ary（i）
secondValue = ary（i+1）
ary（i）= secondValue
ary（i+1）= firstValue
keepchecking = true
endif
次
ループ
sort = ary
エンド機能..
配列ソート機能アプリケーションの例
DimmyArray
myArray = array（1,5,123,12,98）
myarray = sort（myarray）
fori = lbound（myarray）toubound（myarray）
Respons.WriteMyArray（i）＆ "<br>"
次
アプリケーションとセッションで配列を使用します
Application.Lock
Application（ "StoredArray"）= myArray
Application.UnLock
localArray = application（ "StoredArray"）
アプリケーションに配列を上書きします
Application.Lock
Application（ "StoredArray"）= localArray
Application.UnLock
セッションはアプリケーションと同じように使用されます
データベースから配列にデータをインポートします
DimmyArray
すべてのレコードを取り出します
myArray = rs.getRows
最初の10のレコードを取り出します
myArray = rs.getRows（10）
forrow = 0toubound（myarray、2）
forcol = 0toubound（myarray、1）
Response.Write（col、row）＆ "<br>"
次
次