<% class Cbuffer
objfso privado, objfile, objdict
privado m_strpathtofile, m_tablebgcolor, m_starttime
Privado m_endtime, m_linecount, m_intkeymins, m_intkeymax
privado m_codecolor, m_commentColor, m_stringcolor, m_tabspaces
Sub class_initialize () privado ()
tablebgcolor = blanco
CodeColor = Blue
commentColor = verde
StringColor = Gray
Tabspaces =
PathToFile =
m_starttime = 0
m_endtime = 0
m_linecount = 0
kimina = 2
kymax = 8
establecer objdict = server.createObject (scripting.dictionary)
objdict.comparemode = 1
createkeywords
Establecer objfso = server.createObject (scripting.filesystemObject)
final
Sub class_terminate () privado ()
establecer objdict = nada
establecer objfso = nada
final
Propiedad pública Let CodeColor (Incolor)
m_codeColor = <font color = & incolor &> <strong>
propiedad final
Propiedad privada Get CodeColor ()
CodeColor = M_CodeColor
propiedad final
Propiedad pública Deje CommentColor (Incolor)
m_commentColor = <font color = & incolor &>
propiedad final
Propiedad privada Obtenga CommentColor ()
commentColor = m_commentColor
propiedad final
Propiedad pública Deja stringcolor (incolor)
m_stringcolor = <font color = & incolor &>
propiedad final
Propiedad privada Obtenga StringColor ()
StringColor = M_StringColor
propiedad final
Propiedad pública Deja que Tabspaces (inspaces)
m_tabspaces = inspeccionar
propiedad final
Propiedad privada Get Tabspaces ()
Tabspaces = m_tabspaces
propiedad final
Propiedad pública Deja que TableBgColor (incolor)
m_tableBGColor = incolor
propiedad final
Propiedad privada Get tableBGColor ()
tableBGColor = M_TableBGColor
propiedad final
Propiedad pública Get Processiontime ()
Processingtime = segundo (m_endtime - m_starttime)
propiedad final
Propiedad pública Get Linecount ()
Linecount = m_linecount
propiedad final
Propiedad pública Get PathToFile ()