很不错的一个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 IfEnd FunctionFunction UBBCode(strValue) Dim RegExp 'strValue=HTMLEncode(strValue)Set RegExp=New RegExp RegExp.IgnoreCase =True RegExp.Global=True If strValue <> "" ThenRegExp.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=""") ' target=_blank rel=nofollow>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=""$2") ' target=_blank rel=nofollow>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 IfSet RegExp=Nothing UBBCode=strValue '输出错误If Err.Number>0 Then Response.Write Err.Description Response.EndEnd IfEnd Function%>调用：<%=UBBCode(Content)%>

　　推荐阅读

　　获取图片宽度和高度的类，支持JPG，GIF，PNG，BMP

<% Class ImgWHInfo ''获取图片宽度和高度的类，支持JPG，GIF，PNG，BMP Dim ASO Private Sub Class_Initialize Set ASO=Server.CreateObject("ADODB.Stream") ASO.Mode=3 ASO.Type=1 ASO.Open End Sub Private Su>>>详细阅读

本文标题：很不错的一个UBB代码

地址：http://www.17bianji.com/kaifa2/ASP/33267.html

1/2 1