|
上一次，我們談到在ASP中如何利用“正則表達式”對象來實現各種數據的校驗，文中描述了正則表達式對象的強大功能，接下來，
我們來看看有關“正則表達式”對象的其他功能。當我們在網上沖浪的時候，尤其是瀏覽各類論壇的時候，經常會見到“UBB代碼”
這個詞語。什么是UBB代碼呢？UBB代碼是HTML的一個變種,是Ultimate Bulletin Board (國外一個BBS程序，國內也有不少地方
使用這個程序)采用的一種特殊的TAG。為了避免用戶無意或者有意的ＨＴＭＬ代碼對論壇的攻擊，各種論壇基本上都屏蔽了ＨＴＭ
Ｌ代碼，但是為了使得論壇更加“多姿多彩”，論壇都會相應的開放一些自定義的Ｔａｇ標簽，類似于ＨＴＭＬ中的Ｔａｇ，比如
“,,[RED],[/RED]”，這樣，可以提供一些等同于ＨＴＭＬ代碼的功能，又避免了論壇受到惡意攻擊，這些自定義的
各種Ｔａｇ就是俗稱的UBB代碼。眼下時髦的論壇均支持UBB代碼，比如：ｈｔｔｐ：／／ｗｗｗ。ｃｈｉｎａａｓｐ。ｃｏｍ（動
感技術網絡）的論壇就很好的支持UBB代碼。現在，我們一同使用“正則表達式”對象來實現我們自己的豐富多彩的UBB代碼吧。
首先，你的服務器端（ＩＩＳ或者ＰＷＳ）要有VBScript5.0的支持環境，一般指要安裝了IE5.X就已經可以支持“正則表達式”對
象了。
關于“正則表達式”對象的常見方法、屬性的使用方法，我在本刊的“在ASP中利用“正則表達式”對象實現數據的校驗”一文中已
經有詳細介紹了，可以參見那一篇文章，在這里，我主要介紹一下實現“UBB代碼”的主要正則表達式對象方法：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代碼是粗體）
uestc95@263.net
按上例套入，UBB代碼會對電子郵件自動產生鏈接。
加入圖象
在你的信息里加入圖象，只要按下例套入就可以了(UBB代碼是粗體).
[img] http://www.test.net/test.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,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("(\)(\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>")‘進行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中運行通過）
|
