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

答案：<!--#include file="token.asp"-->
<% ' *************************************************************************
' This is all test/example code showing the calling syntax of the 
' cBuffer class ... the inte易做图ce to the cBuffer object is quite 易做图.
'
' 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, 
' comment color, string color and tab space properties
'
'objBuffer.TableBGColor = "LightGrey" ' or
'objBuffer.TableBGColor = "#ffffdd" ' 易做图 right?
'objBuffer.CodeColor = "Red"
'objBuffer.CommentColor = "Orange"
'objBuffer.StringColor = "Purple"
'objBuffer.TabSpaces = "  "
    
' Call the ParseFile method of the cBuffer class, pass it true if you want the
' HTML contained in the page output or false if you don't
objBuffer.ParseFile False   '注意：显示代码的response.write已经在class中。这里调用方法就可以了。




' Check for errors that may have been raised and write them out
If Err.number <> 0 Then
    Response.Write Err.number & ":" & Err.description & ":" & Err.source & "<br>"
End If

' Output the processing time and number of lines processed by the script
Response.Write "<strong>Processing Time:</strong> " & objBuffer.ProcessingTime & " seconds<br>"
Response.Write "<strong>Lines Processed:</strong> " & objBuffer.LineCount & "<br>"    

' Destroy the instance of our cBuffer class
Set objBuffer = Nothing
%> 

上一个：一组FSO相关FUNCTION，常用代码(也常有人问，重复问)
下一个：利用FSO取得BMP，JPG，PNG，GIF文件信息(大小，宽、高等)