ASP语法高亮类代码

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 款代码语法高亮工具，美化你的代码