• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    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 
    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,"""(.*?)""","""(.*)(.+?>)("KeyWordObjectCommand")+(.+?>)(.*)""",StringsColor,1)' 字符串 
        Temp=String_Replace(Temp,"(('|rem).*)","'(.*)(.+?>)("KeyWordObjectCommand")+(.+?>)(.*)",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%>
    您可能感兴趣的文章:
    • JavaScript版代码高亮
    • 用js查找法实现当前栏目的高亮显示的代码
    • js兼容IE6,IE7菜单高亮显示效果代码
    • javascript网页关键字高亮代码
    • fckeditor 代码语法高亮
    • Javascript实现的CSS代码高亮显示
    • tinyMCE插件开发之插入html,php,sql,js代码 并代码高亮显示
    • 两种简单实现菜单高亮显示的JS类代码
    • javascript 关键字高亮显示实现代码
    • 高亮显示web页表格行的javascript代码
    • 高效的表格行背景隔行变色及选定高亮的JS代码
    • jQuery语法高亮插件支持各种程序源代码语法着色加亮
    • 分享15个美化代码的代码语法高亮工具
    • 用JS将搜索的关键字高亮显示实现代码
    • 如何实现正则表达式的JavaScript的代码高亮
    • 2014最热门的JavaScript代码高亮插件推荐
    • 2016年最热门的15 款代码语法高亮工具,美化你的代码
    上一篇:写入文本文件的过程函数(ASP)
    下一篇:ASP实现长文章分页
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    ASP语法高亮类代码 ASP,语法,高亮,类,代码,ASP,