在ASP中利用“正则表达式” 对象实现UBB风格的论…

上一次，我们谈到在ASP中如何利用“正则表达式”对象来实现各种数据的校验，文中描述了正则表达式对象的强大功能，接下来，我们来看看有关“正则表达式”对象的其他功能。当我们在网上冲浪的时候，尤其是浏览各类论坛的时候，经常会见到“UBB代码”这个词语。什么是UBB代码呢？UBB代码是HTML的一个变种,是Ultimate Bulletin Board (国外一个BBS程序，国内也有不少地方使用这个程序)采用的一种特殊的TAG。为了避免用户无意或者有意的ＨＴＭＬ代码对论坛的攻击，各种论坛基本上都屏蔽了ＨＴＭＬ代码，但是为了使得论坛更加“多姿多彩”，论坛都会相应的开放一些自定义的Ｔａｇ标签，类似于ＨＴＭＬ中的Ｔａｇ，比如“[URL],[/URL],[RED],[/RED]”，这样，可以提供一些等同于ＨＴＭＬ代码的功能，又避免了论坛受到恶意攻击，这些自定义的各种Ｔａｇ就是俗称的UBB代码。眼下时髦的论坛均支持UBB代码，比如：动感技术网络的论坛就很好的支持UBB代码。现在，我们一同使用“正则表达式”对象来实现我们自己的丰富多彩的UBB代码吧。 Www~Chinaz~com

首先，你的服务器端（ＩＩＳ或者ＰＷＳ）要有VBScript5.0的支持环境，一般指要安装了IE5.X就已经可以支持“正则表达式”对象了。

 

关于“正则表达式”对象的常见方法、属性的使用方法，我在本刊的“在ASP中利用“正则表达式”对象实现数据的校验”一文中已经有详细介绍了，可以参见那一篇文章，在这里，我主要介绍一下实现“UBB代码”的主要正则表达式对象方法：Replace()方法。

Www~Chinaz~com

 

Replace方法语法如下： 中国.站.长站

Replace方法语法如下： 中国.站.长站

描述 中国站长.站

替换在正则表达式查找中找到的文本。 站.长.站

语法 中国站.长站

object.Replace(string1, string2) Chinaz~com

Replace 方法的语法包含以下几个部分： 中国.站长站

部分　　　　　　　描述 [中国站长站]

object　 　　　　　必需的。总是一个 RegExp 对象的名称。 Www_Chinaz_com

string1　　　　　　必需的。string1 是将要进行文本替换的字符串。 Www^Chinaz^com

string2　　　　　　必需的。 string2 是替换文本字符串。 Chinaz

说明

Www@Chinaz@com

 

被替换的文本的实际模式是通过 RegExp 对象的 Pattern 属性设置的。

中国站长_站,为中文网站提供动力

 

Replace 方法返回 string1 的副本，其中的 RegExp.Pattern 文本已经被替换为 string2。如果没有找到匹配的文本，将返回原来的 string1 的副本。

中国.站.长站

 

接下来，我们要确定我们最终想要实现一套什么样的UBB代码？这次我们要实现的UBB代码功能如下：

中国.站.长站

 

URL超级链接 Chinaz_com

在你的信息里加入超级链接，只要按下列方式套入就可以了(UBB代码是粗体). Chinaz^com

[url]www.test.net[/url]

[中国站长站]

 

按上例套入，UBB代码会自动对URL产生链接，并保证当用户点击新的窗口时这个链接是打开着的。

站.长.站

 

电子邮件链接 中.国.站长站

在你的信息里加入电子邮件的超级链接，只要按照下例套入就可以了（UBB代码是粗体）

Www^Chinaz^com

 

[email]uestc95@263.net[/email] 站.长站

按上例套入，UBB代码会对电子邮件自动产生链接。 Www@Chinaz@com

加入图象

Www^Chinaz^com

 

在你的信息里加入图象，只要按下例套入就可以了(UBB代码是粗体).

 

[img]http://www.test.net/test.gif[/img] 站长.站

在上例中，UBB代码会自动让图象在你的信息里显示。 中国站长_站,为中文网站提供动力

其他TAG 中国站长_站,为中文网站提供动力

还有这些tag , u small h1 h2 h3 h4 h5 h6 strike blink sub sup del pre big , 这些tag的功能与html的功能等同

 

[h1]这是一个标题[/h1]

Www^Chinaz^com

 

[/tag]是必须的

 

让一段文字使用颜色显示

中国站.长.站

 

这是一个特殊的tag

站.长站

 

