一、讀者指引
讀者指引幫助你掌握本文的梗概。以免你看了大半才明白這編文章不適合你，給你造成視覺污染。
如果你正在用ＡＳＰ寫程序，或者你正在寫一些諸如ＢＢＳ、留言溥或表單數(shù)據(jù)檢查之類的東東那就值得一看。

如果你對正則表達式已經(jīng)了如指掌，那么你不必一行行的看，只要看看我寫的模板，再比較一下，取其精華就行了。
如果你還是第一次接觸正則表達式，那么你最好一行行的看，并逐條試驗

當你熟練的掌握了正則表達式的用法，你就會發(fā)現(xiàn)其樂無窮。

二、正則表達式的概念

什么是ＵＢＢ代碼？什么是正則表達式？

ＵＢＢ代碼是HTML的一個變種。一般情況下，ＵＢＢ論壇不允許你使用ＨＴＭＬ代碼，而只能用ＵＢＢ代碼替代ＨＴＭＬ代碼。
ＵＢＢ代碼是一套由流行的ＵＢＢ標簽組成了固定代碼，代碼有統(tǒng)一的格式。用戶只要遵循代碼規(guī)則就可以實現(xiàn)用戶想要的功能。如：
想要顯示粗體的how are you 字樣，就應(yīng)該輸入 how are you而不是輸入<b>how are you</b>

你也許會問：ＡＳＰ是怎樣把 how are you轉(zhuǎn)換為<b>how are you</b>的呢？
回答這個問題就是：用正則表達式。

三、正則表達式的用途

有時我們在制作網(wǎng)站表單數(shù)據(jù)處理的時候（尤其是ＵＢＢ論壇）,都需要進行數(shù)據(jù)驗證和字符串替代，特別是ＵＢＢ論壇要進行大量的數(shù)據(jù)安全性和字符串替代

郵于一般的論壇不支持HTML語法這就使得用戶不能修改字體，不能貼圖等等一些功能。這樣使得論壇失去了吸引用戶的一個強有力的途徑�？赡苷f一個強大的論壇在吸引用戶數(shù)量上還是很重要的。這樣就出現(xiàn)了一個ＵＢＢ解決方案，即在論壇不支持HTML語法的情況下用戶仍然可以定制自已貼子的樣式，貼圖，增加鏈接，轉(zhuǎn)貼網(wǎng)頁等等諸多的功能，可能達到支持HTML語法同樣的效果，而且這樣可以使得論壇相對于HTML的論壇安全性大大提高。用戶基本不能對論壇過行任何惡意攻擊。

四、正則表達式的語法規(guī)則和標記

現(xiàn)在我們正式進入則表達式的學(xué)習(xí)，我會根據(jù)實例結(jié)合講解正則表達式的用法，看完后你就會覺得寫ＵＢＢ代碼如此簡單了，只要你一步一步的跟著我學(xué) 看完本文章后你就成為ＵＢＢ高手了。激動人心的就是你能寫出自已的ＵＢＢ標簽來了，再也不用到別人那里去拷貝現(xiàn)成的代碼和模板了。 還好VBScritp5.0給我們提供了“正則表達式”對象，只要你的服務(wù)器安裝了IE5.x，就可以運行了.

字符描述：

^符號匹配字符串的開頭。例如：
^abc與“abc xyz”匹配，而不與“xyz abc”匹配

$符號匹配字符串的結(jié)尾。例如：
abc$與“xyz abc”匹配，而不與“abc xyz”匹配。
注意：如果同時使用^符號和$符號，將進行精確匹配。例如：
^abc$只與“abc”匹配

*符號匹配０個或多個前面的字符。例如：
ab*可以匹配“ab”、“abb”、“abbb”等

+符號匹配至少一個前面的字符。例如：
ab+可以匹配“abb”、“abbb”等，但不匹配“ab”。

?符號匹配０個或１個前面的字符。例如：
ab?c?可以且只能匹配“abc”、“abbc”、“abcc”和“abbcc”

.符號匹配除換行符以外的任何字符。例如：
(.)+匹配除換行符以外的所有字符串

x y匹配“x”或“y”。例如：
abc xyz可匹配 “abc”或 “xyz”，而“ab(c x)yz”匹配 “abcyz”和“abxyz”

{n}匹配恰好n次（n為非負整數(shù)）前面的字符。例如：
a{2}可以匹配“aa“，但不匹配“a”

{n,}匹配至少n次（n為非負整數(shù)）前面的字符。例如：
a{3,}匹配“aaa”、“aaaa”等，但不匹配“a”和“aa”。
注意：a{1,}等價于a+
a{0,}等價于a*

