<%
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""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=""http://www.macromedia.com/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=""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)%>
【很不错的一个UBB代码】相关文章：