[#ff0000]一段红色的字[/#]

 

#后面跟的颜色的16进制RGB代码，如红色是ff0000,绿色是00ff00,而蓝色是0000ff 中.国.站长站

至于其他各式各样的UBB代码的实现方式同上面的类似，我们就以上面UBB代码实现作为例子来讲解“正则表达式”对象的强大功能。 中国.站长站

我们主要使用Replace()方法配合相应的模版，就可以方便的实现UBB代码功能了，在这里我们主要用到了两个自己编写的函数，第一个函数ReplaceTest，这个函数实现的功能主要是将“正则表达式”对象进行了封装，提供三个入口参数：

 

Patrn 中.国站长站

这个参数传递的是UBB代码的匹配模版 Chinaz@com

Str [中国站长站]

这个参数传递的是将要以UBB方式处理的字符串，比如文章内容。

 

ReplStr Chinaz_com

这个参数传递的是匹配成的ＨＴＭＬ代码语言。

中国站.长.站

 

ReplaceTest函数的出口参数是经过模版匹配替换之后的字符串。 Www^Chinaz^com

ReplaceTest函数代码如下：

Www_Chinaz_com

 

Function ReplaceTest(patrn,str,replStr)

Www.Chinaz.com

 

Dim regEx, str1 ' 建立变量。

 

str1=trim(str)

中国站长.站

 

Set regEx = New RegExp ' 建立正则表达式。 Chinaz@com

regEx.Pattern = patrn ' 设置模式。

 

regEx.IgnoreCase = true ' 设置是否区分大小写。 Www^Chinaz^com

ReplaceTest = regEx.Replace(str1, replStr) ' 作替换。 站.长站

set regEx=nothing ‘销毁正则表达式对象 Www~Chinaz~com

End Function

 

我们要编写的第二个函数是：UBB()函数。这个函数实现的功能就是将一段文本进行UBB功能的转换。这个函数仅仅只有一个入口参数： 站.长.站

Str 中.国.站.长.站

这个参数传递要被处理的字符串。 Www~Chinaz~com

UBB函数的出口参数是经过UBB代码处理过后的字符串。 站.长站

UBB函数的代码如下：（程序中有详细注释信息）

 

Function UBB(str) [中国站长站]

dim i,temp ‘声明变量

 

i=1 中国站长.站

temp="" Chinaz^com

do while instr(i,str,"[/"]>=1　‘如果没有达到字符串的末尾 Www@Chinaz@com

if trim(temp)="" then

 

temp=ReplaceTest("(\[i])(\S+)(\[/i])",str,"<i>$2</i>")　　‘进行UBB代码的模版匹配与替换 Www^Chinaz^com

else

Www^Chinaz^com

 

temp=ReplaceTest("(\[i])(\S+)(\[/i])",temp,"<i>$2</i>")　　‘进行UBB代码的模版匹配与替换

 

end if

Chinaz^com

 

temp=ReplaceTest("(\[b])(\S+)(\[/b])",temp,"<b>$2</b>")　　‘进行UBB代码的模版匹配与替换

 

temp=ReplaceTest("(\[big])(\S+)(\[/big])",temp,"<big>$2</big>")　‘进行UBB代码的模版匹配与替换

 

temp=ReplaceTest("(\[strike])(\S+)(\[/strike])",temp,"<strike>$2</strike>")‘进行UBB代码的模版匹配与替换

 

temp=ReplaceTest("(\[sub])(\S+)(\[/sub])",temp,"_$2")‘进行UBB代码的模版匹配与替换 中国站.长.站

temp=ReplaceTest("(\[sup])(\S+)(\[/sup])",temp,"^$2") Www_Chinaz_com

temp=ReplaceTest("(\[pre])(\S+)(\[/pre])",temp,"<pre>$2</pre>")

 

temp=ReplaceTest("(\[u])(\S+)(\[/u])",temp,"<u>$2</u>")

中.国.站长站

 

temp=ReplaceTest("(\[small])(\S+)(\[/small])",temp,"<small>$2</small>")

Chinaz^com

 

temp=ReplaceTest("(\[h1])(\S+)(\[/h1])",temp,"<h1>$2</h1>") Www@Chinaz@com

temp=ReplaceTest("(\[h2])(\S+)(\[/h2])",temp,"<h2>$2</h2>") 站.长.站

temp=ReplaceTest("(\[h3])(\S+)(\[/h3])",temp,"<h3>$2</h3>")

站长.站

 

temp=ReplaceTest("(\[h4])(\S+)(\[/h4])",temp,"<h4>$2</h4>") 中国.站长站

temp=ReplaceTest("(\[h5])(\S+)(\[/h5])",temp,"<h5>$2</h5>") Chinaz.com

temp=ReplaceTest("(\[h6])(\S+)(\[/h6])",temp,"<h6>$2</h6>")

中国站.长.站

 

temp=ReplaceTest("(\[red])(\S+)(\[/red])",temp,"<font color=red>$2</font>") 中国站长_站,为中文网站提供动力

'这里可以增加新的UBB代码的实现模版 站长.站

temp=ReplaceTest("(\[email])(\S+)(\[/email])",temp,"<a href=""mailto:$2"" target=_top>$2</a>")

 

temp=ReplaceTest("(\[img])(\S+)(\[/img])",temp,"<img src=""$2"">") Www.Chinaz.com

temp=ReplaceTest("(\[url])(\S+)(\[/url])",temp,"<a href=""$2"" target=_top>$2</a>") Www^Chinaz^com

temp=ReplaceTest("(\[#(\S+)])(\S+)(\[/#])",temp,"<font color=$1>$3</font>")‘进行UBB代码的模版匹配与替换 中国站.长.站

i=i+1

中国站.长.站

 

loop

Www.Chinaz.com

 

if trim(temp)<>"" then

 

UBB=temp　‘将经过UBB代码过滤后的字符串传出

 

else

 

UBB=str　　‘将经过UBB代码过滤后的字符串传出

Chinaz~com

 

end if

 

end function

 

在函数UBB的代码中我们可以看到“$1”，“$2”，“$3”等等，这些字符串就是匹配后的字符串的代词，就如同一些“宏”一样，我们可以使用他们方便代替匹配到的字符串，而不必再使用程序去记住匹配字符串的位置。通过这两个简单的函数调用，我们实现了UBB代码的功能，怎么样，很简单吧。

 

这样，我们只要在显示文章的时候调用UBB函数，对文章内容进行处理之后，再显示到浏览器上面，就实现了论坛的UBB代码功能。并且，你可以方便的在函数UBB添加需要的UBB代码匹配替换模版，从而可以不断的扩充你的UBB代码的功能。

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有