Определение массива
DimMyArray
МойМассив = Массив(1,5,123,12,98)
Расширяемый массив
ДимМойАррай()
для я = от 0 до 10
ReDim Сохранение MyArray(i)
MyArray(i)=я
следующий
Разбивает строку и возвращает массив результатов разделения.
DimMyArray
MyArray = Split(tempcnt,chr(13)&chr(10))
Для I = Lbound(MyArray) до Ubound(MyArray)
Response.Write MyArray(I) & <br>
Следующий
Функция сортировки массива
функция Сортировка(арная)
KeepChecking = ИСТИНА
Делать, пока KeepChecking = FALSE
KeepChecking = ЛОЖЬ
Для I = 0 до UBound(ary)
Если I = UBound(ary), то выйти за
Если ary(I) > ary(I+1) Тогда
ПервоеЗначение = ary(I)
ВтороеЗначение = ary(I+1)
ary(I) = Второе значение
ary(I+1) = ПервоеЗначение
KeepChecking = ИСТИНА
Конец, если
Следующий
Петля
Сортировка = ари
Конечная функция
Пример применения функции сортировки массива
DimMyArray
МойМассив = Массив(1,5,123,12,98)
МойМассив = Сортировать(МойМассив)
Для I = Lbound(MyArray) до Ubound(MyArray)
Response.Write MyArray(I) & <br>
Следующий
Использование массивов в приложении и сеансе
Приложение.Блокировка
Приложение(StoredArray) = MyArray
Приложение.Разблокировка
LocalArray = Приложение (StoredArray)
Перезаписать массив в приложении
Приложение.Блокировка
Приложение(StoredArray) = LocalArray
Приложение.Разблокировка
Использование сеанса такое же, как и использование приложения.
Импортировать данные из базы данных в массив
DimMyArray
Получить все записи
MyArray = RS.GetRows
Получите первые 10 записей
МойАррай = RS.GetRows(10)
Для строки = 0 To UBound(MyArray, 2)
Для col = 0 To UBound(MyArray, 1)
Response.Write (столбец, строка) & <br>
Следующий
Следующий
'*********************************
'Для алгоритма барботирования asp
'*********************************
Функция Сортировка(арная)
Тусклый KeepChecking,I,FirstValue,SecondValue
KeepChecking = ИСТИНА
Делать, пока KeepChecking = FALSE
KeepChecking = ЛОЖЬ
Для I = 0 до UBound(ary)
Если I = UBound(ary), то выйти за
Если ary(I) > ary(I+1) Тогда
ПервоеЗначение = ary(I)
ВтороеЗначение = ary(I+1)
ary(I) = Второе значение
ary(I+1) = ПервоеЗначение
KeepChecking = ИСТИНА
Конец, если
Следующий
Петля
Сортировка = ари
Конечная функция
dim ID, ArrayID, Myarray, M
ID=55,48,78,10,90
ArrayID=split(ID,,)
Myarray=Сортировка(ArrayID)
'Сортировка теста
Для M=0 в Ubound(Myarray)
Response.Write Myarray(M) & <br> & vbCRLF
Следующий
'Конечно, вы также можете использовать следующее:
Дим Мьяррей
Моймассив=Массив(12,10,25,78,45)
Myarray=Сортировка(ArrayID)
'Сортировка теста
Для M=0 в Ubound(Myarray)
Response.Write Myarray(M) & <br> & vbCRLF
Следующий
'Сортировка теста