تقدم هذه المقالة بشكل أساسي استخدام الاسترداد والحفظ في ASP لإنشاء مثيلات مصفوفة ديناميكية، كما توفر هذه المقالة أمثلة أخرى على عمليات المصفوفة في ASP.
تتمثل وظيفة REDIM في asp في تحديد طول المصفوفة ديناميكيًا
يمكن أن تظهر العبارة في المصفوفة الديناميكية فقط في الإجراء ويمكن استخدامها عدة مرات. يمكنك تغيير حجم المصفوفة وأبعادها.
شكل:
REDIM [الحفاظ على] اسم الصفيف (منخفض 1 [منخفض 2....])
يحتفظ Preserve بمحتويات المصفوفة الديناميكية (إذا لم يتم استخدامها، فسيتم فقدان كافة البيانات المخزنة حاليًا في كل مرة يتم فيها تنفيذ عبارة REDIM)
على سبيل المثال:
انسخ رمز الكود كما يلي:Dim DynArray() 'حدد المصفوفة DynArray() كمصفوفة ديناميكية
REDIM الحفاظ على DynArray(20)'تخصيص عدد من العناصر للمصفوفة
يعد هذا أمرًا مهمًا جدًا لبعض التغييرات الديناميكية في المصفوفات في البرمجة، وغالبًا ما يمكن استخدامه ومعالجته. يتمتع REDIM بفهم متعمق للكمبيوتر الثاني ويعتقد أنه من المفيد جدًا تحسين البرمجة الخاصة به.
فيما يلي بعض الأمثلة على مصفوفات ASP، بالطبع ليست جميعها مصفوفات ديناميكية.
استخدام المصفوفات في برمجة ASP:
تعريف المصفوفة:
انسخ رمز الكود كما يلي: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>
التالي
التالي
من خلال الأمثلة المذكورة أعلاه، يمكننا تعميق فهمنا للمصفوفات واستخدامها بمرونة في التطبيقات العملية.