<% класс Cbuffer
Частный 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 = белый
Codecolor = Blue
CommentColor = зеленый
StringColor = Grey
Tabspaces =
pathtofile =
m_starttime = 0
m_endtime = 0
m_linecount = 0
keymin = 2
keymax = 8
Установить objdict = server.createObject (scripting.dictionary)
objdict.comparemode = 1
CreateKeyWords
Установить objfso = server.createObject (scripting.filesystemobject)
Конец суб
private sub class_terminate ()
установить objdict = ничего
установить objfso = ничего
Конец суб
Публичная собственность пусть кодеклера (необразно)
m_codecolor = <font color = & incolor &> <strong>
Конец собственности
Частная недвижимость Get CodeColor ()
CodeColor = m_codecolor
Конец собственности
Публичная собственность позволила CommentColor (непрозрачность)
m_commentcolor = <font color = & incolor &>
Конец собственности
Частная недвижимость Получить CommentColor ()
CommentColor = m_commentColor
Конец собственности
Общественная недвижимость Let StringColor (непрозрачность)
m_stringcolor = <font color = & incolor &>
Конец собственности
частная недвижимость Get StringColor ()
stringColor = m_stringColor
Конец собственности
Общественная собственность, пусть табсоны (вдохновляют)
m_tabspaces = Insposces
Конец собственности
Частная собственность получите Tabspaces ()
Tabspaces = m_tabspaces
Конец собственности
Общественная недвижимость Let TableBgcolor (непрозрачность)
m_tablebgcolor = incolor
Конец собственности
Частная недвижимость GET TABLEBCOLOR ()
TableBgColor = m_tablebgcolor
Конец собственности
Общественная недвижимость получить время обработки ()
обработка времени = второе (m_endtime - m_starttime)
Конец собственности
Общественная недвижимость Get LineCount ()
lineCount = m_linecount
Конец собственности
Общественная недвижимость Get Pathtofile ()