ASP语法高亮类代码_ASP CLASS类

此类高亮根据Editplus高亮来做的 

复制代码 代码如下:

Class Wyd_AspCodeHighLight 
Private RegEx 
Public Keyword,ObjectCommand,Strings,VBCode 
Public KeyWordColor,ObjectCommandColor,StringsColor,Comment,CodeColor 
  Private Sub Class_Initialize() 
    Set RegEx = New RegExp 
RegEx.IgnoreCase = True   ' 设置是否区分字母的大小写 True 不区分。 
    RegEx.Global = True   ' 设置全程性质。 
    KeyWordColor="#0000FF" 
    ObjectCommandColor="#FF0000" 
    StringsColor="#FF00FF" 
Comment="#008000" 
CodeColor="#993300" 
Keyword="Set|Private|If|Then|Sub|End|Function|For|Next|Do|While|Wend|True|False|Nothing|Class" '关建字 请自己添加 
ObjectCommand="Left|Mid|Right|Int|Cint|Clng|String|Join|Array" '函数 请自己添加 
VBCode="" 
  End Sub 
  Private Sub Class_Terminate() 
    Set RegEx = Nothing 
  End Sub 
  Private Function M_Replace(Str,Pattern,Color) 
    RegEx.Pattern = Pattern  ' 设置模式。 
    M_Replace=RegEx.Replace(Str,"<font color="&Color&">$1</font>") 
  End Function  

  Private Function String_Replace(Str,Pattern,Pattern1,Color,IsString) 
  Dim Temp,RetStr 
RegEx.Pattern =Pattern1 
    Set Matches = RegEx.Execute(Str) 
    For Each Match In Matches   ' 遍历 Matches 集合 
       Temp=Re(Match.value) 
       Str = Replace(Str,Match.value,Temp) 
    Next 
RegEx.Pattern = Pattern  ' 设置模式。 
If IsString=1 Then 
       String_Replace=RegEx.Replace(Str,"<font color="&Color&">"$1"</font>") 
Else 
    String_Replace=RegEx.Replace(Str,"<font color="&Color&">$1</font>") 
End If 
  End Function 

  Private Function Re(Str) 
   Dim TRegEx,Temp 
   Set TRegEx = New RegExp 
   TRegEx.IgnoreCase = True  ' 设置是否区分字母的大小写。 
   TRegEx.Global = True   ' 设置全程性质。 
   TRegEx.Pattern="<.*?>" 
   Temp=TRegEx.Replace(Str,"") 
   Temp=Replace(Temp,"<","") 
   Temp=Replace(Temp,">","") 
   Re=Temp 
   Set TRegEx=Nothing 
  End Function 

  Public Function MakeLi() 
    Dim Temp 
If VBCode="" Then 
    MakeLi="" 
    Exit Function 
End If 
    VBCode=HTMLEncode(VBCode) 
    Temp=M_Replace(VBCode,"\b("&Keyword&")\b",KeyWordColor) 
    Temp=M_Replace(Temp,"\b("&ObjEctCommand&")\b",ObjectCommandColor) 
    Temp=String_Replace(Temp,"""(.*?)""","""(.*)(<.+?>)("&KeyWord&ObjectCommand&")+(<.+?>)(.*)""",StringsColor,1)' 字符串 
    Temp=String_Replace(Temp,"(('|rem).*)","'(.*)(<.+?>)("&KeyWord&ObjectCommand&")+(<.+?>)(.*)",Comment,0) '注释 
    MakeLi="<FONT  COLOR="&CodeColor&">"&RepVbCrlf(Temp)&"</FONT>" 
  End Function 
  Public Function RepVbCrlf(fString) 
     RepVbCrlf = Replace(fString, CHR(10), "<BR> ") 
  End Function 
  Public Function HTMLEncode(fString) 
     If IsNull(fString) or fString="" Then 
     HTMLEncode="" 
  Exit Function 
     End If 
     fString = replace(fString, ">", ">") 
     fString = replace(fString, "<", "<") 
     'fString = Replace(fString, CHR(32), " ") 
     'fString = Replace(fString, CHR(9), " ") 
     'fString = Replace(fString, CHR(34), """) 
     'fString = Replace(fString, CHR(39), "'") 
     'fString = Replace(fString, CHR(13), "") 
     'fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ") 
     'fString = Replace(fString, CHR(10), "<BR> ") 
     HTMLEncode = fString 
   End Function 
End Class 

例子

复制代码 代码如下:

star=timer() 
Set TT = New Wyd_AspCodeHighLight 
If Request("xx")<>"" Then 
  TT.VBCode=Request("xx") 
  Response.write TT.MakeLi() 
  REsponse.write "<br>"&FormatNumber(timer()-star,2)*1000 
Else 

%> 
<FORM METHOD=POST action="Index2.asp"> 
<TEXTAREA NAME="xx" ROWS="30" COLS="80">Class Lih 
Private RegEx 
Public Keyword,ObjectCommand,Strings,VBCode 
Public KeyWordColor,ObjectCommandColor,StringsColor,Comment 
  Private Sub Class_Initialize() 
    Set RegEx = New RegExp 
    KeyWordColor="#0000FF" 
    ObjectCommandColor="#FF0000" 
    StringsColor="#FF00FF" 
