当前位置: 首页 > 图文教程 > 网络编程 > ASP > VBS、ASP代码语法加亮显示的类(1)

ASP
ASP实例代码：搞个长文章分页代码
说说对象的复制
多个函数验证同一表单
查询某个字段没有值的所有记录的SQL语句怎么写？
ASP实例：一个简单的ASP无组件上传类
ASP实例讲解：用分页符实现长文章分页显示
ASP实例：动态网页中常用的6个ASP程序
ASP实例：词语搭配游戏的制作
ASP实例学习：随机生成文件名的函数
asp实例：测试WEB服务器
ASP实例：计数器程序详解
预防ASP网站被黑 彻底了解ASP木马
分享：XML HTTP Request的属性和方法简介
ASP架设：给每个IIS站点建立一个用户
ASP技巧：判断远程图片是否存在
故障解决：解决ASP脚本运行超时的方法
再说ASP输出N行N列表格
怎么判断一个对象是否已被释放
ASP实现网页打开任何类型文件都保存的方法
ASP技巧：利用函数InstrRev()获取当前文件名

No. « 6 7 8 9 »

技术文章搜索

关键字

VBS、ASP代码语法加亮显示的类(1)

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 158 ::
收藏到网摘: n/a

       <% 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"