Array-Definition
DimMyArray
MeinArray = Array(1,5,123,12,98)
Erweiterbares Array
DimMyArray()
für i = 0 bis 10
ReDim Preserve MyArray(i)
MyArray(i)=i
nächste
Teilt eine Zeichenfolge und gibt ein Array von Teilungsergebnissen zurück
DimMyArray
MyArray = Split(tempcnt,chr(13)&chr(10))
Für I = Lbound(MyArray) zu Ubound(MyArray)
Response.Write MyArray(I) & <br>
Nächste
Array-Sortierfunktion
Funktion Sort(ary)
KeepChecking = TRUE
Tun bis KeepChecking = FALSE
KeepChecking = FALSCH
Für I = 0 bis UBound(ary)
Wenn I = UBound(ary), dann Exit For
Wenn ary(I) > ary(I+1) Dann
FirstValue = ary(I)
SecondValue = ary(I+1)
ary(I) = SecondValue
ary(I+1) = Erster Wert
KeepChecking = TRUE
Ende wenn
Nächste
Schleife
Sortieren = ary
Funktion beenden
Anwendungsbeispiel für die Array-Sortierfunktion
DimMyArray
MeinArray = Array(1,5,123,12,98)
MyArray = Sort(MyArray)
Für I = Lbound(MyArray) zu Ubound(MyArray)
Response.Write MyArray(I) & <br>
Nächste
Verwenden von Arrays in Anwendung und Sitzung
Anwendungssperre
Anwendung(StoredArray) = MyArray
Anwendung.Entsperren
LocalArray = Anwendung(StoredArray)
Array in der Anwendung überschreiben
Anwendungssperre
Anwendung(StoredArray) = LocalArray
Anwendung.Entsperren
Die Sitzungsnutzung ist dieselbe wie die der Anwendung
Importieren Sie Daten aus der Datenbank in das Array
DimMyArray
Holen Sie sich alle Datensätze
MyArray = RS.GetRows
Holen Sie sich die ersten 10 Datensätze
MyArray = RS.GetRows(10)
Für Zeile = 0 To UBound(MyArray, 2)
Für col = 0 To UBound(MyArray, 1)
Response.Write (col, row) & <br>
Nächste
Nächste
'*********************************
'Für den ASP-Bubbling-Algorithmus
'*********************************
Funktion Sort(ary)
Dim KeepChecking,I,FirstValue,SecondValue
KeepChecking = TRUE
Tun bis KeepChecking = FALSE
KeepChecking = FALSE
Für I = 0 bis UBound(ary)
Wenn I = UBound(ary), dann Exit For
Wenn ary(I) > ary(I+1) Dann
FirstValue = ary(I)
SecondValue = ary(I+1)
ary(I) = SecondValue
ary(I+1) = Erster Wert
KeepChecking = TRUE
Ende wenn
Nächste
Schleife
Sortieren = ary
Funktion beenden
dim ID,ArrayID,Myarray,M
ID=55,48,78,10,90
ArrayID=split(ID,,)
Myarray=Sort(ArrayID)
'Sortierungstest
Für M=0 bis Ubound(Myarray)
Response.Write Myarray(M) & <br> & vbCRLF
Nächste
„Natürlich können Sie auch Folgendes verwenden:
Dim Myarray
Myarray=Array(12,10,25,78,45)
Myarray=Sort(ArrayID)
'Sortierungstest
Für M=0 bis Ubound(Myarray)
Response.Write Myarray(M) & <br> & vbCRLF
Nächste
'Sortierungstest