<!-#include file = token.asp->
<% '************************************************ ****************************
'Este es todo el código de prueba/ejemplo que muestra la sintaxis de llamadas de la
'Clase Cbuffer ... la interfaz del objeto Cbuffer es bastante simple.
'
'Úselo como referencia ... Eliméelo ... lo que sea.
'********************************************************** **************************
REM ¡Este es un comentario de tipo REM solo para fines de prueba!
'Esta variable tendrá una instancia de la clase Cbuffer
Dim objbuffer
'Configurar el manejo de errores
En el currículum de error siguiente
'Cree la instancia de la clase Cbuffer
Establecer objbuffer = new Cbuffer
'Establezca la propiedad PathToFile de la clase Cbuffer
'
'Solo para patadas usaremos el archivo ASP que creamos
'En la última entrega de esta serie de artículos para fines de prueba
objbuffer.pathtofile = ../081899/random.asp '这是文件名啦。
'Aquí hay un ejemplo de cómo agregar una nueva palabra clave a la matriz de palabras clave
'Puede agregar una lista de sus propios nombres de funciones, variables o lo que sea ... ¡genial!
'Nota: puede agregar diferentes formatos HTML si lo desea, <strong>
'El atributo se aplicará a todas las palabras clave ... es probable que esto cambie
'En el futuro cercano.
'
'Objbuffer.addkeyword Response.write, <font color = rojo> respuesta.write </font>
'Aquí hay ejemplos de cambiar el color de fondo de la tabla, color del código,
'Color de comentarios, color de la cadena y propiedades del espacio de pestaña
'
'objbuffer.tablebgcolor = lightgrey' o
'objbuffer.tablebgcolor = #ffffdd' simple ¿verdad?
'objbuffer.codeColor = rojo
'objbuffer.commentColor = Orange
'Objbuffer.StringColor = Purple
'objbuffer.tabspaces =
'Llame al método parsefile de la clase Cbuffer, pase verdadero si desea el
'html contenido en la salida de la página o falso si no
objbuffer.parsefile falso '注意 ： 显示代码的 Respuesta.Write 已经在 Clase 中。这里调用方法就可以了。
'Verifique los errores que pueden haber sido planteados y escríbelos
Si err.number <> 0 entonces
Response.Write Err.Number &: & Err.Description &: & Err.Source & <br>
final si
'ENCONTRAR EL TIEMPO DE PROCEPCIÓN Y NÚMERO DE LÍNEAS procesadas por el script
Response.write <strong> Tiempo de procesamiento: </strong> & objbuffer.processingtime & segundos <br>
Response.write <strong> líneas procesadas: </strong> y objbuffer.linecount & <br>
'Destruye la instancia de nuestra clase Cbuffer
establecer objbuffer = nada
%>