在ASP中利用“正则表达式”?对象实现UBB风格的论坛
|
上一次，我们谈到在ASP中如何利用“正则表达式”对象来实现各种数据的校验，文中描述了正则表达式对象的强大功能，接下来，我们来看看有关“正则表达式”对象的其他功能。当我们在网上冲浪的时候，尤其是浏览各类论坛的时候，经常会见到“UBB代码”这个词语。什么是UBB代码呢？UBB代码是HTML的一个变种,是Ultimate Bulletin Board (国外一个BBS程序，国内也有不少地方使用这个程序)采用的一种特殊的TAG。为了避免用户无意或者有意的ＨＴＭＬ代码对论坛的攻击，各种论坛基本上都屏蔽了ＨＴＭＬ代码，但是为了使得论坛更加“多姿多彩”，论坛都会相应的开放一些自定义的Ｔａｇ标签，类似于ＨＴＭＬ中的Ｔａｇ，比如“,,[RED],[/RED]”，这样，可以提供一些等同于ＨＴＭＬ代码的功能，又避免了论坛受到恶意攻击，这些自定义的各种Ｔａｇ就是俗称的UBB代码。眼下时髦的论坛均支持UBB代码，比如：ｈｔｔｐ：／／ｗｗｗ。ｃｈｉｎａａｓｐ。ｃｏｍ（动感技术网络）的论坛就很好的支持UBB代码。现在，我们一同使用“正则表达式”对象来实现我们自己的丰富多彩的UBB代码吧。 按上例套入，UBB代码会对电子邮件自动产生链接。 加入图象 在你的信息里加入图象，只要按下例套入就可以了(UBB代码是粗体). [img ]/uploadfiles/2005/03121513734.gif[/img] 在上例中，UBB代码会自动让图象在你的信息里显示。 其他Ｔａｇ 还有这些tag,u small h1 h2 h3 h4 h5 h6 strike blink sub sup del pre big,这些tag的功能与html的功能等同 [h1]这是一个标题[/h1] [/tag]是必须的 让一段文字使用颜色显示 这是一个特殊的tag [#ff0000]一段红色的字[/#] #后面跟的颜色的16进制RGB代码，如红色是ff0000,绿色是00ff00,而蓝色是0000ff 至于其他各式各样的UBB代码的实现方式同上面的类似，我们就以上面UBB代码实现作为例子来讲解“正则表达式”对象的强大功能。 我们主要使用Replace()方法配合相应的模版，就可以方便的实现UBB代码功能了，在这里我们主要用到了两个自己编写的函数，第一个函数ReplaceTest，这个函数实现的功能主要是将“正则表达式”对象进行了封装，提供三个入口参数： Patrn 这个参数传递的是UBB代码的匹配模版 Str 这个参数传递的是将要以UBB方式处理的字符串，比如文章内容。 ReplStr 这个参数传递的是匹配成的ＨＴＭＬ代码语言。 ReplaceTest函数的出口参数是经过模版匹配替换之后的字符串。 ReplaceTest函数代码如下： Function ReplaceTest(patrn,str,replStr) Dim regEx,str1 ' 建立变量。 str1=trim(str) Set regEx = New RegExp ' 建立正则表达式。 regEx.Pattern = patrn ' 设置模式。 regEx.IgnoreCase = true ' 设置是否区分大小写。 ReplaceTest = regEx.Replace(str1,replStr) ' 作替换。 set regEx=nothing ‘销毁正则表达式对象 End Function 我们要编写的第二个函数是：UBB()函数。这个函数实现的功能就是将一段文本进行UBB功能的转换。这个函数仅仅只有一个入口参数： Str 这个参数传递要被处理的字符串。 UBB函数的出口参数是经过UBB代码处理过后的字符串。 UBB函数的代码如下：（程序中有详细注释信息） Function UBB(str) dim i,temp ‘声明变量 i=1 temp="" do while instr(i,"[/"]>=1 ‘如果没有达到字符串的末尾 if trim(temp)="" then temp=ReplaceTest("()(S+)()","<i>$2</i>") ‘进行UBB代码的模版匹配与替换 else temp=ReplaceTest("()(S+)()",temp,"<i>$2</i>") ‘进行UBB代码的模版匹配与替换 end if temp=ReplaceTest("()(S+)()","<b>$2</b>") ‘进行UBB代码的模版匹配与替换 temp=ReplaceTest("([big])(S+)([/big])","<big>$2</big>") ‘进行UBB代码的模版匹配与替换 temp=ReplaceTest("([strike])(S+)([/strike])","<strike>$2</strike>")‘进行UBB代码的模版匹配与替换 temp=ReplaceTest("([sub])(S+)([/sub])","<sub>$2</sub>")‘进行UBB代码的模版匹配与替换 temp=ReplaceTest("([sup])(S+)([/sup])","<sup>$2</sup>") temp=ReplaceTest("([pre])(S+)([/pre])","<pre>$2</pre>") temp=ReplaceTest("()(S+)()","<u>$2</u>") temp=ReplaceTest("([small])(S+)([/small])","<small>$2</small>") temp=ReplaceTest("([h1])(S+)([/h1])","<h1>$2</h1>") temp=ReplaceTest("([h2])(S+)([/h2])","<h2>$2</h2>") temp=ReplaceTest("([h3])(S+)([/h3])","<h3>$2</h3>") temp=ReplaceTest("([h4])(S+)([/h4])","<h4>$2</h4>") temp=ReplaceTest("([h5])(S+)([/h5])","<h5>$2</h5>") temp=ReplaceTest("([h6])(S+)([/h6])","<h6>$2</h6>") temp=ReplaceTest("([red])(S+)([/red])","<font color=red>$2</font>") '这里可以增加新的UBB代码的实现模版 temp=ReplaceTest("( temp=ReplaceTest("([img])(S+)([/img])","<img src=""$2"">") temp=ReplaceTest("()(S+)()","<a href=""$2"" target=_top>$2</a>") temp=ReplaceTest("([#(S+)])(S+)([/#])","<font color=$1>$3</font>")‘进行UBB代码的模版匹配与替换 i=i+1 loop if trim(temp)<>"" then UBB=temp ‘将经过UBB代码过滤后的字符串传出 else UBB=str ‘将经过UBB代码过滤后的字符串传出 end if end function 在函数UBB的代码中我们可以看到“$1”，“$2”，“$3”等等，这些字符串就是匹配后的字符串的代词，就如同一些“宏”一样，我们可以使用他们方便代替匹配到的字符串，而不必再使用程序去记住匹配字符串的位置。通过这两个简单的函数调用，我们实现了UBB代码的功能，怎么样，很简单吧。 这样，我们只要在显示文章的时候调用UBB函数，对文章内容进行处理之后，再显示到浏览器上面，就实现了论坛的UBB代码功能。并且，你可以方便的在函数UBB添加需要的UBB代码匹配替换模版，从而可以不断的扩充你的UBB代码的功能。 （以上程序均在WinNT4.0英文版SP5，IIS4.0,IE5.x中运行通过） （编辑：晋中站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
