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

<% Class cBuffer
    Private objFSO, objFile, objDict
    Private m_strPathToFile, m_TableBGColor, m_StartTime
    Private m_EndTime, m_LineCount, m_intKeyMin, m_intKeyMax
    Private m_CodeColor, m_CommentColor, m_StringColor, m_TabSpaces
    
    Private Sub Class_Initialize()
        TableBGColor = "white"
        CodeColor = "Blue"
        CommentColor = "Green"
        StringColor = "Gray"
        TabSpaces = "    "
        PathToFile = ""
        
        m_StartTime = 0
        m_EndTime = 0
        m_LineCount = 0
        
        KeyMin = 2
        KeyMax = 8
        
        Set objDict = server.CreateObject("Scripting.Dictionary")
        objDict.CompareMode = 1
        
        CreateKeywords
        
        Set objFSO = server.CreateObject("Scripting.FileSystemObject")
    End Sub
    Private Sub Class_Terminate()