<%
FunctionHTMLEncode(ByValstrValue)
'忽略错误
OnErrorResumeNext
'定义变量
DimstrNewValue
IfstrValue<>""Then
strNewValue=Replace(strValue,"<","&lt;")
strNewValue=Replace(strNewValue,">","&gt;")
strNewValue=Replace(strNewValue,"'","&#39;")
strNewValue=Replace(strNewValue,"""","&quot;")
strNewValue=Replace(strNewValue,vbCrLf,"<br>")
strNewValue=Replace(strNewValue,"","&nbsp;")
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""target=_blank><IMGSRC=""$2""border=0alt=按此在新窗口浏览图片onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333""></a>")

RegExp.Pattern="(\[FLASH\])(.[^\[]*)(\[\/FLASH\])"
strValue=RegExp.Replace(strValue,"<OBJECTcodebase=""http://download.macromedia.com/pub/sho ... h/swflash.cab#version=4,0,2,0""classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000width=500height=400id=ShockwaveFlash1><PARAMNAME=movieVALUE=""$2""><PARAMNAME=qualityVALUE=high><embedsrc=""$2""quality=highpluginspage=""")' target=_blank rel=nofollow>http:///shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash""type=""appl ... 00height=400></embed></OBJECT>")

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.gif""border=0><AHREF=""$3""TARGET=_blank>点击查看或下载该文件</A>")
'strValue=RegExp.Replace(strValue,"<br><IMGSRC=""$2.gif""border=0>此主题相关图片如下：<br><AHREF=""$3""TARGET=_blank><IMGSRC=""$3""border=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=""$2""TARGET=_blank>$2</A>")

RegExp.Pattern="(\[URL\])(.[^\[]*)(\[\/URL\])"
strValue=RegExp.Replace(strValue,"<AHREF=""$2")' target=_blank rel=nofollow>http://$2""TARGET= ... t;/A>")

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

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

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:$2""TARGET=_blank>$3</A>")

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

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

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

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

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

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

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

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

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

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

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

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

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

RegExp.Pattern="(\[code\])(.[^\[]*)(\[\/code\])"
strValue=RegExp.Replace(strValue,"<tablewidth='100%'border='0'cellspacing='0'cellpadding='6'bgcolor='#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)%>