{m,n}匹配至少m個，至多n個前面的字符。例如：
a{1,3}只匹配“a”、“aa”和“aaa”。
注意：a{0,1}等價于a?

[xyz]表示一個字符集，匹配括號中字符的其中之一。例如：
[abc]匹配“a”、“b”和“c”

[^xyz]表示一個否定的字符集。匹配不在此括號中的任何字符。例如：
[^abc]可以匹配除“a”、“b”和“c”之外的任何字符

[a-z]表示某個范圍內(nèi)的字符，匹配指定區(qū)間內(nèi)的任何字符。例如：
[a-z]匹配從“a”到“z”之間的任何一個小寫字母字符

[^m-n]表示某個范圍之外的字符，匹配不在指定范圍內(nèi)的字符。例如：
[m-n]匹配除從“m”到“n”之間的任何字符

\符號是轉(zhuǎn)義操作符。例如：
\n換行符
\f分頁符
\r回車
\t制表符
\v垂直制表符

\\匹配“\”
\/匹配“/”

\s任何白字符，包括空格、制表符、分頁符等。等價于“[ \f\n\r\t\v]”
\S任何非空白的字符。等價于“^\f\n\r\t\v]”
\w任何單詞字符，包括字母和下劃線。等價于“[A-Za-z0-9_]”
\W任何非單詞字符。等價于“[^A-Za-z0-9_]”

\b匹配單詞的結(jié)尾。例如：
ve\b匹配單詞“l(fā)ove”等，但不匹配“very”、“even”等

\B匹配單詞的開頭。例如：
ve\B匹配單詞“very”等，但不匹配“l(fā)ove”等

\d匹配一個數(shù)字字符，等價于[0-9]。例如：
abc\dxyz匹配“abc2xyz”、“abc4xyz”等，但不匹配“abcaxyz”、“abc-xyz”等

\D匹配一個非數(shù)字字符，等價于[^0-9]。例如：
abc\Dxyz匹配“abcaxyz”、“abc-xyz”等，但不匹配“abc2xyz”、“abc4xyz”等

\NUM匹配NUM個（其中NUM為一個正整數(shù)），引用回到記住的匹配。例如：
(.)\1匹配兩個連續(xù)相同的字符。

\oNUM匹配n（其中n為一個小于２５６的八進制換碼值）。例如：
\o011匹配制表符

\xNUM匹配NUM（其中NUM為一個小于２５６的十六進制換碼值）。例如：
\x41匹配字符“A”


五、實例分析

1）在字符串中精確查找鏈接地址

((http https ftp):(\/\/ \\\\)((\w)+[.]){1,}(net com cn org cc tv [0-9]{1,3})(((\/[\~]* \\[\~]*)
(\w)+) [.](\w)+)*(((([?](\w)+){1}[=]*))*((\w)+){1}([\&](\w)+[\=](\w)+)*)*)

我們知道，鏈接地址一般以http或者https或者ftp等形式出現(xiàn)。初步總結(jié)一下就是，鏈接地址必須符合如下條件：

條件１
以http://或者https://或者ftp://等開頭（當然還有其它形式，這里只列出主要的）

條件２
http://后面必須跟一個單詞字符，緊接著單詞字符后面的是"."（這樣的組合必須出現(xiàn)一次或多次）。緊跟著“.”后面的是域名后綴（如net或者com或者cn等，如果是以IP地址的形式出現(xiàn)就可以是數(shù)字）

條件３
出現(xiàn)完整的鏈接地址后，還可以出現(xiàn)下一級或者更多級的目錄（還要注意個人主頁的地址有可能出現(xiàn)"~"符號）

條件４
鏈接地址末尾可以帶參數(shù)。如典型的頁數(shù)?PageNo=2&action=display等

現(xiàn)在我們用下面的代碼來逐個匹配上面的條件——

