Definition von Array
Dimmyarray
MyArray = Array (1,5,123,12,98)
Erweiterte Arrays
Dimmyarray ()
fei = 0to10
Redimpreservemyarray (i)
Myarray (i) = i
nächste
Teilen Sie eine Zeichenfolge auf und geben Sie eine Reihe von geteilten Ergebnissen zurück
Dimmyarray
Myarray = split (tempcnt, chr (13) & chr (10))
Fei = lbound (myarray) toubound (myarray)
Antwort.WriteMemyArray (i) & "<br>"
Nächste
Array -Sortierfunktion
Funktion..sort (ary)
Halten Sie sich an
DountilekekeepChing = false
Halten Sie sich auf
Fori = 0Toubund (Ary)
Ifi = ubound (ary) thenexitfor
Iftary (i)> ary (i+1) dann
FirstValue = ary (i)
Second Value = Ary (i+1)
Ary (i) = Second Value
ary (i+1) = FirstValue
Halten Sie sich an
Endif
Nächste
Schleife
Sort = ary
Endfunktion ..
Beispiel für die Anwendung der Array -Sortierfunktion
Dimmyarray
MyArray = Array (1,5,123,12,98)
Myarray = sort (myarray)
Fei = lbound (myarray) toubound (myarray)
Antwort.WriteMemyArray (i) & "<br>"
Nächste
Verwenden von Arrays in Anwendung und Sitzung
Application.lock
Anwendung ("StoredArray") = MyArray
Application.unlock
LocalArray = application ("StoredArray")
Überschreiben Sie Arrays in der Anwendung
Application.lock
Anwendung ("StoredArray") = localArray
Application.unlock
Die Sitzung wird genauso verwendet wie die Anwendung
Importieren Sie Daten aus der Datenbank in ein Array
Dimmyarray
Nehmen Sie alle Aufzeichnungen heraus
Myarray = rs.getrows
Nehmen Sie die ersten 10 Aufzeichnungen heraus
Myarray = rs.getrows (10)
Forrow = 0Toubund (myarray, 2)
Forcol = 0toubund (myarray, 1)
Response.write (col, row) & "<br>"
Nächste
Nächste