<% Classe Cbuffer
OBJFSO privé, objfile, objdict
privé m_strpathtofile, m_tablebgcolor, m_starttime
privé m_endtime, M_lineCount, m_intkeymin, m_intkeymax
privé m_codecolor, m_commentcolor, m_stringcolor, m_tabspaces
Private Sub class_Initialize ()
tableBgColor = blanc
CodeColor = Blue
commentcolor = vert
StringColor = Gray
tabspaces =
pathtofile =
m_starttime = 0
m_endtime = 0
m_lineCount = 0
keymin = 2
keyMax = 8
Définir objdict = server.createObject (scripting.dictionary)
objdict.comparemode = 1
CreateKeywords
SET OBJFSO = Server.CreateObject (Scripting.FileSystemObject)
Sub-Sub
Private Sub class_termiate ()
définir objdict = rien
définir objfso = rien
Sub-Sub
Propriété publique Let CodeColor (Incolor)
m_codecolor = <font color = & incolor &> <strong>
propriété finale
propriété privée Get CodeColor ()
codeColor = m_codecolor
propriété finale
Propriété publique Let CommentColor (Incolor)
m_commentcolor = <font color = & incolor &>
propriété finale
la propriété privée obtient commentcolor ()
commentcolor = m_commentcolor
propriété finale
Propriété publique Let StringColor (Incolor)
m_stringColor = <font color = & incolor &>
propriété finale
la propriété privée obtient StringColor ()
StringColor = M_StringColor
propriété finale
Propriété publique Let Tabspaces (Inspaces)
m_tabspaces = Inspace
propriété finale
propriété privée obtient des tabs ()
tabspaces = m_tabspaces
propriété finale
Propriété publique Let TableBgColor (Incolor)
M_TableBgColor = Incolor
propriété finale
propriété privée obtient tablebgcolor ()
TableBgColor = m_TableBgColor
propriété finale
Propriété publique Get ProcessTime ()
ProcessingTime = Second (m_endtime - m_starttime)
propriété finale
Propriété publique Get LineCount ()
lineCount = m_lineCount
propriété finale
Propriété publique Get Pathtofile ()