很不错的一个UBB代码

<%
function htmlencode(byval strvalue)
 '忽略错误
 on error resume next
 '定义变量
 dim strnewvalue
 if strvalue <> "" then
  strnewvalue = replace(strvalue,"<","<")
  strnewvalue = replace(strnewvalue,">",">")
  strnewvalue = replace(strnewvalue,"'","'")
  strnewvalue = replace(strnewvalue,"""",""")
  strnewvalue = replace(strnewvalue,vbcrlf,"<br>")
  strnewvalue = replace(strnewvalue," "," ")
 end if
 htmlencode = strnewvalue
 '输出错误
 if err.number>0 then
  response.write err.description
  response.end
 end if
end function

function ubbcode(strvalue) 
dim regexp 
'strvalue=htmlencode(strvalue)
set regexp=new regexp 
regexp.ignorecase =true 
regexp.global=true 

if strvalue <> "" then
regexp.pattern="([img])(.[^[]*)([/img])" 
strvalue=regexp.replace(strvalue,"<a href=""$2"" target=_blank><img src=""$2"" border=0 alt=按此在新窗口浏览图片 onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333""></a>") 

regexp.pattern="([flash])(.[^[]*)([/flash])" 
strvalue=regexp.replace(strvalue,"<object codebase=""http://download.macromedia.com/pub/sho ... h/swflash.cab#version=4,0,2,0"" classid=clsid:d27cdb6e-ae6d-11cf-96b8-444553540000 width=500 height=400 id=shockwaveflash1><param name=movie value=""$2""><param name=quality value=high><embed src=""$2"" quality=high pluginspage=""http://www.macromedia.com/shockwave/download/index.cgi?p1_prod_version=shockwaveflash"" type=""appl ... 00 height=400></embed></object>") 

regexp.pattern="([zip])(.[^[]*)([/zip])" 
strvalue=regexp.replace(strvalue,"<br><a href=""$2"">点击下载该文件</a>") 

regexp.pattern="([rar])(.[^[]*)([/rar])" 
strvalue=regexp.replace(strvalue,"<br><a href=""$2"">点击下载该文件</a>") 

'regexp.pattern="([upload=(.[^[]*)])(.[^[]*)([/upload])" 
'strvalue=regexp.replace(strvalue,"<br><img src=""$2.gif"" border=0> <a href=""$3"" target=_blank>点击查看或下载该文件</a>") 
'strvalue=regexp.replace(strvalue,"<br><img src=""$2.gif"" border=0>此主题相关图片如下：<br><a href=""$3"" target=_blank><img src=""$3"" border=0 alt=按此在新窗口浏览图片 onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333""></a>") 

regexp.pattern="([url])(http://.[^[]*)([/url])" 
strvalue=regexp.replace(strvalue,"<a href=""$2"" target=_blank>$2</a>") 

regexp.pattern="([url])(.[^[]*)([/url])" 
strvalue=regexp.replace(strvalue,"<a href=""http://$2"" target= ... t;/a>") 

regexp.pattern="(*)])(.[^[]*)([/url])" 
strvalue=regexp.replace(strvalue,"<a href=""$2"" target=_blank>$3</a>") 

regexp.pattern="([url=(.[^[]*)])(.[^[]*)([/url])" 
strvalue=regexp.replace(strvalue,"<a href=""[url]http://$2"" target=_blank>$3</a>") 

regexp.pattern="([email])(s+@.[^[]*)([/email])" 
strvalue=regexp.replace(strvalue,"<a href=""mailto:$2"">$2</a>") 

regexp.pattern="([email=(s+@.[^[]*)])(.[^[]*)([/email])" 
strvalue=regexp.replace(strvalue,"<a href=""mailto:$2"" target=_blank>$3</a>") 

regexp.pattern = "^(http://[a-za-z0-9./=?%-&_~`@':+!]+)" 
strvalue=regexp.replace(strvalue,"<a target=_blank href=$1>$1</a>") 

regexp.pattern = "(http://[a-za-z0-9./=?%-&_~`@':+!]+)$" 
strvalue=regexp.replace(strvalue,"<a target=_blank href=$1>$1</a>") 

regexp.pattern = "[^>=""](http://[a-za-z0-9./=?%-&_~`@':+!]+)" 
strvalue=regexp.replace(strvalue,"<a target=_blank href=$1>$1</a>") 

regexp.pattern = "^(ftp://[a-za-z0-9./=?%-&_~`@':+!]+)" 
strvalue=regexp.replace(strvalue,"<a target=_blank href=$1>$1</a>") 

regexp.pattern = "(ftp://[a-za-z0-9./=?%-&_~`@':+!]+)$" 
strvalue=regexp.replace(strvalue,"<a target=_blank href=$1>$1</a>") 

regexp.pattern = "[^>=""](ftp://[a-za-z0-9./=?%-&_~`@':+!]+)" 
strvalue=regexp.replace(strvalue,"<a target=_blank href=$1>$1</a>") 

