موصى به: استخدم ASP لتحقيق وظيفة ترجمة المقالات عبر الإنترنت في بعض الأحيان أريد تقديم دعم متعدد اللغات لصفحات الويب الخاصة بنا. إنه أمر مزعج للغاية لاستخدام صفحة ويب واحدة ولغة واحدة. لحسن الحظ ، توفر Google وظائف أداة اللغة. يصف ما يلي كيفية استخدامه لتحويل صفحات الويب بين لغات متعددة. lan.htm
سؤال: كيفية إزالة أعلى ثلاثة درجات وثلاث درجات أقل باستخدام ASP؟
حل:
1. فرز الصفيف بأكمله وحذف القيم القصوى الثلاث وثلاث قيم أدنى في كلا الطرفين (المقترح من قبل الإنترنت!)
2. حدد أكبر ثلاثة أرقام وأصغر ثلاثة أرقام وحذفها! (أفكاري!)
أعتقد أن طريقتي يجب أن تكون أكثر جدوى ، لأن الرقم المراد حذفه هو فقط ثلاثة أكبر وثلاثة أصغر ، لذلك ليست هناك حاجة لفرز جميع الأرقام ، خاصة عندما يكون هناك الكثير من البيانات ، سيتم إهدار الكثير من الموارد! الأمر الذي كتبته على النحو التالي:
| ما يلي هو المحتوى المقتبس: <٪@language = vbscript codepage = 936 ٪> <٪ قاتمة ARR ARR = صفيف (91،39،46،24،14،56،31،32،56،89) استدعاء DELETEMAX (Ubound (ARR) ، 3) حذف أكبر ثلاثة أرقام! Call GetBack () 'كل رقم يسمى -1 ، ويحول أصغر رقم إلى أكبر رقم! استدعاء DELETEMAX (Ubound (ARR) ، 3) حذف أكبر ثلاثة أرقام بعد -1! استدعاء getBack () 'استعادة كل رقم بالنسبة إلى KK = 0 إلى Ubound (ARR) 'إخراج كل رقم استجابة. write (ARR (KK)) الرد. write (<br>) التالي Sub Deletemax (ARR_TOTAL ، willdelete) لـ M = 1 إلى Willdelete ل i = 0 إلى arr_total-m إذا arr (i)> arr (i 1) ثم استدعاء مبادلة (arr (i) ، arr (i 1)) إنهاء إذا التالي Redim Preserve ARR (ARR_TOTAL-M) التالي نهاية الفرعية Sub Swap (num_a ، num_b) تبديل رقمين x = num_a num_a = num_b num_b = x نهاية الفرعية subback () لـ L = 0 إلى Ubound (ARR) arr (l) = arr (l)*-1 التالي نهاية الفرعية ٪> |
هناك ثلاث برامج فرعية:
1. DELETEMAX (ARR_TOTAL ، WillDelete)
الوظيفة: حذف العديد من الأرقام الأكبر ، ARR_TOTAL: الحد الأقصى المتاح للتصفيف ، Willdelete: عدد أكبر رقم يتم حذفه.
2. المبادلة (num_a ، num_b)
الوظيفة: تبديل رقمين
3. getback ()
الوظيفة: اضرب كل عنصر من عناصر الصفيف بمقدار -1 ، وحول أصغر رقم إلى أكبر رقم!
خبرة:
لقد حاولت كيفية حذف عنصر صفيف!
قم بتطبيق بيانات Redim و PROSER ، مثل:
| ما يلي هو المحتوى المقتبس: Dim A () redim a (10) "أريد حذف العنصر السادس أ (5) لـ n = 5 إلى ubund (a) -1 a (n) = a (n 1) التالي Redim Preserve A (Ubund (A) -1) |
يمكن إكمال الرمز أعلاه. إذا كنت لا تصدق ذلك ، حاول ...
مشاركة: برنامج ASP Basic Tutorial: مكونات أخرى شائعة الاستخدام من ASP عندما تكتب تطبيقات من جانب الخادم باستخدام ASP ، يجب عليك الاعتماد على مكونات ActiveX إلى وظائف تطبيقات الويب القوية ، مثل: تحتاج إلى الاتصال بقاعدة البيانات ، وتشغيل قاعدة البيانات عبر الإنترنت ، إلخ.