Ich habe einige Freunde sagen sehen, dass das vorherige Kapitel unnötig war, und wenn ich darüber nachdenke, stimmt es, dass ich ursprünglich nicht vorhatte, über diese Grundlagen zu sprechen, aber es gab keine Einschränkungen beim Schreiben, also bin ich einfach zu den Grundlagen übergegangen Ab diesem Abschnitt möchte ich einige der drei wichtigsten allgemeinen Klassen in ASP vorstellen. Sie sind eine Erweiterung der ASP-Syntax und können die Effizienz der Verarbeitung vieler Details verbessern . Sie können als ein kleiner Rahmen betrachtet werden.
In diesem Abschnitt wird die Fehlerbehandlungsklasse vorgestellt. Sie wird am Anfang der Codepage initialisiert. Der folgende e.add verwendet das instanziierte Objekt dieser Fehlerklasse.
Methodeneinführung:
e.Add(ByVal vErrorMessage) zeichnet einen Fehler auf und setzt e.Error = true. Wenn beim Überprüfen der Gültigkeit des Benutzernamens usw. ein Fehler festgestellt wird, wird diese Methode aufgerufen und eine Fehlermeldung aufgezeichnet.
Wenn der Benutzer beispielsweise beim Anmelden ein falsches Passwort hat, rufen Sie e.add auf (Ihr Konto oder Passwort ist falsch. Zu diesem Zeitpunkt wird ein Fehler im Fehlerobjekt e und im Attribut des Fehlerobjekts e aufgezeichnet). Fehler = wahr. In nachfolgenden Vorgängen können Sie diese Eigenschaft des Fehlerobjekts verwenden, um eine Beurteilung vorzunehmen.
Zum Beispiel:
Wenn ein Fehler auftritt, wird ein kleines Fenster geöffnet, das Sie auf den Fehler aufmerksam macht und zur vorherigen Seite zurückkehrt.
wenn e.Error dann
e.Alert_Back Bitte melden Sie sich erneut an! 'Die Funktion von Alert_Back wird später eingeführt.
Ende wenn
e.Alert_Back(ByVal vMessage) verwendet Javascript, um ein Fehleraufforderungsfeld anzuzeigen und eine Liste aller aktuellen Fehler anzuzeigen. Die vMessage in Alert_Back(vMessage) wird in der letzten Zeile angezeigt, um den Benutzer zu den Schritten aufzufordern, die er unternehmen muss, nachdem er dies gesehen hat Fehlermeldung. Und kehren Sie zur vorherigen Seite zurück, damit jeder es besser verstehen kann:
Öffentlicher Sub Alert_Back(ByVal vMessage)
strJSMessage = JSMessage & vMessage 'JSMessage wird verwendet, um die Fehlerliste im E-Objekt zu speichern, und jeder Fehler wird durch /n getrennt.
%>
<Skriptsprache=Javascript>
<!--//
Alert(<%=strJSMessage %>); 'Fehlermeldung wird angezeigt.
History.back(); 'Zurück zur vorherigen Seite
//-->
</script>
<%
Response.end 'Beachten Sie, dass die Ausgabe hier gestoppt werden sollte, um Fehler zu vermeiden, während das Programm weiter ausgeführt wird.
Sub beenden
Die e.Alert_Back-Methode erweitert mehrere Methoden mit ähnlichen Auswirkungen, die im Folgenden vorgestellt werden. Der Implementierungsprozess ist im beigefügten Quellcode aufgeführt:
e.Alert(ByVal vMessage) zeigt nur eine Fehlermeldung an, kehrt nicht zur vorherigen Seite zurück und stoppt nicht die Ausführung des Programms.
e.Alert_Close(ByVal vMessage) öffnet eine Fehlermeldung. Wenn der Benutzer auf „OK“ klickt, wird das aktuelle Fenster geschlossen.
e.OK_Go(ByVal vMessage,ByVal vURL) öffnet ein Meldungsfeld. Wenn der Benutzer auf OK klickt, wird zur vURL-Seite gesprungen.
e.Go(ByVal vURL) Direkt zur vURL-Seite springen
Die Funktionen der oben genannten Methoden sollten jedem bekannt sein, sie beschränken sich jedoch nicht nur auf die Fehlerbehandlung.
e.Clear löscht die im Fehlerobjekt aufgezeichneten Fehlerinformationen, e.Error = false
Da das e-Objekt ein globales Objekt ist, kann es in vielen Prozessen aufgerufen werden. Wenn Sie nur Fehler in einem bestimmten Modul zählen müssen, können Sie diese Methode zu Beginn aufrufen, um die Fehler in e zu löschen.
Im Folgenden finden Sie Pakete für Response.Write, lediglich aus Gründen der Benutzerfreundlichkeit und Geschwindigkeit.
e.Debug(ByVal vMessage) gibt Debugging-Informationen aus, wenn Response.write verwendet wird. Sie müssen sie alle löschen und sorgfältig nach ihnen suchen Geben Sie Debugging-Informationen aus. Wenn das Programm abgeschlossen ist, müssen Sie nur nach e.Debug suchen, um den Speicherort aller Debugging-Fehlerinformationen zu finden.
ew(ByVal vMessage) gibt Informationen aus. Es ist nur ein einfacher Wrapper von Response.write. Es ist nicht bekannt, wie viel bequemer es ist, ew in das Programm einzugeben, als Response.write, und es ist immer leicht, Fehler zu machen .
e.BR gibt ein Zeilenumbruchzeichen aus, das äquivalent zu „response.Write <BR />“ ist
Die folgenden vier sind Pakete für Response.End. Dabei handelt es sich lediglich um mehrere Methoden mit denselben Funktionen, die je nach Betriebsgewohnheiten definiert sind:
e.Pause == Response.End
eP==Response.End
e.Stop == Response.End
e.End == Response.End
Außerdem gibt es ein Attribut e.Message, das eine Liste aller Fehler im e-Objekt ausgibt.
Spezifische Implementierungsdetails finden Sie im Code.
Kopieren Sie den Codecode wie folgt:
ClassCon_Error
PrivateblnError
private strMessage
private strJSMessage
Private Unterklasse_initialize()
blnError = false
strMessage =
Sub beenden
Private Sub Class_Terminate()
Sub beenden
' ============================================== =================================
' Eigentum
' ============================================== =================================
'Nachricht:
Öffentliche Eigenschaft „Let Message“ (ByVal-Wert)
strMessage = Wert
End-Eigenschaft
Öffentliches Eigentum Get Message()
Nachricht = strMessage
End-Eigenschaft
'Fehlernummer
Öffentliche Eigenschaft GetError()
Fehler = blnError
End-Eigenschaft
' JSMessage: im Meldungsfeld anzeigen
Private Eigenschaft GetJSMessage()
strJSMessage = Ersetzen(strMessage, <br>, /n)
strJSMessage = Ersetzen(strJSMessage, vbCrLf,)
JSMessage = strJSMessage
End-Eigenschaft
' ============================================== =================================
'Verfahren
' ============================================== =================================
'Hinzufügen: Fügen Sie eine Fehlermeldung hinzu
Öffentliches Sub-Add(ByVal vMessage)
blnError = wahr
strMessage = strMessage & vMessage & <br>
Sub beenden
Öffentliches Sub Clear
blnError = false
strMessage =
Sub beenden
'Alarm
Öffentliche Unterwarnung (ByVal vMessage)
strJSMessage = JSMessage & vMessage
%>
<Skriptsprache=Javascript>
<!--//
alarm(<%=strJSMessage %>);
//-->
</script>
<%
Sub beenden
' Alert_Back: Alarm und zurück
Öffentlicher Sub Alert_Back(ByVal vMessage)
strJSMessage = JSMessage & vMessage
%>
<Skriptsprache=Javascript>
<!--//
alarm(<%=strJSMessage %>);
History.back();
//-->
</script>
<%
Antwort.Ende
Sub beenden
'Alert_Close: Alarm und schließen
Öffentlicher Sub Alert_Close(ByVal vMessage)
strJSMessage = JSMessage & vMessage
%>
<Skriptsprache=Javascript>
<!--//
alarm(<%=strJSMessage %>);
window.opener = null;
window.close();
//-->
</script>
<%
Antwort.Ende
Sub beenden
'**************************************************
„Debug: Response.write, verwenden Sie es, um Debug-Nachrichten einfach zu löschen. Suchen Sie einfach nach e.Debug in den Dateien
'**************************************************
Öffentlicher Sub OK_Go(ByVal vMessage,ByVal vURL)
strJSMessage = JSMessage & vMessage
%>
<Skriptsprache=Javascript>
<!--//
alarm(<%=strJSMessage %>);
location.href = '<%=vURL %>';
//-->
</script>
<%
Antwort.Ende
Sub beenden
Public Sub Go(ByVal vURL)
Antwort. vURL umleiten
Antwort.Ende
Sub beenden
'**************************************************
„Debug: Response.write, verwenden Sie es, um Debug-Nachrichten einfach zu löschen. Suchen Sie einfach nach e.Debug in den Dateien
'**************************************************
Öffentliches Sub-Debug (ByVal vMessage)
Antwort. vMessage schreiben
Antwort.Flush
Sub beenden
'****** W: schreiben
Öffentlicher Sub W(ByVal vMessage)
Antwort. vMessage schreiben
Sub beenden
'****** BR: schreibe <br>
Öffentliche Unterbr
Antwort.Write <BR />
Sub beenden
'**************************************************
'Pause: Response.End, Debug-Info deutlich markieren
'**************************************************
Öffentliche Unterpause
Antwort.Ende
Sub beenden
Öffentlicher Sub P
Antwort.Ende
Sub beenden
Öffentliches U-Boot [Stopp]
Antwort.Ende
Sub beenden
Öffentliches Sub [Ende]
Antwort.Ende
Sub beenden
Unterricht beenden