ASP高亮类

2016-02-19 09:44 5 1 收藏

下面请跟着图老师小编一起来了解下ASP高亮类,精心挑选的内容希望大家喜欢,不要忘记点个赞哦!

【 tulaoshi.com - Web开发 】

代码如下:

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), "/PP ")
    ''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

来源:http://www.tulaoshi.com/n/20160219/1591901.html

延伸阅读
标签: Web开发
作者的blog: http://blog.csdn.net/oyiboy/ 我之所以还是要宣扬用MVC来开发ASP,只是想让面向过程的思考方式变成面向对象的思考方式,这个对于任何一种语言的开发员来说都是有好处的。 MVC是个标准模型,ASP要实现似乎真的是很困难,但是标准是标准,运用是运用,既然ASP要实现这个模型很难,那可以尝试着将MVC模型变形成适合自己的模型...
标签: ASP
class Base64Class rem Const dim sBASE_64_CHARACTERS'转化码 dim lenString '计算字符串的长度 dim iCount '计数器 dim returnValue '返回值 dim tempChar'缓存字符 dim tempString'缓存字符串 dim paramString '参数字符串 dim temHex'缓存缓存十六进制 dim tempLow'缓存低位 dim tem...
标签: ASP
  方式一:把Java类注册成ActiveX组件 步骤一: 创建一个Java类,命名为Test.java public class Test {       public String getWord()       {           return "Hello World";       } } 步骤二: 编译成c...
标签: Web开发
所有写程序的人都知道,当你逐渐对您要实现的功能展开的时候,很大的时候,第一天写的东西第二天就忘了写到那里了,很多的时候,不得不写上详细的程序开发笔记,这在ASP的系统开发中感觉尤其文件、函数复杂的时候,当我们打算对网站的一部分功能进行修改的时候,感觉无从下手或者感觉要修改的地方。这时候,如果您学过任何一门面向对象的编程的...
标签: Web开发
前几天大佛写了“ASP设计模式”,可能有些初学者或者刚刚接触ASP的朋友不一定完全看得明白,偶就整理了一下编写一个ASP类的方法,大部分是从网上找来的。希望对朋友们有帮助。  《ASP设计模式》(作者 我佛山人): dispbbs.asp?boardID=20&ID=247879 首先ASP的类是由事件和方法(它们就是构成类的成员了)构成的,如果大家还没有接...

经验教程

688

收藏

47
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部