分享
 
 
 

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

王朝asp·作者佚名  2006-11-24
窄屏简体版  字體: |||超大  

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

首先,你的服务器端(IIS或者PWS)要有VBScript5.0的支持环境,一般指要安装了IE5.X就已经可以支持“正则表达式”对象了。

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

Replace方法语法如下:

Replace方法语法如下:

描述

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

语法

object.Replace(string1, string2)

Replace 方法的语法包含以下几个部分:

部分描述

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

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

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

说明

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

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

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

URL超级链接

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

www.test.net

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

电子邮件链接

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

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

按上例套入,UBB代码会对电子邮件自动产生链接。

加入图象

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

在上例中,UBB代码会自动让图象在你的信息里显示。

其他Tag

还有这些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

这个参数传递的是匹配成的HTML代码语言。

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,str,"[/"]>=1‘如果没有达到字符串的末尾

if trim(temp)="" then

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

else

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

end if

temp=ReplaceTest("(\)(S+)()",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,"<sub>$2</sub>")‘进行UBB代码的模版匹配与替换

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

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

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

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

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

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>")

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("(\

)",temp,"<img src=""$2"">")

temp=ReplaceTest("(\)(S+)()",temp,"<a href=""$2"" target=_top>$2</a>")

temp=ReplaceTest("(\[#(\S+)])(\S+)(\[/#])",temp,"<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中运行通过)

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有