很不错的一个UBB代码

　　<%
FunctionHTMLEncode(ByValstrValue)
忽略错误
OnErrorResumeNext
定义变量
DimstrNewValue
IfstrValue<>Then
strNewValue=Replace(strValue,<,<)
strNewValue=Replace(strNewValue,>,>)
strNewValue=Replace(strNewValue,,')
strNewValue=Replace(strNewValue,,")
strNewValue=Replace(strNewValue,vbCrLf,<br>)
strNewValue=Replace(strNewValue,,)
EndIf
HTMLEncode=strNewValue
输出错误
IfErr.Number>0Then
Response.WriteErr.Description
Response.End
EndIf
EndFunction

FunctionUBBCode(strValue)
DimRegExp
strValue=HTMLEncode(strValue)
SetRegExp=NewRegExp
RegExp.IgnoreCase=True
RegExp.Global=True

IfstrValue<>Then
RegExp.Pattern=(\[IMG\])(.[^\[]*)(\[\/IMG\])
strValue=RegExp.Replace(strValue,<ahref=$2><IMGSRC=$2border=0alt=按此在新窗口浏览图片onload=javascript:if(this.width>screen.width-333)this.width=screen.width-333></a>)

RegExp.Pattern=(\[FLASH\])(.[^\[]*)(\[\/FLASH\])
strValue=RegExp.Replace(strValue,<OBJECTcodebase=

RegExp.Pattern=(\[ZIP\])(.[^\[]*)(\[\/ZIP\])
strValue=RegExp.Replace(strValue,<br><ahref=$2>点击下载该文件</a>)

RegExp.Pattern=(\[RAR\])(.[^\[]*)(\[\/RAR\])
strValue=RegExp.Replace(strValue,<br><ahref=$2>点击下载该文件</a>)

RegExp.Pattern=(\[UPLOAD=(.[^\[]*)\])(.[^\[]*)(\[\/UPLOAD\])
strValue=RegExp.Replace(strValue,<br><IMGSRC=$2.gifborder=0><AHREF=$3TARGET=_blank>点击查看或下载该文件</A>)
strValue=RegExp.Replace(strValue,<br><IMGSRC=$2.gifborder=0>此主题相关图片如下：<br><AHREF=$3TARGET=_blank><IMGSRC=$3border=0alt=按此在新窗口浏览图片onload=javascript:if(this.width>screen.width-333)this.width=screen.width-333></A>)

RegExp.Pattern=(\[URL\])(http:\/\/.[^\[]*)(\[\/URL\])
strValue=RegExp.Replace(strValue,<AHREF=$2TARGET=_blank>$2</A>)

RegExp.Pattern=(\[URL\])(.[^\[]*)(\[\/URL\])


RegExp.Pattern=(\*)\])(.[^\[]*)(\[\/URL\])
strValue=RegExp.Replace(strValue,<AHREF=$2TARGET=_blank>$3</A>)

RegExp.Pattern=(\[URL=(.[^\[]*)\])(.[^\[]*)(\[\/URL\])
strValue=RegExp.Replace(strValue,<AHREF=[url]

RegExp.Pattern=(\[EMAIL\])(\S+\@.[^\[]*)(\[\/EMAIL\])
strValue=RegExp.Replace(strValue,<AHREF=mailto:$2>$2</A>)

RegExp.Pattern=(\[EMAIL=(\S+\@.[^\[]*)\])(.[^\[]*)(\[\/EMAIL\])
strValue=RegExp.Replace(strValue,<AHREF=mailto:$2TARGET=_blank>$3</A>)

RegExp.Pattern=^(
strValue=RegExp.Replace(strValue,<ahref=$1>$1</a>)

RegExp.Pattern=(
strValue=RegExp.Replace(strValue,<ahref=$1>$1</a>)

RegExp.Pattern=[^>=](
strValue=RegExp.Replace(strValue,<ahref=$1>$1</a>)

RegExp.Pattern=^(ftp://[A-Za-z0-9\./=\?%\-&_~`@:+!]+)
strValue=RegExp.Replace(strValue,<ahref=$1>$1</a>)

RegExp.Pattern=(ftp://[A-Za-z0-9\./=\?%\-&_~`@:+!]+)$
strValue=RegExp.Replace(strValue,<ahref=$1>$1</a>)

RegExp.Pattern=[^>=](ftp://[A-Za-z0-9\.\/=\?%\-&_~`@:+!]+)
strValue=RegExp.Replace(strValue,<ahref=$1>$1</a>)

RegExp.Pattern=^(rtsp://[A-Za-z0-9\./=\?%\-&_~`@:+!]+)
strValue=RegExp.Replace(strValue,<ahref=$1>$1</a>)

RegExp.Pattern=(rtsp://[A-Za-z0-9\./=\?%\-&_~`@:+!]+)$
strValue=RegExp.Replace(strValue,<ahref=$1>$1</a>)

RegExp.Pattern=[^>=](rtsp://[A-Za-z0-9\.\/=\?%\-&_~`@:+!]+)
strValue=RegExp.Replace(strValue,<ahref=$1>$1</a>)

RegExp.Pattern=^(mms://[A-Za-z0-9\./=\?%\-&_~`@:+!]+)
strValue=RegExp.Replace(strValue,<ahref=$1>$1</a>)

RegExp.Pattern=(mms://[A-Za-z0-9\./=\?%\-&_~`@:+!]+)$
strValue=RegExp.Replace(strValue,<ahref=$1>$1</a>)

RegExp.Pattern=[^>=](mms://[A-Za-z0-9\.\/=\?%\-&_~`@:+!]+)
strValue=RegExp.Replace(strValue,<ahref=$1>$1</a>)

RegExp.Pattern=(\[HTML\])(.[^\[]*)(\[\/HTML\])
strValue=RegExp.Replace(strValue,<tablewidth=100%border=0cellspacing=0cellpadding=6bgcolor=#FFFFFF><td><b>以下内容为程序代码:</b><br>$2</td></table>)

RegExp.Pattern=(\[code\])(.[^\[]*)(\[\/code\])
strValue=RegExp.Replace(strValue,<tablewidth=100%border=0cellspacing=0cellpadding=6bgcolor=#FFFFFF><td><b>以下内容为程序代码:</b><br>$2</td></table>)

RegExp.Pattern=(\[color=(.[^\[]*)\])(.[^\[]*)(\[\/color\])
strValue=RegExp.Replace(strValue,<fontcolor=$2>$3</font>)

RegExp.Pattern=(\[face=(.[^\[]*)\])(.[^\[]*)(\[\/face\])
strValue=RegExp.Replace(strValue,<fontface=$2>$3</font>)

RegExp.Pattern=(\[align=(.[^\[]*)\])(.*)(\[\/align\])
strValue=RegExp.Replace(strValue,<divalign=$2>$3</div>)

RegExp.Pattern=(\[QUOTE\])(.*)(\[\/QUOTE\])
strValue=RegExp.Replace(strValue,<tablecellpadding=0cellspacing=0border=0WIDTH=94%bgcolor=#000000align=center><tr><td><tablewidth=100%cellpadding=5cellspacing=1border=0><TR><TDBGCOLOR=#FFFFFF>$2</table></table><br>)

RegExp.Pattern=(\[fly\])(.*)(\[\/fly\])
strValue=RegExp.Replace(strValue,<marqueewidth=90%behavior=alternatescrollamount=3>$2</marquee>)

RegExp.Pattern=(\[move\])(.*)(\[\/move\])
strValue=RegExp.Replace(strValue,<MARQUEEscrollamount=3>$2</marquee>)

RegExp.Pattern=\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/GLOW]
strValue=RegExp.Replace(strValue,<tablewidth=$1style=filter:glow(color=$2,strength=$3)>$4</table>)

RegExp.Pattern=\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/SHADOW]
strValue=RegExp.Replace(strValue,<tablewidth=$1style=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,<fontsize=1>$2</font>)

RegExp.Pattern=(\[size=2\])(.[^\[]*)(\[\/size\])
strValue=RegExp.Replace(strValue,<fontsize=2>$2</font>)

RegExp.Pattern=(\[size=3\])(.[^\[]*)(\[\/size\])
strValue=RegExp.Replace(strValue,<fontsize=3>$2</font>)

RegExp.Pattern=(\[size=4\])(.[^\[]*)(\[\/size\])
strValue=RegExp.Replace(strValue,<fontsize=4>$2</font>)

RegExp.Pattern=(\[center\])(.[^\[]*)(\[\/center\])
strValue=RegExp.Replace(strValue,<center>$2</center>)
EndIf
SetRegExp=Nothing
UBBCode=strValue

输出错误
IfErr.Number>0Then
Response.WriteErr.Description
Response.End
EndIf
EndFunction
%>
调用：<%=UBBCode(Content)%>