生成语法高亮代码

以你之姓@ 2021-11-11 23:06 447阅读 0赞

**把下面代码保存为HightLightCode.asp：**

![None.gif][] < html >   
![None.gif][] < head >   
![None.gif][] < title > 生成语法高亮代码 </ title >   
![None.gif][] < meta http \- equiv = " Content-Type "  content = " text/html; charset=gb2312 " >   
![None.gif][] </ head >   
![None.gif][] < body >   
![None.gif][] < FORM name = form1 METHOD = POST action = "" >   
![None.gif][] < TEXTAREA NAME = " Content "  ROWS = " 10 "  COLS = " 20 " >< % = Request( " Content " )% ></ TEXTAREA >   
![None.gif][] < br >< br >< INPUT TYPE = " submit "  value = " 生成语法高亮代码 "  name = " make " >   
![None.gif][] </ FORM >   
![None.gif][] < input name = " Increase "  title = " 增大编辑框 "  type = " button "  value = "  +  "  onClick = " javascript:form1.Content.rows=form1.Content.rows+2;form1.Content.cols=form1.Content.cols+4; " >   < input name = " Decrease "  title = " 缩小编辑框 "  type = " button "  value = "  -  "  onClick = " javascript:if((form1.Content.rows>10)&&(form1.Content.cols>20))\{ form1.Content.rows=form1.Content.rows-2;form1.Content.cols=form1.Content.cols-4\} " >< Br >   
![None.gif][] < %  
![None.gif][]Class Wyd\_AspCodeHighLight  
![None.gif][] Private  RegEx  
![None.gif][] Public  Keyword,ObjectCommand,Strings,VBCode  
![None.gif][] Public  KeyWordColor,ObjectCommandColor,StringsColor,Comment,CodeColor  
![None.gif][]   Private   Sub  Class\_Initialize()  
![None.gif][]     Set  RegEx  =   New  RegExp  
![None.gif][]RegEx.IgnoreCase  =   True     '  设置是否区分字母的大小写 True 不区分。   
![None.gif][]     RegEx.Global  =   True     '  设置全程性质。   
![None.gif][]     KeyWordColor = " \#0000FF"   
![None.gif][]     ObjectCommandColor = " \#FF0000"   
![None.gif][]     StringsColor = " \#FF00FF"   
![None.gif][] Comment = " \#008000"   
![None.gif][] CodeColor = " \#993300"   
![None.gif][] Keyword = " Set|Private|If|Then|Sub|End|Function|For|Next|Do|While|Wend|True|False|Nothing|Class "   ' 关建字 请自己添加   
![None.gif][] ObjectCommand = " Left|Mid|Right|Int|Cint|Clng|String|Join|Array "   ' 函数 请自己添加   
![None.gif][] VBCode = " "   
![None.gif][]    End Sub   
![None.gif][]   Private   Sub  Class\_Terminate()  
![None.gif][]     Set  RegEx  =   Nothing   
![None.gif][]   End Sub   
![None.gif][]   Private   Function  M\_Replace(Str,Pattern,Color)  
![None.gif][]    RegEx.Pattern  =  Pattern   '  设置模式。   
![None.gif][]     M\_Replace = RegEx. Replace (Str, " <font color= " & Color & " >$1</font> " )  
![None.gif][]   End Function    
![None.gif][]  
![None.gif][]  
![None.gif][]   Private   Function  String\_Replace(Str,Pattern,Pattern1,Color,IsString)  
![None.gif][]   Dim  Temp,RetStr  
![None.gif][]RegEx.Pattern  = Pattern1  
![None.gif][]     Set  Matches  =  RegEx. Execute (Str)  
![None.gif][]     For   Each  Match In Matches    '  遍历 Matches 集合   
![None.gif][]        Temp = Re(Match.value)  
![None.gif][]       Str  =   Replace (Str,Match.value,Temp)  
![None.gif][]     Next   
![None.gif][]RegEx.Pattern  =  Pattern   '  设置模式。   
![None.gif][] If  IsString = 1   Then   
![None.gif][]       String\_Replace = RegEx. Replace (Str, " <font color= " & Color & " >"$1"</font> " )  
![None.gif][] Else   
![None.gif][]    String\_Replace = RegEx. Replace (Str, " <font color= " & Color & " >$1</font> " )  
![None.gif][] End   If   
![None.gif][]   End Function   
![None.gif][]  
![None.gif][]  
![None.gif][]   Private   Function  Re(Str)  
![None.gif][]    Dim  TRegEx,Temp  
![None.gif][]    Set  TRegEx  =   New  RegExp  
![None.gif][]   TRegEx.IgnoreCase  =   True    '  设置是否区分字母的大小写。   
![None.gif][]    TRegEx.Global  =   True     '  设置全程性质。   
![None.gif][]    TRegEx.Pattern = " <.\*?>"   
![None.gif][]    Temp = TRegEx. Replace (Str, "" )  
![None.gif][]   Temp = Replace (Temp, " < " , "" )  
![None.gif][]   Temp = Replace (Temp, " > " , "" )  
![None.gif][]   Re = Temp  
![None.gif][]    Set  TRegEx = Nothing   
![None.gif][]   End Function   
![None.gif][]    
![None.gif][]   Public   Function  MakeLi()  
![None.gif][]     Dim  Temp  
![None.gif][] If  VBCode = ""   Then   
![None.gif][]    MakeLi = " "   
![None.gif][]      Exit   Function   
![None.gif][] End   If   
![None.gif][]    VBCode = HTMLEncode(VBCode)  
![None.gif][]    Temp = M\_Replace(VBCode, " \\b( " & Keyword & " )\\b " ,KeyWordColor)  
![None.gif][]    Temp = M\_Replace(Temp, " \\b( " & ObjEctCommand & " )\\b " ,ObjectCommandColor)  
![None.gif][]    Temp = String\_Replace(Temp, " ""(.\*?)"" " , " ""(.\*)(<.+?>)( " & KeyWord & ObjectCommand & " )+(<.+?>)(.\*)"" " ,StringsColor, 1 ) '  字符串   
![None.gif][]     Temp = String\_Replace(Temp, " (('|rem).\*) " , " '(.\*)(<.+?>)( " & KeyWord & ObjectCommand & " )+(<.+?>)(.\*) " ,Comment, 0 )  ' 注释   
![None.gif][]     MakeLi = " <FONT  COLOR= " & CodeColor & " > " & RepVbCrlf(Temp) & " </FONT>"   
![None.gif][]    End Function   
![None.gif][]   Public   Function  RepVbCrlf(fString)  
![None.gif][]     RepVbCrlf  =   Replace (fString,  CHR ( 10 ),  " <BR>  " )  
![None.gif][]   End Function   
![None.gif][]   Public   Function  HTMLEncode(fString)  
![None.gif][]      If   IsNull (fString)  Or  fString = ""   Then   
![None.gif][]     HTMLEncode = " "   
![None.gif][]    Exit   Function   
![None.gif][]      End   If   
![None.gif][]     fString  =   replace (fString,  " > " ,  " > " )  
![None.gif][]     fString  =   replace (fString,  " < " ,  " < " )  
![None.gif][]      ' fString = Replace(fString, CHR(32), "&nbsp;")   
![None.gif][]       ' fString = Replace(fString, CHR(9), "&nbsp;")   
![None.gif][]       ' fString = Replace(fString, CHR(34), """)   
![None.gif][]       ' fString = Replace(fString, CHR(39), "&\#39;")   
![None.gif][]       ' fString = Replace(fString, CHR(13), "")   
![None.gif][]       ' fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")   
![None.gif][]       ' fString = Replace(fString, CHR(10), "<BR> ")   
![None.gif][]      HTMLEncode  =  fString  
![None.gif][]    End Function   
![None.gif][] End  Class  
![None.gif][]  
![None.gif][]star = timer ()  
![None.gif][] Set  TT  =   New  Wyd\_AspCodeHighLight  
![None.gif][] If  Request( " Content " ) <> ""   Then   
![None.gif][]  TT.VBCode = Request( " Content " )  
![None.gif][]  Response.write TT.MakeLi()  
![None.gif][]  REsponse.write  " <br>耗时： " & FormatNumber ( timer () \- star, 2 ) \* 1000   
![None.gif][] End   If % >   
![None.gif][] </ body >   
![None.gif][] </ html >

转载于:https://www.cnblogs.com/Dicky/archive/2005/03/17/122531.html

[None.gif]: