Empfohlen: Verwenden Sie ASP, um die Funktion der Online -Artikelübersetzung zu realisieren Manchmal möchte ich mehrsprachige Unterstützung für unsere Webseiten bieten. Es ist zu problematisch, eine Webseite für eine Sprache zu verwenden. Glücklicherweise bietet Google Sprach -Toolfunktionen. Im Folgenden wird beschrieben, wie Sie es verwenden, um Webseiten zwischen mehreren Sprachen zu konvertieren. Lan.htm
Frage: Wie entfernt ich die drei höchsten und drei niedrigsten Punktzahlen mit ASP?
Lösung:
1. Sortieren Sie das gesamte Array und löschen Sie die drei Maximalwerte und drei Mindestwerte an beiden Enden (vorgeschlagen von einem anderen Internetnutzer!)
2. Wählen Sie die drei größten Zahlen und die drei kleinsten Zahlen aus und löschen Sie sie! (Meine Gedanken!)
Ich denke, meine Methode sollte machbarer sein, da die zu gelöschte Anzahl nur drei größte und drei kleinste beträgt. Es besteht also nicht erforderlich, alle Zahlen zu sortieren, insbesondere wenn viele Daten vorhanden sind, werden viele Ressourcen verschwendet! Die Bestellung, die ich schrieb, lautet wie folgt:
| Das Folgende ist der zitierte Inhalt: <%@Sprache = vbscript codepage = 936%> <% Dim arr Arr = Array (91,39,46,24,14,56,31,32,56,89) Rufen Sie Deletemax (uBound (arr), 3) an 'Löschen Sie die drei größten Zahlen! Rufen Sie Getback () 'Jede Nummer auf -1 auf und verwandeln die kleinste Zahl in die größte Zahl! Rufen Sie Deletemax (uBound (arr), 3) an 'Löschen Sie die drei größten Zahlen nach -1! Rufen Sie Getback () an, um jede Nummer wiederherzustellen Für KK = 0 bis Ubound (arr) 'Ausgabe jede Zahl Ausgabe Antwort.Write (arr (KK)) Response.write (<br>) nächste sub -deletemax (arr_total, Willdelete) für M = 1 bis Willdelete für i = 0 bis arr_total-m Wenn arr (i)> arr (i 1) dann Anrufstausch (arr (i), arr (i 1)) Ende wenn nächste REDIM Preserve arr (arr_total-m) nächste Ende sub Sub -Swap (num_a, num_b) 'tauschen Sie zwei Zahlen aus x = num_a num_a = num_b num_b = x Ende sub sub treetback () für l = 0 bis Ubound (arr) Arr (l) = arr (l)*-1 nächste Ende sub %> |
Es gibt drei Unterprogramme:
1. Deletemax (arr_total, Willdelete)
Funktion: Löschen Sie mehrere größte Nummern, arr_total: das maximal verfügbare Index des Arrays, Willdelete: Die Anzahl der größten zu gelöschten Zahl.
2. Swap (num_a, num_b)
Funktion: Tauschen Sie zwei Zahlen aus
3.. Getback ()
Funktion: Multiplizieren Sie jedes Element des Arrays mit -1 und verwandeln Sie die kleinste Zahl in die größte Zahl!
Erfahrung:
Ich habe versucht, wie man ein Array -Element löscht!
Wenden Sie geschickt Redim an und bewahren Sie Aussagen auf, wie z. B.:
| Das Folgende ist der zitierte Inhalt: dim a () Redim A (10) 'Ich möchte das sechste Element A (5) löschen für n = 5 bis ubund (a) -1 A (n) = a (n 1) nächste reduzieren A (Ubund (a) -1) |
Der obige Code kann abgeschlossen werden. Wenn Sie es nicht glauben, versuchen Sie es ...
Anteil: ASP Basic Tutorial: Andere häufig verwendete Komponenten von ASP Wenn Sie serverseitige Anwendungen mit ASP schreiben, müssen Sie sich auf ActiveX-Komponenten für leistungsstarke Webanwendungen verlassen, z.