繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > VBS、ASP代码语法加亮显示的类(1)
- ASP
- Dom遍历XML的一个例子,结果为树状结构
- [原创]如何回到先前的页面的方法多中语言
- 几个经典的ASP应用
- pjblog实现类似CMS的首页调用
- PJblog友情链接LOGO地址失效的解决
- ASP程序给上传的图片增添水印效果!
- 127.0.0.1无法访问，没有权限: GetObject
- PJBLOG使用技巧
- ASP数据库连接方式大全
- ASP辅助代码
- 垃圾引用防治补丁以及发送引用修正补丁的自动安装程序
- 发一个采集(小偷)用的类，ASP+缓存实现
- 利用ASPUPLOAD，ASPJPEG实现图片上传自动生成缩略图及加上水印
- 后台管理登录篇-asp设计与数据库
- 使用Flash DownLoad编写采集器(之突破防盗连下载音乐文件)
- [原创]随机增加网站点击的一个不错的方法
- javascript asp教程第二课--转义字符
- javascript asp教程第三课 new String() 构造器
- javascript asp教程第六课-- response方法
- 简单的ASP中经常用到的代码[推荐]
VBS、ASP代码语法加亮显示的类(1)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 222 ::
收藏到网摘: 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