1、((http https ftp):(\/\/ \\\\) 滿足條件１
表示http:// http:\\ https:// https:\\ ftp:// ftp:\\都匹配（在這里考慮了某些用戶可能把"http://"輸成“\\”的易發(fā)性錯誤）
注意：" "表示“或者”，"\"是轉(zhuǎn)義字符。“\/\/”表示"http://"，“\\\\”表示"\\"

2、((\w)+[.]){1,}(net com cn org cc tv [0-9]{1,3}) 滿足條件２
“((\w)+[.]){1,}”表示一個單詞字符加一個點號可以出現(xiàn)1次或者多次（這里考慮了某些用戶喜歡省略www而將http://www.w3c.com寫成http://w3c.com）
“(net com cn org cc tv [0-9]{1,3})”表示必須要以net或者com或者cn或者org或者cc或者tv或者三位以下的數(shù)字結(jié)束
[0-9]{1,3}表示三位以下的數(shù)字，因為ip地址的任何段不能超過255

3、(((\/[\~]* \\[\~]*)(\w)+) [.](\w)+)* 滿足條件３
“(\/[\~]* \\[\~]*)”表示可以出現(xiàn)"/~"或者是"\~"，（其中“[\~]*”表示 ~ 可以出現(xiàn)也可以不出現(xiàn)），因為不是每個鏈接地址都有下一級目錄
“(\w)+) [.](\w)+)”表示必須出現(xiàn)一個單詞字符（即目錄或者是一個帶有擴展名的文件）
注意：最后還有一個“*”表示上面括號內(nèi)的可以出現(xiàn)也可以不出現(xiàn)，否則就只能匹配有下一級目錄的鏈接地址了。

4、(((([?](\w)+){1}[=]*))*((\w)+){1}([\&](\w)+[\=](\w)+)*)*)滿足條件４
“((([?](\w)+){1}[=]*))*((\w)+){1}”表示形如"?PageNo=2"的字符串可以出現(xiàn)也可以不出現(xiàn)，如果出現(xiàn)則只能出現(xiàn)一次（因為不可能有兩個“？”號出現(xiàn)）。

“([\&](\w)+[\=](\w)+)*)”表示形如“&action=display”的字符串可以出現(xiàn)也可以不出現(xiàn)（因為并不是每個網(wǎng)頁都帶有兩個以上的參數(shù)。

整個“((([?](\w)+){1}[=]*))*((\w)+){1}([\&](\w)+[\=](\w)+)*)*”表示形如“?PageNo=2&action=display”的字符串可以出現(xiàn)也可以不出現(xiàn)（即鏈接地址可以有參數(shù)也可以沒有參數(shù)）


把上面的組合起來，我們就可以匹配一個比較全面的鏈接地址了。比用簡單的“(http:\/\/\S+)”來匹配一個鏈接地址要好，讀者可以自行行測試比較。當然，這段代碼還有很多不足之處，希望大家能夠繼續(xù)改進。

2）替代典型的UBB標簽:[/b]
我們的目的就是要把[b]成對的替換成<b></b>下面來看我們實現(xiàn)它的模板
(\[b\])(.+)(\[\/b\])
這里用了"(.+)"來配匹到之間的整個字符串，在替代的時候我們要寫成這樣
str=checkexp(re,str,"<b>$2</b>")
（注意：checkexp是我自定義的函數(shù)，將在后面給出。這個函數(shù)將把[/b]按照我們提供的模板進行替代。）

也許你會問這里出現(xiàn)一個"$2"是什么東東,呵注意了這個$2可是很重要的，它代表了"(.+)"所配匹的整個字符串。
為什么是$2而不是$1、$3呢？因為$1代表(\[b\])所匹配的"[b]"字符串，$3代表(\[\/b\])所匹配的""字符串，顯然這里我們需要的是$2而不是$1$3。


六）ＵＢＢ正則表達模板實例
下面是我寫的一個ＵＢＢ函數(shù)，這個函數(shù)基本上能使你的論壇成為一個優(yōu)秀的ＵＢＢ代碼論壇了。當然，通過改進后，你可以得到一個更強大的ＵＢＢ論壇。

Function ReThestr(face,str)
dim re,str

re="\>"
str=checkexp(re,str,"&gt;")

re="\<"
str=checkexp(re,str,"&lt;")

re="\n\r\n/"
str=checkexp(re,str,"<P>")

re=chr(32)
str=checkexp(re,str,"&nbsp;")

re="\r"
str=checkexp(re,str," ")

re="\[img\]((http:(\/\/ \\\\)){1}((\w)+[.]){1,3}(net com cn org cc tv)(((\/[\~]* \\[\~]*)
(\w)+) [.](\w)+)*(\w)+[.]{1}(gif jpg png))\[\/img\]" ''查找圖片地址
str=checkexp(re,str," <img src=''$1''> ")

re="\[w\](http:(\/\/ \\\\)((\w)+[.]){1,}(net com cn org cc tv)(((\/[\~]* \\[\~]*)(\w)+) [.](\w)+)*
(((([?](\w)+){1}[=]*))*((\w)+){1}([\&](\w)+[\=](\w)+)*)*)\[\/w\]" ''查找?guī)�地�?
str=checkexp(re,str,"<iframe width=''300'' height=''300'' src=''$1''></iframe>")

re="([^(''>)])(<br>)*((http https ftp):(\/\/ \\\\)((\w)+[.]){1,}(net com cn org cc tv ([0-9]{1,3}))(((\/[\~]* \\[\~]*)(\w)+) [.](\w)+)*(((([?](\w)+){1}[=]*))*((\w)+){1}([\&](\w)+[\=](\w)+)*)*)" ''查找鏈接地址
str=checkexp(re,str,"$1$2 <a href=''$3'' target=_blank>$3</a> ")

re="([^(http:// http:\\)])((www cn)[.](\w)+[.]{1,}(net com cn org cc)(((\/[\~]* \\[\~]*)(\w)+) [.](\w)+)*
(((([?](\w)+){1}[=]*))*((\w)+){1}([\&](\w)+[\=](\w)+)*)*)" ''查找不以http://開頭的地址
str=checkexp(re,str,"$1 <a href=''http://$2'' target=_blank>$2</a> ")

re="([^(=)])((\w)+[@]{1}((\w)+[.]){1,3}(\w)+)" ''查找郵件地址
str=checkexp(re,str," <a href=''mailto:$2''>$2</a> ")

re="\[0-F]{6})\]((.)+)\[\/color\]" ''替換字體色彩
str=checkexp(re,str,"<font color=''$1''>$4</font>")

re="\{1})\]((.)+)\[\/size\]" ''替換字體大小
str=checkexp(re,str,"<font size=''$1''>$2</font>")

re="\((.)+)\[\/font\]" ''替換字體
str=checkexp(re,str,"<font face=''$1''>$3</font>")

re="(\[b\])(.+)(\[\/b\])" ''加粗字體
str=checkexp(re,str,"<b>$2</b>")

re="(\[u\])(.+)(\[\/u\])" ''下畫線
str=checkexp(re,str,"<u>$2</u>")

re="(\[li\])(.+)(\[\/li\])" ''列表
str=checkexp(re,str,"<li>$2</li>")

re="(\[QUOTE\])(.+)(\[\/QUOTE\])" ''引用
str=checkexp(re,str,"<BLOCKQUOTE>引用:<HR SIZE=1>$2<HR SIZE=1></BLOCKQUOTE>")

re="\){1,3}(\w)+)\](.+)(\[\/email\])" ''郵件
str=checkexp(re,str,"<a href=mailto:$1>$6</a>")

re="(\[center\])(.+)(\[\/center\])" ''居中
str=checkexp(re,str,"<center>$2</center>")

re="fuck"
str=checkexp(re,str,"***")

re="操"
str=checkexp(re,str,"***")

re="sex"
str=checkexp(re,str,"***")

re="TMD"
str=checkexp(re,str,"***")

re="shit"
str=checkexp(re,str,"***")

ReThestr=str
end function

ＵＢＢ代碼如下：


[email=] [img] [/img]
引用:
--------------------------------------------------------------------------------

--------------------------------------------------------------------------------

[li] [/li] [font=impact] [color=Yellow] [size=4]
測試代碼如下：

[img] [/img]http://cn.yahoo.com
http://aol.com http://192.168.0.1
www.yahoo.com how are you[/b]
http://page2000.xiloo.com/~page2000?PageNo=2&action=del
lucaihui@cmmail.com 大家好http:\\page2000.shit
<font color=red>http://test.com</font>http://test
全部符合預(yù)想結(jié)果

七）ＡＳＰ正則表達式對像函數(shù)如下：
Function CheckExp(patrn,strng,tagstr)
Dim regEx,Matches

Set regEx=New RegExp''建立一個新對像
regEx.Pattern=patrn''設(shè)置模板
regEx.IgnoreCase=true''搜索是否區(qū)分大小寫的 true表是不區(qū)分 flase表示區(qū)分
regEx.Global=True''搜索是否應(yīng)用于整個字符串

Matches=regEx.replace(strng,tagstr)''匹配并替代字符串

CheckExp=Matches返回函數(shù)結(jié)果
end function


把上面的兩個函數(shù)存為一個頁面（如ubbcode.asp），這樣就組成一個完整的ＵＢＢ函數(shù)了。
在你的論壇上加上這個函數(shù)，就成了支持ＵＢＢ代碼的論壇了。只要在用時調(diào)用這個函數(shù)就行了。調(diào)用形式如
text=ReThestr(text)