推薦：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代碼。現在，我們一同使用“正則表達式”對象來實現我們自己的豐富多彩的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