regexp.pattern = "^(rtsp://[a-za-z0-9./=?%-&_~`@':+!]+)" 
strvalue=regexp.replace(strvalue,"<a target=_blank href=$1>$1</a>") 

regexp.pattern = "(rtsp://[a-za-z0-9./=?%-&_~`@':+!]+)$" 
strvalue=regexp.replace(strvalue,"<a target=_blank href=$1>$1</a>") 

regexp.pattern = "[^>=""](rtsp://[a-za-z0-9./=?%-&_~`@':+!]+)" 
strvalue=regexp.replace(strvalue,"<a target=_blank href=$1>$1</a>") 

regexp.pattern = "^(mms://[a-za-z0-9./=?%-&_~`@':+!]+)" 
strvalue=regexp.replace(strvalue,"<a target=_blank href=$1>$1</a>") 

regexp.pattern = "(mms://[a-za-z0-9./=?%-&_~`@':+!]+)$" 
strvalue=regexp.replace(strvalue,"<a target=_blank href=$1>$1</a>") 

regexp.pattern = "[^>=""](mms://[a-za-z0-9./=?%-&_~`@':+!]+)" 
strvalue=regexp.replace(strvalue,"<a target=_blank href=$1>$1</a>") 

regexp.pattern="([html])(.[^[]*)([/html])" 
strvalue=regexp.replace(strvalue,"<table width='100%' border='0' cellspacing='0' cellpadding='6' bgcolor='#ffffff'><td><b>以下内容为程序代码:</b><br>$2</td></table>") 

regexp.pattern="([code])(.[^[]*)([/code])" 
strvalue=regexp.replace(strvalue,"<table width='100%' border='0' cellspacing='0' cellpadding='6' bgcolor='#ffffff'><td><b>以下内容为程序代码:</b><br>$2</td></table>") 

regexp.pattern="([color=(.[^[]*)])(.[^[]*)([/color])" 
strvalue=regexp.replace(strvalue,"<font color=$2>$3</font>") 

regexp.pattern="([face=(.[^[]*)])(.[^[]*)([/face])" 
strvalue=regexp.replace(strvalue,"<font face=$2>$3</font>") 

regexp.pattern="([align=(.[^[]*)])(.*)([/align])" 
strvalue=regexp.replace(strvalue,"<div align=$2>$3</div>") 

regexp.pattern="([quote])(.*)([/quote])" 
strvalue=regexp.replace(strvalue,"<table cellpadding=0 cellspacing=0 border=0 width=94% bgcolor=#000000 align=center><tr><td><table width=100% cellpadding=5 cellspacing=1 border=0><tr><td bgcolor='#ffffff'>$2</table></table><br>") 

regexp.pattern="([fly])(.*)([/fly])" 
strvalue=regexp.replace(strvalue,"<marquee width=90% behavior=alternate scrollamount=3>$2</marquee>") 

regexp.pattern="([move])(.*)([/move])" 
strvalue=regexp.replace(strvalue,"<marquee scrollamount=3>$2</marquee>")  

regexp.pattern="[glow=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)](.[^[]*)[/glow]" 
strvalue=regexp.replace(strvalue,"<table width=$1 style=""filter:glow(color=$2, strength=$3)"">$4</table>") 

regexp.pattern="[shadow=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)](.[^[]*)[/shadow]" 
strvalue=regexp.replace(strvalue,"<table width=$1 style=""filter:shadow(color=$2, strength=$3)"">$4</table>") 

regexp.pattern="([i])(.[^[]*)([/i])" 
strvalue=regexp.replace(strvalue,"<i>$2</i>") 

regexp.pattern="([u])(.[^[]*)([/u])" 
strvalue=regexp.replace(strvalue,"<u>$2</u>") 

regexp.pattern="([b])(.[^[]*)([/b])" 
strvalue=regexp.replace(strvalue,"<b>$2</b>") 

regexp.pattern="([fly])(.[^[]*)([/fly])" 
strvalue=regexp.replace(strvalue,"<marquee>$2</marquee>") 

regexp.pattern="([size=1])(.[^[]*)([/size])" 
strvalue=regexp.replace(strvalue,"<font size=1>$2</font>") 

regexp.pattern="([size=2])(.[^[]*)([/size])" 
strvalue=regexp.replace(strvalue,"<font size=2>$2</font>") 

regexp.pattern="([size=3])(.[^[]*)([/size])" 
strvalue=regexp.replace(strvalue,"<font size=3>$2</font>") 

regexp.pattern="([size=4])(.[^[]*)([/size])" 
strvalue=regexp.replace(strvalue,"<font size=4>$2</font>") 

regexp.pattern="([center])(.[^[]*)([/center])" 
strvalue=regexp.replace(strvalue,"<center>$2</center>") 
end if
set regexp=nothing 
ubbcode=strvalue 

'输出错误
if err.number>0 then
  response.write err.description
  response.end
end if
end function
%>