Definieren Sie ein einfaches Array
Es gibt zwei Möglichkeiten, Arrays in ASP zu definieren und zu initialisieren. Sehen wir uns jeweils ein Beispiel an:
Methode eins:
MyArray = Array("Jan", "Feb", "Mär", "Apr", "Mai", "Jun", "Jul", "Aug", "Sep", "Okt", "Nov", "Dez". ")
Die Größe des Arrays wird durch die Anzahl der initialisierten Elemente bestimmt.
Methode zwei:
Kopieren Sie den Codecode wie folgt:
Dim myArray(2) 'Array-Größe angeben
myArray(0)="Jan"
myArray(1)="Feb"
Dynamische Array-Erweiterung
Kopieren Sie den Codecode wie folgt:
DIM myArray()
REDIM myArray(20) 'Definieren Sie die Array-Größe auf 20 neu
ReDim Preserve MyArray(i) 'Preserve behält die Originaldaten im Array bei
zweidimensionales Array
Beispiel:
dim MyArray(5,10) 'definiert ein zweidimensionales Array
Beispiel einer zweidimensionalen Zuordnung:
MYArray(3,3)=100
Es gibt auch eine getarnte Implementierungsmethode für zweidimensionale Arrays:
dimMyArray(5)
MyArray(0)=Array(...) 'Eindimensionales Array
MyArray(1)=Array(...)'Eindimensionales Array
...
Verwenden Sie beim Zugriff das Format MyArray(x)(y)
Array-Index
Verwenden Sie die obige Methode, um ein Array zu definieren. Der Index des ersten Elements jedes Dimensionsarrays ist 0 und der Index des letzten Elements ist die Anzahl der Elemente -1.
Sie können aber auch den Index des Arrays angeben, z. B.:
dim MyArray1(3 to 10) 'Der Index liegt zwischen 3 und 10, MyArray(3) erhält den Wert des ersten Elements
Nützliche Array-Funktionen
Ubound(Array-Name)-Funktion – gibt den Index des letzten Elements des Arrays zurück.
Lbound-Funktion (Array-Name) – gibt den Index des ersten Elements des Arrays zurück, der Standardwert ist 0.
Weitere Anwendungen:
Array-Sortierfunktion
[Code]
Funktion Sort(ary)
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
Anwendungsbeispiel für die Array-Sortierfunktion
Kopieren Sie den Codecode wie folgt:
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
Teilen Sie eine Zeichenfolge und geben Sie ein Array zurück
Kopieren Sie den Codecode wie folgt:
DimMyArray
MyArray = Split(String, Trennzeichen)
Für I = Lbound(MyArray) zu Ubound(MyArray)
Response.Write MyArray(I) & „<br>“
Nächste
Verwenden von Arrays in Anwendung und Sitzung
Anwendungssperre
Application("StoredArray") = MyArray
Anwendung.Entsperren
LocalArray = Application("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
Übergeben Sie das Array an eine andere Seite
Es gibt viele Möglichkeiten, ein Array an eine andere Seite zu übergeben. Derzeit gibt es drei Methoden:
Definieren Sie eine durch Kommas getrennte Zeichenfolge und verwenden Sie dann die Split-Funktion auf der nächsten Seite, um das Array neu zu erstellen.
Speichern Sie das Array in einer Sitzungsvariablen und rufen Sie es auf der nächsten Seite auf.
Arrays werden durch den verborgenen Bereich des Formulars geleitet, sie werden automatisch durch Kommas getrennt und dann wird die Split-Funktion verwendet, um das Array neu zu erstellen.
Die ersten beiden Methoden sind gut, aber beide sind komplizierter als die dritte. Wir werden hier nur die dritte Variante vorstellen, da sie die einfachste und effektivste ist.
1.asp:
<%
düster ich
dimmen Sie myArray(20)
für I=0 bis 20
myArray(I)="Item " & I
nächste
%>
<html>
<Körper>
<form method="post" action="2.asp">
<%
für I=0 bis ubound(myArray)
Response.write "<input type=hidden name=myArray value='" & myArray(I) & "'>"
nächste
%>
<p>
<Eingabetyp="submit">
</form>
</body>
</html>
Wir haben oben ein separates implizites Feld verwendet, um jedes Element im Array in einem Formular zu speichern. Schauen wir uns die nächste Seite an:
2.asp
<html>
<Körper>
<%
dim arrString
dimme meinArray
düster ich
arrString=request("myArray")
myArray = split(arrString,",")
für I=0 bis ubound(myArray)
Response.write "Item "&I&" = " & myArray(I) & "<br>" & vbCrLf
nächste
%>
</body>
</html>
Artikel, die Sie interessieren könnten: