Рекомендуется: используйте ASP, чтобы реализовать функцию перевода статьи в Интернете Иногда я хочу оказать многоязычную поддержку для наших веб-страниц. Слишком трудно использовать одну веб -страницу для одного языка. К счастью, Google предоставляет функции языковых инструментов. Ниже описывается, как использовать его для преобразования веб -страниц между несколькими языками. lan.htm
Вопрос: Как удалить три самых высоких баллов и три самых низких баллов с помощью ASP?
Решение:
1. Сортируйте весь массив и удалите три максимальных значения и три минимальных значения на обоих концах (предложено другим сетизеном!)
2. Выберите три самых больших числа и три наименьших числа и удалите их! (Мои мысли!)
Я думаю, что мой метод должен быть более осуществимым, потому что число, которое нужно удалить, составляет всего три крупнейшего и три наименьшего, поэтому нет необходимости сортировать все цифры, особенно когда много данных, много ресурсов будет потрачено впустую! Заказ, который я написал, выглядит следующим образом:
| Ниже приведено цитируемое содержание: <%@Language = VBScript CodePage = 936%> <% тусклый обр Arr = массив (91,39,46,24,14,56,31,32,56,89) Позвоните DeleteMax (Ubound (ARR), 3) 'Удалить три самых больших числа! Вызов getback () 'Каждый номер называется -1, превращая наименьшее число в самый большой номер! Вызовите DeleteMax (Ubound (ARR), 3) 'Удалить три самых больших числа после -1! Call getback () 'восстановить каждый номер Для KK = 0 к Ubound (ARR) 'Вывод каждого номера Response.write (arr (kk)) Response.write (<br>) следующий sub deletemax (arr_total, willdelete) для m = 1 к WillDelete для i = 0 до arr_total-m Если arr (i)> arr (i 1), тогда Call Swap (arr (i), arr (i 1)) конец, если следующий Redim reserve arr (arr_total-m) следующий Конец суб Sub Swap (num_a, num_b) 'заменять два числа x = num_a num_a = num_b num_b = x Конец суб Becond getback () для l = 0 до ubound (arr) ARR (L) = ARR (L)*-1 следующий Конец суб %> |
Есть три подпрограммы:
1. deletemax (arr_total, willdelete)
Функция: Удалить несколько самых больших чисел, ARR_TOTAL: максимально доступный подпиток массива, WillDelete: количество наибольшего числа, которое будет удалено.
2. Swap (num_a, num_b)
Функция: обмениваться двумя числами
3. Getback ()
Функция: Умножьте каждый элемент массива на -1 и поверните наименьшее число в самое большое число!
Опыт:
Я попытался удалить элемент массива!
Умно применить заявления REDIM и сохранить, такие как:
| Ниже приведено цитируемое содержание: Dim a () Redim A (10) 'Я хочу удалить шестой элемент A (5) для n = 5 до ubund (a) -1 A (n) = a (n 1) следующий Redim сохранить (ubund (a) -1) |
Приведенный выше код может быть завершен. Если вы не верите в это, попробуйте ...
Поделиться: ASP Basic Учебное пособие: другие часто используемые компоненты ASP Когда вы пишете приложения на стороне сервера с использованием ASP, вы должны полагаться на компоненты ActiveX для мощных функций веб-приложений, таких как: вам необходимо подключиться к базе данных, эксплуатировать базу данных онлайн и т. Д. 1. Компонент возможностей браузера хорошо известен и не имеет