<! - # Inclure file = token.asp ->
<% '************************************************* **************************
'Ceci est tout le code de test / exemple montrant la syntaxe des appels du
'Classe CBuffer ... L'interface de l'objet Cbuffer est assez simple.
'
«Utilisez-le pour référence ... supprimez-le ... peu importe.
'************************************************* ************************
REM Ceci est un commentaire de type REM juste à des fins de test!
'Cette variable tiendra une instance de la classe CBuffer
objbuffer
'Configurer la gestion des erreurs
sur l'erreur reprendre ensuite
'Créez l'instance de la classe CBuffer
Set Objbuffer = New Cbuffer
'Définissez la propriété PathToFile de la classe Cbuffer
'
'Juste pour les coups de pied, nous utiliserons le fichier ASP que nous avons créé
'Dans le dernier épisode de cette série d'articles à des fins de test
objbuffer.pathtofile = ../081899/random.asp '这是文件名啦。
'Voici un exemple de la façon d'ajouter un nouveau mot-clé au tableau des mots clés
«Vous pouvez ajouter une liste de vos propres noms de fonction, variables ou autre chose ... cool!
«Remarque: vous pouvez ajouter différents formatage HTML si vous le souhaitez, le <strong>
'L'attribut sera appliqué à tous les mots clés ... cela est susceptible de changer
«Dans un avenir proche.
'
'objbuffer.addkeyword réponse.write, <font color = red> réponse.write </font>
«Voici des exemples de modification de la couleur d'arrière-plan de la table, de la couleur du code,
'Couleur de commentaire, couleur de la corde et propriétés de l'espace d'onglet
'
'objbuffer.tablebgcolor = Lightgrey' ou
'objbuffer.tablebgcolor = #ffffdd' simple non?
'objbuffer.codecolor = rouge
'objbuffer.commentcolor = orange
'objbuffer.stringcolor = violet
'objbuffer.tabspaces =
'Appelez la méthode par Sarsefile de la classe CBuffer, passez-la vraie si vous voulez le
'HTML contenu dans la sortie de la page ou faux si vous ne le faites pas
objbuffer.parsefile false '注意: ： 显示代码的 Response.Write 已经在 Classe 中。这里调用方法就可以了。
`` Vérifiez les erreurs qui ont pu être soulevées et les écrire
Si err.number <> 0 alors
réponse.write err.number &: & err.description &: & err.source & <br>
terminer si
'Sortir le temps de traitement et le nombre de lignes traitées par le script
Response.Write <strong> Temps de traitement: </strong> & objbuffer.processingtime & secondes <br>
Response.Write <strong> Lignes traitées: </strong> & objbuffer.lineCount & <br>
'Détruisez l'instance de notre classe Cbuffer
définir objbuffer = rien
%>