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

ASP
ASP实现表单中容量大的数据的提交方法
强烈推荐ASP初学者观看：常用ASP技术
认真学习ASP内置对象Session的应用
asp函数转换xml中的实体字符[转义符]
ASP防止重复多次提交表单的方法
ASP处理XSLT转换XML的实现
ASP中将Excel数据导入到Access
[推荐]ASP 编程中 20 个非常有用的例子
[推荐]每个ASP程序员必备的知识
[推荐]ASP初学者常犯的几个错误
解决杀毒软件误删asp文件的方法
用VB编写ActiveX DLL实现ASP编程
asp.net结合js的网页打印程序
ASP网站远程客户实现EXCEL打印功能
ASP程序中使用断开的数据记录集
利用ASP发送和接收XML数据的处理方法
20种看ASP程序源码的方法及工具
ASP技巧：禁用FileSystemObject组件
在ASP中使用SQL语句:开始执行
ASP编写计数器的优化方法

No. « 20 21 22 23 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 114 ::
收藏到网摘: 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"