VBS、ASP代码语法加亮显示的类(2)

<!--#include file="token.ASP"-->

<% ' *************************************************************************

' This is all test/example code showing the calling syntax of the

' cBuffer class ... the interface to the cBuffer object is quite simple.

'

' Use it for reference ... delete it ... whatever.

' *************************************************************************

REM This is a rem type comment just for testing purposes!

' This variable will hold an instance of the cBuffer class

Dim objBuffer

' Set up the error handling

On Error Resume Next

' create the instance of the cBuffer class

Set objBuffer = New cBuffer

' Set the PathToFile property of the cBuffer class

'

' Just for kicks we'll use the asp file that we created

' in the last installment of this article series for testing purposes

objBuffer.PathToFile = "../081899/random.asp" '这是文件名啦。

' Here's an example of how to add a new keyword to the keyword array

' You could add a list of your own function names, variables or whatever...cool!

' NOTE: You can add different HTML formatting if you like, the <strong>

' attribute will applied to all keywords ... this is likely to change

' in the near future.

'

'objBuffer.AddKeyword "response.write", "<font color=Red>Response.Write</font>"

' Here are examples of changing the table background color, code color,