完成UBB代碼
發(fā)表時(shí)間：2024-05-27 來(lái)源：明輝站整理相關(guān)軟件相關(guān)文章人氣：
[摘要]上一次，我們談到在ASP中如何利用“正則表達(dá)式”對(duì)象來(lái)實(shí)現(xiàn)各種數(shù)據(jù)的校驗(yàn)，文中描述了正則表達(dá)式對(duì)象的強(qiáng)大功能，接下來(lái)， 我們來(lái)看看有關(guān)“正則表達(dá)式”對(duì)象的其他功能。當(dāng)我們?cè)诰W(wǎng)上沖浪的時(shí)候，尤其是瀏覽各類論壇的時(shí)候，經(jīng)常會(huì)見到“UBB代碼” 這個(gè)詞語(yǔ)。什么是UBB代碼呢？UBB代碼是HTML的一個(gè)變...
上一次，我們談到在ASP中如何利用“正則表達(dá)式”對(duì)象來(lái)實(shí)現(xiàn)各種數(shù)據(jù)的校驗(yàn)，文中描述了正則表達(dá)式對(duì)象的強(qiáng)大功能，接下來(lái)，
我們來(lái)看看有關(guān)“正則表達(dá)式”對(duì)象的其他功能。當(dāng)我們?cè)诰W(wǎng)上沖浪的時(shí)候，尤其是瀏覽各類論壇的時(shí)候，經(jīng)常會(huì)見到“UBB代碼”
這個(gè)詞語(yǔ)。什么是UBB代碼呢？UBB代碼是HTML的一個(gè)變種,是Ultimate Bulletin Board (國(guó)外一個(gè)BBS程序，國(guó)內(nèi)也有不少地方
使用這個(gè)程序)采用的一種特殊的TAG。為了避免用戶無(wú)意或者有意的ＨＴＭＬ代碼對(duì)論壇的攻擊，各種論壇基本上都屏蔽了ＨＴＭ
Ｌ代碼，但是為了使得論壇更加“多姿多彩”，論壇都會(huì)相應(yīng)的開放一些自定義的Ｔａｇ標(biāo)簽，類似于ＨＴＭＬ中的Ｔａｇ，比如
“,,[RED],[/RED]”，這樣，可以提供一些等同于ＨＴＭＬ代碼的功能，又避免了論壇受到惡意攻擊，這些自定義的
各種Ｔａｇ就是俗稱的UBB代碼。眼下時(shí)髦的論壇均支持UBB代碼，比如：ｈｔｔｐ：／／ｗｗｗ。ｃｈｉｎａａｓｐ。ｃｏｍ（動(dòng)
感技術(shù)網(wǎng)絡(luò)）的論壇就很好的支持UBB代碼。現(xiàn)在，我們一同使用“正則表達(dá)式”對(duì)象來(lái)實(shí)現(xiàn)我們自己的豐富多彩的UBB代碼吧。
首先，你的服務(wù)器端（ＩＩＳ或者ＰＷＳ）要有VBScript5.0的支持環(huán)境，一般指要安裝了IE5.X就已經(jīng)可以支持“正則表達(dá)式”對(duì)
象了。
關(guān)于“正則表達(dá)式”對(duì)象的常見方法、屬性的使用方法，我在本刊的“在ASP中利用“正則表達(dá)式”對(duì)象實(shí)現(xiàn)數(shù)據(jù)的校驗(yàn)”一文中已
經(jīng)有詳細(xì)介紹了，可以參見那一篇文章，在這里，我主要介紹一下實(shí)現(xiàn)“UBB代碼”的主要正則表達(dá)式對(duì)象方法：Replace()方
法。
Replace方法語(yǔ)法如下：
描述
替換在正則表達(dá)式查找中找到的文本。
語(yǔ)法
object.Replace(string1, string2)
Replace 方法的語(yǔ)法包含以下幾個(gè)部分：
部分描述
object 必需的�？偸且粋�(gè) RegExp 對(duì)象的名稱。
string1必需的。string1 是將要進(jìn)行文本替換的字符串。
string2必需的。 string2 是替換文本字符串。
說(shuō)明
被替換的文本的實(shí)際模式是通過(guò) RegExp 對(duì)象的 Pattern 屬性設(shè)置的。
Replace 方法返回 string1 的副本，其中的 RegExp.Pattern 文本已經(jīng)被替換為 string2。如果沒(méi)有找到匹配的文本，將返回
原來(lái)的 string1 的副本。
接下來(lái)，我們要確定我們最終想要實(shí)現(xiàn)一套什么樣的UBB代碼？這次我們要實(shí)現(xiàn)的UBB代碼功能如下：
URL超級(jí)鏈接
在你的信息里加入超級(jí)鏈接，只要按下列方式套入就可以了(UBB代碼是粗體).
www.test.net
按上例套入，UBB代碼會(huì)自動(dòng)對(duì)URL產(chǎn)生鏈接，并保證當(dāng)用戶點(diǎn)擊新的窗口時(shí)這個(gè)鏈接是打開著的。
電子郵件鏈接
在你的信息里加入電子郵件的超級(jí)鏈接，只要按照下例套入就可以了（UBB代碼是粗體）
uestc95@263.net
按上例套入，UBB代碼會(huì)對(duì)電子郵件自動(dòng)產(chǎn)生鏈接。
加入圖象
在你的信息里加入圖象，只要按下例套入就可以了(UBB代碼是粗體).
[img] http://www.test.net/test.gif [/img]
在上例中，UBB代碼會(huì)自動(dòng)讓圖象在你的信息里顯示。
其他Ｔａｇ
還有這些tag , u small h1 h2 h3 h4 h5 h6 strike blink sub sup del pre big , 這些tag的功能與html的功能等同
[h1]這是一個(gè)標(biāo)題[/h1]
[/tag]是必須的
讓一段文字使用顏色顯示
這是一個(gè)特殊的tag
[#ff0000]一段紅色的字[/#]
#后面跟的顏色的16進(jìn)制RGB代碼，如紅色是ff0000,綠色是00ff00,而藍(lán)色是0000ff
至于其他各式各樣的UBB代碼的實(shí)現(xiàn)方式同上面的類似，我們就以上面UBB代碼實(shí)現(xiàn)作為例子來(lái)講解“正則表達(dá)式”對(duì)象的強(qiáng)大功
能。
我們主要使用Replace()方法配合相應(yīng)的模版，就可以方便的實(shí)現(xiàn)UBB代碼功能了，在這里我們主要用到了兩個(gè)自己編寫的函數(shù)，第
一個(gè)函數(shù)ReplaceTest，這個(gè)函數(shù)實(shí)現(xiàn)的功能主要是將“正則表達(dá)式”對(duì)象進(jìn)行了封裝，提供三個(gè)入口參數(shù)：
Patrn
這個(gè)參數(shù)傳遞的是UBB代碼的匹配模版
Str
這個(gè)參數(shù)傳遞的是將要以UBB方式處理的字符串，比如文章內(nèi)容。
ReplStr
這個(gè)參數(shù)傳遞的是匹配成的ＨＴＭＬ代碼語(yǔ)言。
ReplaceTest函數(shù)的出口參數(shù)是經(jīng)過(guò)模版匹配替換之后的字符串。
ReplaceTest函數(shù)代碼如下：
Function ReplaceTest(patrn,str,replStr)
Dim regEx, str1 ' 建立變量。
str1=trim(str)
Set regEx = New RegExp ' 建立正則表達(dá)式。
regEx.Pattern = patrn ' 設(shè)置模式。
regEx.IgnoreCase = true ' 設(shè)置是否區(qū)分大小寫。
ReplaceTest = regEx.Replace(str1, replStr) ' 作替換。
set regEx=nothing ‘銷毀正則表達(dá)式對(duì)象
End Function
我們要編寫的第二個(gè)函數(shù)是：UBB()函數(shù)。這個(gè)函數(shù)實(shí)現(xiàn)的功能就是將一段文本進(jìn)行UBB功能的轉(zhuǎn)換。這個(gè)函數(shù)僅僅只有一個(gè)入口參
數(shù)：
Str
這個(gè)參數(shù)傳遞要被處理的字符串。
UBB函數(shù)的出口參數(shù)是經(jīng)過(guò)UBB代碼處理過(guò)后的字符串。
UBB函數(shù)的代碼如下：（程序中有詳細(xì)注釋信息）
Function UBB(str)
dim i,temp ‘聲明變量
i=1
temp=""
do while instr(i,str,"[/"]>=1‘如果沒(méi)有達(dá)到字符串的末尾
if trim(temp)="" then
temp=ReplaceTest("(\)(\S+)(\ )",str,"<i>$2</i>")‘進(jìn)行UBB代碼的模版匹配與替換
else
temp=ReplaceTest("(\)(\S+)(\ )",temp,"<i>$2</i>")‘進(jìn)行UBB代碼的模版匹配與替換
end if
temp=ReplaceTest("(\)(\S+)(\ )",temp,"<b>$2</b>")‘進(jìn)行UBB代碼的模版匹配與替換
temp=ReplaceTest("(\[big])(\S+)(\[/big])",temp,"<big>$2</big>")‘進(jìn)行UBB代碼的模版匹配與替換
temp=ReplaceTest("(\[strike])(\S+)(\[/strike])",temp,"<strike>$2</strike>")‘進(jìn)行UBB代碼的模版匹配與替換
temp=ReplaceTest("(\[sub])(\S+)(\[/sub])",temp,"<sub>$2</sub>")‘進(jìn)行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代碼的實(shí)現(xiàn)模版
temp=ReplaceTest("(\)(\S+)(\)",temp,"<a href=""mailto:$2"" target=_top>$2</a>")
temp=ReplaceTest("(\[img])(\S+)(\[/img])",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>")‘進(jìn)行UBB代碼的模版匹配與替換
i=i+1
loop
if trim(temp)<>"" then
UBB=temp‘將經(jīng)過(guò)UBB代碼過(guò)濾后的字符串傳出
else
UBB=str‘將經(jīng)過(guò)UBB代碼過(guò)濾后的字符串傳出
end if
end function
在函數(shù)UBB的代碼中我們可以看到“$1”，“$2”，“$3”等等，這些字符串就是匹配后的字符串的代詞，就如同一些“宏”一
樣，我們可以使用他們方便代替匹配到的字符串，而不必再使用程序去記住匹配字符串的位置。通過(guò)這兩個(gè)簡(jiǎn)單的函數(shù)調(diào)用，我們
實(shí)現(xiàn)了UBB代碼的功能，怎么樣，很簡(jiǎn)單吧。
這樣，我們只要在顯示文章的時(shí)候調(diào)用UBB函數(shù)，對(duì)文章內(nèi)容進(jìn)行處理之后，再顯示到瀏覽器上面，就實(shí)現(xiàn)了論壇的UBB代碼功能。
并且，你可以方便的在函數(shù)UBB添加需要的UBB代碼匹配替換模版，從而可以不斷的擴(kuò)充你的UBB代碼的功能。
（以上程序均在WinNT4.0英文版SP5，IIS4.0,IE5.x中運(yùn)行通過(guò)）
