<% Klasse CBuffer
private objfso, objfile, objdict
private m_stradtofile, 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 = weiß
CodeColor = blau
commentColor = grün
StringColor = Gray
tabspaces =
pathToFile =
M_StartTime = 0
M_endTime = 0
M_LINECOUNT = 0
kymin = 2
keymax = 8
Setzen Sie objDict = server.createObject (scripting.Dictionary)
objdict.comParemode = 1
createKeywords
Setzen Sie OBJFSO = Server.createObject (scripting.filesystemObject)
Ende sub
private sub class_terate ()
objdict setze = nichts
Setzen Sie objfso = nichts
Ende sub
öffentliches Eigentum Let CodeColor (Incolor)
m_codecolor = <font color = & incolor &> <strong>
Beenden Sie Eigentum
Privateigentum erhalten CodeColor ()
CodeColor = M_CodeColor
Beenden Sie Eigentum
öffentliches Eigentum lassen
M_CommentColor = <font color = & incolor &>
Beenden Sie Eigentum
Privateigentum erhalten Sie commentcolor ()
commentColor = M_CommentColor
Beenden Sie Eigentum
öffentliches Eigentum let StringColor (Incolor)
m_stringcolor = <font color = & incolor &>
Beenden Sie Eigentum
Private Eigenschaft Get StringColor ()
StringColor = m_stringColor
Beenden Sie Eigentum
öffentliche Eigenschaften lassen Tabellen (Inspaces)
M_TABSPACES = Inspaces
Beenden Sie Eigentum
Private Eigenschaften erhalten Sie tabspaces ()
tabspaces = m_tabspaces
Beenden Sie Eigentum
öffentliches Eigentum let TableBgColor (Incolor)
m_tableBgColor = Incolor
Beenden Sie Eigentum
Privateigentum Get TableBgColor ()
tableBgColor = m_tableBgColor
Beenden Sie Eigentum
öffentliches Eigentum erhalten Verarbeitungsinstitut ()
ProcessingTime = Second (M_endTime - M_StartTime)
Beenden Sie Eigentum
Öffentliches Eigentum erhalten Sie linecount ()
linecount = m_lineCount
Beenden Sie Eigentum
öffentliches Eigentum Get pathTofile ()