此类高亮根据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%>
华山资源网 Design By www.eoogi.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
华山资源网 Design By www.eoogi.com

稳了!魔兽国服回归的3条重磅消息!官宣时间再确认!

昨天有一位朋友在大神群里分享,自己亚服账号被封号之后居然弹出了国服的封号信息对话框。

这里面让他访问的是一个国服的战网网址,com.cn和后面的zh都非常明白地表明这就是国服战网。

而他在复制这个网址并且进行登录之后,确实是网易的网址,也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情,因为以前都没有出现这样的情况,现在突然提示跳转到国服战网的网址,是不是说明了简体中文客户端已经开始进行更新了呢?