繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > VBS、ASP代码语法加亮显示的类(1)
- ASP
- 在ASP程序中实现数据库事务控制
- 怎样开始一个ASP网站的设计
- ASP中使用ServerVariables集合详解
- 关于解决商务平台ASP程序的源代码泄漏设想与思考
- ASP通用模板类
- javascript利用xmlhttp获得服务器时钟的方法
- asp+oracle分页程序类（XDOWNPAGE2.0）
- ASP中实现小偷程序的原理和简单
- asp中vbscript访问xml文件
- ASP防SQL注入攻击程序
- 用ASP读INI配置文件的函数
- asp实现关键词获取(各搜索引擎,gb2312及utf-8)
- xmlhttp组件获取远程文件并筛选出目标数据
- XMLHTTP Get HTML页面时的中文乱码之完全客户端Script解决方案
- WEB打印设置解决方案一（通过修改注册表改变IE打印设置）
- WEB打印设置解决方案二（利用ScriptX.cab控件改变IE打印设置）
- WEB打印设置解决方案三（FileSystem组件实现WEB打印）
- WEB打印设置解决方案四（在ASP中实现网络打印功能）
- ASP实用技巧 强制刷新网页
- Access通用－自动替换数据库中的字符串
VBS、ASP代码语法加亮显示的类(1)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 190 ::
收藏到网摘: n/a
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"
评论 (0) All
