تعريف المصفوفة
DimMyArray
MyArray = صفيف (1,5,123,12,98)
مجموعة قابلة للتوسيع
ديميأراي ()
لأني = 0 إلى 10
ReDim الحفاظ على MyArray(i)
MyArray(i)=i
التالي
يقسم سلسلة ويعيد مجموعة من النتائج المقسمة
DimMyArray
MyArray = سبليت(tempcnt,chr(13)&chr(10))
لأنني = Lbound(MyArray) إلى Ubound(MyArray)
Response.Write MyArray(I) & <br>
التالي
وظيفة فرز المصفوفة
فرز الدالة (اري)
KeepChecking = صحيح
افعل ذلك حتى KeepChecking = FALSE
KeepChecking = خطأ
لأنني = 0 إلى UBound(ary)
إذا كنت = UBound(ary) ثم قم بالخروج لـ
إذا ary(I) > ary(I+1) ثم
القيمة الأولى = آري (I)
القيمة الثانية = آري (I+1)
آري (I) = القيمة الثانية
آري(I+1) = القيمة الأولى
KeepChecking = صحيح
نهاية إذا
التالي
حلقة
فرز = آري
وظيفة النهاية
مثال على تطبيق دالة فرز المصفوفات
DimMyArray
MyArray = صفيف (1,5,123,12,98)
MyArray = فرز (MyArray)
لأنني = Lbound(MyArray) إلى Ubound(MyArray)
Response.Write MyArray(I) & <br>
التالي
استخدام المصفوفات في التطبيق والجلسة
التطبيق.القفل
التطبيق (StoredArray) = MyArray
التطبيق.فتح
LocalArray = التطبيق (StoredArray)
الكتابة فوق المصفوفة في التطبيق
التطبيق.القفل
التطبيق (StoredArray) = LocalArray
التطبيق.فتح
استخدام الجلسة هو نفس التطبيق
استيراد البيانات من قاعدة البيانات إلى المصفوفة
DimMyArray
الحصول على كافة السجلات
MyArray = RS.GetRows
احصل على أول 10 سجلات
MyArray = RS.GetRows(10)
للصف = 0 إلى UBound(MyArray, 2)
للعمود = 0 إلى UBound(MyArray, 1)
الاستجابة.اكتب (عمود، صف) و<br>
التالي
التالي
'***************************************
'للحصول على خوارزمية فقاعات asp
'***************************************
فرز الدالة (اري)
خافت KeepChecking، I، FirstValue، SecondValue
KeepChecking = صحيح
افعل ذلك حتى KeepChecking = FALSE
KeepChecking = خطأ
لأنني = 0 إلى UBound(ary)
إذا كنت = UBound(ary) ثم قم بالخروج لـ
إذا ary(I) > ary(I+1) ثم
القيمة الأولى = آري (I)
القيمة الثانية = آري (I+1)
آري (I) = القيمة الثانية
آري(I+1) = القيمة الأولى
KeepChecking = صحيح
نهاية إذا
التالي
حلقة
فرز = آري
وظيفة النهاية
معرف خافت، ArrayID، Myarray، M
المعرف=55,48,78,10,90
معرف الصفيف = الانقسام (المعرف،،)
Myarray=فرز(ArrayID)
'اختبار الفرز
بالنسبة لـ M=0 إلى Ubound(Myarray)
Response.Write Myarray(M) & <br> & vbCRLF
التالي
'بالطبع يمكنك أيضًا استخدام ما يلي،
خافت Myarray
Myarray=صفيف(12,10,25,78,45)
Myarray=فرز(ArrayID)
'اختبار الفرز
بالنسبة لـ M=0 إلى Ubound(Myarray)
Response.Write Myarray(M) & <br> & vbCRLF
التالي
'اختبار الفرز