<!-#include File = token.asp->
<% '****************************************************** ********************************************************
'Dies ist alles Test-/Beispielcode, der die aufrufende Syntax der aufrufe
'CBuffer -Klasse ... Die Schnittstelle zum CBuffer -Objekt ist recht einfach.
''
'Verwenden Sie es als Referenz ... Löschen Sie es ... was auch immer.
'****************************************** **********************
REM Dies ist ein REM -Kommentar, nur zu Testzwecken!
'Diese Variable enthält eine Instanz der CBuffer -Klasse
Dimer Objbuffer
'Richten Sie die Fehlerbehandlung ein
Bei der nächsten Fehleraufnahme als nächstes
'Erstellen Sie die Instanz der CBuffer -Klasse
Setzen Sie Objbuffer = neuer CBuffer
'Setzen Sie die PathtoFile -Eigenschaft der CBuffer -Klasse
''
„Nur für Kicks werden wir die von uns erstellte ASP -Datei verwenden
'In der letzten Ausgabe dieser Artikelserie zu Testzwecken
objbuffer.pathtofile = ../081899/random.asp '这是文件名啦。
'Hier ist ein Beispiel dafür, wie Sie dem Keyword -Array ein neues Schlüsselwort hinzufügen können
'Sie könnten eine Liste Ihrer eigenen Funktionsnamen, Variablen oder was auch immer ... cool hinzufügen!
'Hinweis: Sie können verschiedene HTML -Formatierung hinzufügen, wenn Sie möchten, die <strong>
'Attribut wird auf alle Schlüsselwörter angewendet ... Dies wird sich wahrscheinlich ändern
'In naher Zukunft.
''
'objbuffer.addKeyword response.write, <font color = rot> response.write </font>
'Hier sind Beispiele für die Änderung der Tabellenhintergrundfarbe, Codefarbe, Code -Farbe,
'Kommentarfarbe, Zeichenfolge Farbe und Registerkarte Space -Eigenschaften
''
'objbuffer.tableBgColor = LightGrey' oder
'objbuffer.tableBgColor = #ffffdd' einfach richtig?
'objbuffer.CodeColor = rot
'objbuffer.commentColor = orange
'objbuffer.StringColor = lila
'objbuffer.tabSpaces =
'Rufen Sie die Parsefile -Methode der CBuffer -Klasse an, geben Sie sie wahr, wenn Sie die möchten
'HTML enthalten in der Seitenausgabe oder falsch, wenn Sie dies nicht tun
Objbuffer.Parsefile False '注意 ： 显示代码的 Antwort.Write 已经在 Klasse 中。这里调用方法就可以了。
»Überprüfen Sie auf Fehler, die möglicherweise erhoben wurden, und schreiben Sie sie aus
Wenn err.number <> 0 dann dann
response.write err.number &: & err.description &: & err.source & <br>
Ende wenn
'Ausgeben die Verarbeitungszeit und die Anzahl der vom Skript verarbeiteten Zeilen
Antwort.Write <strong> Verarbeitungszeit: </strong> & objbuffer.processingTime & Seconds <br>
response.write <strong> Zeilen verarbeitet: </strong> & objbuffer.lineCount & <br>
'Zerstöre die Instanz unserer CBuffer -Klasse
objbuffer einstellen = nichts
%>