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

ASP
ASP中一个字符串处理类
获取软件下载的真实地址！再谈获取Response.redirect重定向的URL
【先锋海盗类】Ver2005 最终版
CacheCls缓存的应用
用ASP应用程序实现自己的UrlDeCode
[原创]asp截取字符串的两种应用
蓝色空间 天气小偷
内容分页函数
创力采集程序用到的函数 推荐
用ASP和SQL实现基于Web的事件日历
FSO操作文件系统
用数据库生成不重复的流水号
asp编译成dll-图形化教程
NextRecordset 和 GetRows 双簧合奏
asp中通过getrows实现数据库记录分页的一段代码
网站生成静态页面，及网站数据采集的攻、防原理和策略
ASP开发中数据库文件调用的捷径
两个小函数让你的ASP程序对SQL注入免疫！
利用Microsoft.XMLHTTP控件发送COOKIE
ASP的天空小偷

No. « 35 36 37 38 »

技术文章搜索

关键字

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

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