推薦：ASP 3.0高級編程(三十二)
7.2.4 客戶端腳本錯誤到目前為止，我們已了解了來自ASP的錯誤。然而ASP也經常用于創建包含客戶端腳本的網頁。如果包含客戶端代碼的<SCRIPT>元素沒有被設置成RUNAT="SERVER"屬

上一次，我們談到在ASP中如何利用“正則表達式”對象來實現各種數據的校驗，文中描述了正則表達式對象的強大功能，接下來，我們來看看有關“正則表達式”對象的其他功能。當我們在網上沖浪的時候，尤其是瀏覽各類論壇的時候，經常會見到“UBB代碼”這個詞語。什么是UBB代碼呢？UBB代碼是HTML的一個變種,是Ultimate Bulletin Board (國外一個BBS程序，國內也有不少地方使用這個程序)采用的一種特殊的TAG。為了避免用戶無意或者有意的ＨＴＭＬ代碼對論壇的攻擊，各種論壇基本上都屏蔽了ＨＴＭＬ代碼，但是為了使得論壇更加“多姿多彩”，論壇都會相應的開放一些自定義的Ｔａｇ標簽，類似于ＨＴＭＬ中的Ｔａｇ，比如“[URL],[/URL],[RED],[/RED]”，這樣，可以提供一些等同于ＨＴＭＬ代碼的功能，又避免了論壇受到惡意攻擊，這些自定義的各種Ｔａｇ就是俗稱的UBB代碼。眼下時髦的論壇均支持UBB代碼，比如：動感技術網絡的論壇就很好的支持UBB代碼?，F在，我們一同使用“正則表達式”對象來實現我們自己的豐富多彩的UBB代碼吧。

首先，你的服務器端（ＩＩＳ或者ＰＷＳ）要有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代碼是粗體).

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

按上例套入，UBB代碼會自動對URL產生鏈接，并保證當用戶點擊新的窗口時這個鏈接是打開著的。

電子郵件鏈接

在你的信息里加入電子郵件的超級鏈接，只要按照下例套入就可以了（UBB代碼是粗體）

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

按上例套入，UBB代碼會對電子郵件自動產生鏈接。

加入圖象

在你的信息里加入圖象，只要按下例套入就可以了(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]

[/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("(/[i])(/S )(/[/i])",str,"<i>$2</i>")　　‘進行UBB代碼的模版匹配與替換

else

temp=ReplaceTest("(/[i])(/S )(/[/i])",temp,"<i>$2</i>")　　‘進行UBB代碼的模版匹配與替換

end if

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

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

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("(/[img])(/S )(/[/img])",temp,"<img src=""$2"">")

temp=ReplaceTest("(/[url])(/S )(/[/url])",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中運行通過）

分享：asp控制xml數據庫的6段非常的經典代碼
NO.1--建立一個XML數據庫data.xml <?xml version="1.0"?><records><record><name>caca</name><qq>1