一个简单的UBBtoHTML函数

<%
'************************************************
'函数文件，这里利用正则表达式替换其中的UBB代码为标准的HTML代码
'************************************************
Function UBBtoHTML(content)
'建立正则表达式对象实例r。
dim r 
set r=new RegExp
r.ignorecase=true '忽略大小写
r.Global=true '进行全局查找
'替换斜体字
r.pattern="([i])(.[^[]*)([/i])"
content=r.Replace(content,"<i>$2</i>")

'替换粗体字
r.pattern="([b])(.[^[]*)([/b])"
content=r.Replace(content,"<b>$2</b>")
'再替换下划线
r.pattern="([u])(.[^[]*)([/u])"
content=r.Replace(content,"<u>$2</u>")
'下面替换图片，本质上就要将[ IMG]http://www.xxx.com/temp .jpg[/IMG]替换为<img src="http://www.xxx.com/temp .jpg">
'其实只要把[ IMG]替换为<img src="，把[/IMG]替换为">即可。
r.pattern="([img])(.[^[]*)([/img])"
content=r.Replace(content,"<img src=""$2"">")
'下面替换超链接，本质上就要将http://www.xxx.com替换为<a href="http://www.xxx.com">http://www.xxx.com</a>
r.pattern="([url])(.[^[]*)([/url])"
content=r.Replace(content,"<a href=""$2"" target=""_blank"">$2</a>")
'返回函数值
UBBtoHTML=content
End Function
%>