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

ASP
看人家用使用InstallShield制作ASP安装程序(5)
看人家用使用InstallShield制作ASP安装程序(4)
看人家用使用InstallShield制作ASP安装程序(3)
看人家用使用InstallShield制作ASP安装程序(2)
看人家用使用InstallShield制作ASP安装程序(1)
取得浏览者的离开时间
base64编码、解码函数
动态显示图片的函数（显示广告条）
发送带附件的HTML格式邮件例程可以带附件
一种在父窗口中得知window.open()出的子窗口关闭事件的方法
一个老个写的无组件上传
避免asp的SQL的执行效率低
树型结构在ASP中的简单解决
无需数据库循环的无级分类代码
检查字符串strSource是否为big或big5码
有关重复记录的删除(SQL SERVER)
WINDOWS2000服务器账号登陆身份验证
使用VC++6.0制作ASP服务器控件简介
利用sql的存储过程实现dos命令的asp程序
WSH 直接将查询数据结果生成 EXCEL 表

No. « 113 114 115 116 »

技术文章搜索

关键字

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

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