Comment="#008000" 
Keyword="If|End|For|Next|Function|Then|Do|While|Wend|Class" 
VBCode="" 
  End Sub 
  Private Sub Class_Terminate() 
    Set RegEx = Nothing 
  End Sub 
  Private Function M_Replace(Str,Pattern,Color) 
    RegEx.IgnoreCase = False   ' 设置是否区分字母的大小写。 
    RegEx.Global = True   ' 设置全程性质。 
    RegEx.Pattern = Pattern  ' 设置模式。</TEXTAREA> 
<INPUT TYPE="submit" value=fff> 
</FORM> 
<%End If%>

时间: 2024-11-18 20:42:16

ASP语法高亮类代码_ASP CLASS类的相关文章

发一个ASP的ADODB类代码_ASP CLASS类

反正我现在用这个做了很多站,自己觉得还是满有用的,所以拿出来和大家分享一下.支持三种数据库连接:MSSQL2000,MSSQL2005,ACCESS 三种方法: select_table(sql) 表查询,返回TRUE或FALSE 当SQL语句出错,或空记录时返回FALSE,否则TRUE update_table(SQL) 表更新,包括update,delete 成功执行返回TRUE,否则返回FALSE,updated为执行后影响记录行数. insert_table(sql,table,id_c

实现ASP程序执行时间统计类的代码_ASP CLASS类

第一次写ASP类,实现功能:分段统计程序执行时间,输出统计表等.  复制代码 代码如下: Class ccClsProcessTimeRecorder  '程序作者:明月星光  '作者主页:http://www.5iya.com/blog  'http://www.kuozhanming.com  'ASP程序代码执行时间统计类    Private ccInti,ccIntNonceTime,ccIntDecimal    Private ccIntStartTime,ccIntEndTime

ASP 类专题_ASP CLASS类

严格地说,ASP 并不是一门编程语言,所以不存在类这一概念,我们这里说 ASP 类是指 ASP 的编程语言 VBScript 在 ASP 里应用时的类. ASP 类比较简单,它不具有真正意义类的继承.重载等特性,尽管如此,它仍然是非常有用的,它降低了我们编程的复杂度,使我们的程序模块更加合理. ASP 类支持什么 ASP 类比较简单,它不具有真正意义类的继承.重载等特性.它支持以下内容:  公有成员变量.私有成员变量.属性  公有成员函数.私有成员函数  构造函数.析构函数  创建和使用一个最简

ASP语法高亮类代码

此类高亮根据Editplus高亮来做的 复制代码 代码如下: Class Wyd_AspCodeHighLight  Private RegEx  Public Keyword,ObjectCommand,Strings,VBCode  Public KeyWordColor,ObjectCommandColor,StringsColor,Comment,CodeColor    Private Sub Class_Initialize()      Set RegEx = New RegExp

Asp操作Xml的精炼类,含示例代码_ASP CLASS类

以下保存成 App.xml , 与asp文件放在相同目录下! 复制代码 代码如下: <?xml version="1.0" encoding="utf-8"?> <Root> <About> <Version>1.0 Beta</Version> <LatestVersion>1.0 Beta</LatestVersion> <Author>Author</Auth

统计有多少行JS代码和ASP代码_ASP CLASS类

计算当前文件夹中,有多少行JS代码和ASP代码,并且还可统计代码有多少字节有示例代码 复制代码 代码如下: <% '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ '\\ '\\    来自 codeproject.com '\\    计算js和asp代码 '\\    修改 bluedestiny '\\    mail:bluedestiny at 126.com '\\ '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

EasyASP v1.5发布(包含数据库操作类,原clsDbCtrl.asp)第1/2页_ASP CLASS类

而Easp类中提供了大量实用的ASP通用过程及方法,可以简化大部分的ASP操作.目前只提供了VBScript版,JScript版将来可能会提供.EasyASP v1.5 (2008-10-22更新) 新增功能: 1.将数据库控制类(原clsDbCtrl.asp)封装入Easp类,均通过Easp.db调用,也可独立使用. 2.新增MSSQL存储过程调用方法,可灵活调用存储过程并返回返回值.记录集及出参. 3.新增db.CreatConn方法,可以根据自定义的连接字符串连接数据库. 4.新增db.J

ASP类编写详细说明_ASP CLASS类

首先ASP的类是由事件和方法(它们就是构成类的成员了)构成的,如果大家还没有接触过,可以先看看下面的说明(哈哈,我是现学现卖,说得不好请见谅)       在 Class 块中,成员通过相应的声明语句被声明为 Private(私有成员,只能在类内部调用) 或 Public(公有成员,可以在类内外部调用) .被声明为 Private 的将只在 Class 块内是可见的.被声明为 Public 不仅在 Class 块的内部是可见的,对 Class 块之外的代码也是可见的.没有使用 Private 或

asp:debug类调试程序_ASP CLASS类

ASP中最头疼的就是调试程序的时候不方便,我想可能很多朋友都会用这样的方法"response.write ",然后输出相关的语句来看看是否正确.前几天写了一个千行的页面,里面大概有七八个SUB/FUNCTION,调试的时候用了有三十几个 response.write ,天,调试完后把这三十个一个个删除,累! 今天看到一个ASP中的Debug类(VBS),试用了一下,绝! 使用方法很简单: test.asp <!--#INCLUDE FILE="debuggingCons