<% class cbuffer
private 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 = "white"
codecolor = "blue"
commentcolor = "green"
stringcolor = "gray"
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")
end sub
private sub class_terminate()
set objdict = nothing
set objfso = nothing
end sub
public property let codecolor(incolor)
m_codecolor = "<font color=" & incolor & "><strong>"
end property
private property get codecolor()
codecolor = m_codecolor
end property
public property let commentcolor(incolor)
m_commentcolor = "<font color=" & incolor & ">"
end property
private property get commentcolor()
commentcolor = m_commentcolor
end property
public property let stringcolor(incolor)
m_stringcolor = "<font color=" & incolor & ">"
end property
private property get stringcolor()
stringcolor = m_stringcolor
end property
public property let tabspaces(inspaces)
m_tabspaces = inspaces
end property
private property get tabspaces()
tabspaces = m_tabspaces
end property
public property let tablebgcolor(incolor)
m_tablebgcolor = incolor
end property
private property get tablebgcolor()
tablebgcolor = m_tablebgcolor
end property
public property get processingtime()
processingtime = second(m_endtime - m_starttime)
end property
public property get linecount()
linecount = m_linecount
end property
public property get pathtofile()
pathtofile = m_strpathtofile
end property
public property let pathtofile(inpath)
m_strpathtofile = inpath
end property
private property let keymin(inmin)
m_intkeymin = inmin
end property
private property get keymin()
keymin = m_intkeymin
end property
private property let keymax(inmax)
m_intkeymax = inmax
end property
private property get keymax()
keymax = m_intkeymax
end property
private sub createkeywords()
objdict.add "abs", "abs"
objdict.add "and", "and"
objdict.add "array", "array"
objdict.add "call", "call"
objdict.add "cbool", "cbool"
objdict.add "cbyte", "cbyte"
objdict.add "ccur", "ccur"
objdict.add "cdate", "cdate"
objdict.add "cdbl", "cdbl"
objdict.add "cint", "cint"
objdict.add "class", "class"
objdict.add "clng", "clng"
objdict.add "const", "const"
objdict.add "csng", "csng"
objdict.add "cstr", "cstr"
objdict.add "date", "date"
objdict.add "dim", "dim"
objdict.add "do", "do"
objdict.add "loop", "loop"
objdict.add "empty", "empty"
objdict.add "eqv", "eqv"
objdict.add "erase", "erase"
objdict.add "exit", "exit"
objdict.add "false", "false"
objdict.add "fix", "fix"
objdict.add "for", "for"
objdict.add "next", "next"
objdict.add "each", "each"
objdict.add "function", "function"
objdict.add "global", "global"
objdict.add "if", "if"
objdict.add "then", "then"
objdict.add "else", "else"
objdict.add "elseif", "elseif"
objdict.add "imp", "imp"
objdict.add "int&quo
