تعريف الصفيف
ديمياراي
myarray = صفيف (1،5،123،12،98)
صفائف ممتدة
Dimmyarray ()
fori = 0to10
redimpreservemyarray (ط)
myarray (i) = i
التالي
تقسيم سلسلة وإرجاع مجموعة من نتائج الانقسام
ديمياراي
myarray = split (tempcnt ، chr (13) & chr (10))
fori = lbound (myarray) toubound (myarray)
الرد. writemyarray (i) و "<br>"
التالي
وظيفة فرز الصفيف
وظيفة .. sort (آري)
keepchecking = صحيح
dountilkeepChecking = خطأ
KeepCheCking = خطأ
fori = 0toubound (آري)
ifi = ubound (ary) therexitfor
ifary (i)> ary (i+1) ثم
FirstValue = ary (i)
SecondValue = ary (i+1)
ary (i) = SecondValue
ary (i+1) = firstvalue
keepchecking = صحيح
Endif
التالي
حلقة
فرز = آري
الوظيفي ..
مثال على تطبيق وظيفة فرز الصفيف
ديمياراي
myarray = صفيف (1،5،123،12،98)
myarray = فرز (myarray)
fori = lbound (myarray) toubound (myarray)
الرد. writemyarray (i) و "<br>"
التالي
استخدام المصفوفات في التطبيق والجلسة
application.lock
التطبيق ("storedarray") = myarray
application.unlock
localarray = application ("storedarray")
صفائف الكتابة في التطبيق
application.lock
التطبيق ("storedarray") = localarray
application.unlock
يتم استخدام الجلسة بنفس التطبيق
استيراد البيانات من قاعدة البيانات إلى صفيف
ديمياراي
أخرج جميع السجلات
myarray = rs.getrows
أخرج السجلات العشرة الأولى
myarray = rs.getrows (10)
forrow = 0toubound (myarray ، 2)
forcol = 0toubound (myarray ، 1)
Response.write (col ، row) و "<br>"
التالي
التالي