ubb|對象|正則 在ASP中利用“Regex” 對象實現UBB風格的論壇
轉貼者語：無意中在中華網發現了此文，說的就是本站論壇的UBB風格的實現原理，所以貼出來和大家一起分享。
我們談到在ASP中如何利用“Regex”對象來實現各種資料的校正，文中描述了Regex對象的強大功能，接下來，我們來看看有關“Regex”對象的其他功能。當我們在網上衝浪的時候，尤其是瀏覽各類論壇的時候，經常會見到“UBB代碼”這個詞語。什麼是UBB代碼呢？UBB代碼是HTML的一個變種,是Ultimate Bulletin Board (國外一個BBS程式，國內也有不少地方使用這個程式)採用的一種特殊的TAG。為了避免使用者無意或者有意的ＨＴＭＬ代碼對論壇的攻擊，各種論壇基本上都屏蔽了ＨＴＭＬ代碼，但是為了使得論壇更加“多姿多彩”，論壇都會相應的開放一些自訂的Ｔａｇ標籤，類似於ＨＴＭＬ中的Ｔａｇ，比如“,,[RED],[/RED]”，這樣，可以提供一些等同於ＨＴＭＬ代碼的功能，又避免了論壇受到惡意攻擊，這些自訂的各種Ｔａｇ就是俗稱的UBB代碼。眼下時髦的論壇均支援UBB代碼，比如：ｈｔｔｐ：／／ｗｗｗ。ｃｈｉｎａａｓｐ。ｃｏｍ（動感技術網路）的論壇就很好的支援UBB代碼。現在，我們一同使用“Regex”對象來實現我們自己的豐富多彩的UBB代碼吧。
首先，你的伺服器端（ＩＩＳ或者ＰＷＳ）要有VBScript5.0的支援環境，一般指要安裝了IE5.X就已經可以支援“Regex”對象了。
關於“Regex”對象的常見方法、屬性的使用方法，我在本刊的“在ASP中利用“Regex”對象實現資料的校正”一文中已經有詳細介紹了，可以參見那一篇文章，在這裡，我主要介紹一下實現“UBB代碼”的主要Regex對象方法：Replace()方法。
Replace方法文法如下：
Replace方法文法如下：
描述
替換在Regex尋找中找到的文本。
文法
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代碼是粗體）
uestc95@263.net
按上例套入，UBB代碼會對電子郵件自動產生連結。
加入圖象
在你的資訊裡加入圖象，只要按下例套入就可以了(UBB代碼是粗體).
在上例中，UBB代碼會自動讓圖象在你的資訊裡顯示。
其他Ｔａｇ
還有這些tag , u small h1 h2 h3 h4 h5 h6 strike blink sub sup del pre big , 這些tag的功能與html的功能等同
這是一個標題
[/tag]是必須的
讓一段文字使用顏色顯示
這是一個特殊的tag
一段紅色的字
#後面跟的顏色的16進位RGB代碼，如紅色是ff0000,綠色是00ff00,而藍色是0000ff
至於其他各式各樣的UBB代碼的實現方式同上面的類似，我們就以上面UBB代碼實現作為例子來講解“Regex”對象的強大功能。
我們主要使用Replace()方法配合相應的模版，就可以方便的實現UBB代碼功能了，在這裡我們主要用到了兩個自己編寫的函數，第一個函數ReplaceTest，這個函數實現的功能主要是將“Regex”對象進行了封裝，提供三個入口參數：
Patrn
這個參數傳遞的是UBB代碼的匹配模版
Str
這個參數傳遞的是將要以UBB方式處理的字串，比如文章內容。
ReplStr
這個參數傳遞的是匹配成的ＨＴＭＬ代碼語言。
ReplaceTest函數的出口參數是經過模版匹配替換之後的字串。
ReplaceTest函數代碼如下：
Function ReplaceTest(patrn,str,replStr)
Dim regEx, str1 ' 建立變數。
str1=trim(str)
Set regEx = New RegExp ' 建立Regex。
regEx.Pattern = patrn ' 設定模式。
regEx.IgnoreCase = true ' 設定是否區分大小寫。
ReplaceTest = regEx.Replace(str1, replStr) ' 作替換。
set regEx=nothing ‘銷毀Regex對象
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("(\)(\S+)(\)",temp,"<big>$2</big>") ‘進行UBB代碼的模版匹配與替換
temp=ReplaceTest("(\
)(\S+)(\
)",temp,"<strike>$2</strike>")‘進行UBB代碼的模版匹配與替換
temp=ReplaceTest("(\
)(\S+)(\)",temp,"<sub>$2</sub>")‘進行UBB代碼的模版匹配與替換
temp=ReplaceTest("(\
)(\S+)(\)",temp,"<sup>$2</sup>")
temp=ReplaceTest("(\
)(\S+)(\
)",temp,"<pre>$2</pre>")
temp=ReplaceTest("(\
)(\S+)(\)",temp,"<u>$2</u>")
temp=ReplaceTest("(\
)(\S+)(\)",temp,"<small>$2</small>")
temp=ReplaceTest("(\
)(\S+)(\
)",temp,"<h1>$2</h1>")
temp
