<！ - ＃include file = token.asp->
<％ '***************************************** **********************
'これはすべてのテスト/例コードです。
'Cbufferクラス... Cbufferオブジェクトへのインターフェイスは非常に簡単です。
'
「参照に使用してください...削除...何でも。
'******************************************* **********************
REMこれは、テストのためだけにREMタイプのコメントです！
'この変数は、cbufferクラスのインスタンスを保持します
Dim Objbuffer
'エラー処理を設定します
エラーの再開時に次に再開します
'Cbufferクラスのインスタンスを作成します
objbuffer = new cbufferを設定します
'CbufferクラスのPathtofileプロパティを設定します
'
「キックのためだけに作成したASPファイルを使用します
'テスト目的のためのこの記事シリーズの最後の記事で
objbuffer.pathtofile = ../081899/random.asp '这是文件名啦。
「キーワード配列に新しいキーワードを追加する方法の例を次に示します
「独自の関数名、変数などのリストを追加できます...クール！
'注：必要に応じて、異なるHTMLフォーマットを追加できます、<strong>
'属性はすべてのキーワードに適用されます...これは変更される可能性があります
'近い将来。
'
'objbuffer.addkeyword Response.write、<font color = red> respons.write </font>
'ここに、テーブルの背景色、コードの色を変更する例があります。
'コメント色、文字列色、タブスペースのプロパティ
'
'objbuffer.tablebgcolor = lightgrey'または
'objbuffer.tablebgcolor = #ffffdd'シンプルな右？
'objbuffer.codecolor =赤
'objbuffer.commentcolor = orange
'objbuffer.stringcolor =紫
'objbuffer.tabspaces =
'CbufferクラスのParseFileメソッドを呼び出して、必要に応じて真実に渡します
'ページの出力またはfalseに含まれていない場合は、html
objbuffer.parsefile false '注意：显示代码的response.write
'上げられた可能性のあるエラーを確認して書き留めてください
err.number <> 0の場合
Response.write err.number＆：＆err.description＆：＆err.source＆<br>
ifを終了します
'スクリプトで処理される処理時間と行数を出力します
Response.write <strong>処理時間：</strong>＆objbuffer.processingtime＆seconds <br>
Response.Write <strong>回転処理：</strong>＆objbuffer.linecount＆<br>
「Cbufferクラスのインスタンスを破壊します
objbuffer = Nothingを設定します
％>