<%'************************************************'函数文件，这里利用正则表达式替换其中的UBB代码为标准的HTML代码'************************************************Function UBBtoHTML(content)'建立正则表达式对象实例r。dim r set r=new RegExpr.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=contentEnd Function%>
