<% kelas cbuffer
objfso pribadi, 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 = Putih
codecolor = biru
CommentColor = Green
StringColor = abu -abu
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)
akhir sub
Private Sub Class_Terminate ()
atur objdict = tidak ada
atur objfso = tidak ada
akhir sub
Properti Publik Let Codecolor (Incolor)
m_codecolor = <font color = & incolor &> <strong>
Akhir properti
Properti Pribadi Dapatkan Codecolor ()
codecolor = m_codecolor
Akhir properti
Properti Publik Let CommentColor (Incolor)
m_commentColor = <font color = & incolor &>
Akhir properti
Properti Pribadi Dapatkan CommentColor ()
CommentColor = m_commentColor
Akhir properti
Properti Publik Let StringColor (Incolor)
m_stringcolor = <font color = & incolor &>
Akhir properti
Properti Pribadi Dapatkan StringColor ()
StringColor = m_stringColor
Akhir properti
Properti Publik Let Tabspaces (Inspaces)
m_tabspaces = Inspaces
Akhir properti
properti pribadi dapatkan tabspaces ()
tabspaces = m_tabspaces
Akhir properti
Properti Publik Let TableBgColor (Incolor)
m_tableBgColor = Incolor
Akhir properti
Properti Pribadi Dapatkan TableBgColor ()
TABLEBGCOLOR = m_tableBgColor
Akhir properti
Properti Publik Dapatkan ProcessingTime ()
ProcessingTime = Second (m_endtime - m_starttime)
Akhir properti
Properti Publik Dapatkan Linecount ()
linecount = m_linecount
Akhir properti
properti publik mendapatkan pathtofile ()