代码如下:
<%
Public Function UbbCode(strContent)
Dim re
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
''过滤危险脚本
re.Pattern = "(</script>)"
strContent = re.Replace(strContent, "</script>")
re.Pattern = "(script:)"
strContent = re.Replace(strContent, "s cript:")
re.Pattern = "(script)"
strContent = re.Replace(strContent, "s cript")
re.Pattern = "(js:)"
strContent = re.Replace(strContent, "js:")
re.Pattern = "(value)"
strContent = re.Replace(strContent, "value")
re.Pattern = "(about:)"
strContent = re.Replace(strContent, "about:")
re.Pattern = "(file:)"
strContent = re.Replace(strContent, "file:")
re.Pattern = "(document.cookie)"
strContent = re.Replace(strContent, "documents.cookie")
re.Pattern = "(vbs:)"
strContent = re.Replace(strContent, "v bs:")
re.Pattern = "(on(mouse|exit|error|click|key))"
strContent = re.Replace(strContent, "on$2")
re.Pattern = "<IMG.[^>]*SRC(=| )(.[^>]*)>"
''strContent = re.replace(strContent,"<IMG SRC=http://www.popasp.com/$2 onclick=""javascript:window.open(this.src);"" style=""CURSOR: pointer"" border=""0"">")
strContent = re.replace(strContent,"<IMG SRC=http://www.popasp.com/$2 border=""0"">")
''re.Pattern="<img(.[^>]*)>"
''strContent = re.replace(strContent,"<img$1 onload=""return imgzoom(this,550)"">")
re.Pattern = "(\[i\])(.[^\[]*)(\[/i\])"
strContent = re.Replace(strContent, "<i>$2</i>")
re.Pattern = "(\[u\])(.[^\[]*)(\[/u\])"
strContent = re.Replace(strContent, "<u>$2</u>")
re.Pattern = "(\[b\])(.[^\[]*)(\[/b\])"
strContent = re.Replace(strContent, "<b>$2</b>")
re.Pattern = "(\[fly\])(.*)(\[/fly\])"
strContent = re.Replace(strContent, "<marquee>$2</marquee>")
re.Pattern = "\[size=([1-9])\](.[^\[]*)\[/size\]"
strContent = re.Replace(strContent, "<font size=$1>$2</font>")
re.Pattern = "(\[center\])(.[^\[]*)(\[/center\])"
strContent = re.Replace(strContent, "<center>$2</center>")
re.Pattern = "\[DIR=*([0-9]*),*([0-9]*)\](.[^\[]*)\[/DIR]"
strContent = re.Replace(strContent, "<embed src=http://www.popasp.com/$3 pluginspage=http://www.macromedia.com/shockwave/download/ width=$1 height=$2>")
re.Pattern = "\[QT=*([0-9]*),*([0-9]*)\](.[^\[]*)\[/QT]"
strContent = re.Replace(strContent, "<embed src=http://www.popasp.com/$3 width=$1 height=$2 autoplay=true loop=false controller=true playeveryframe=false cache=false scale=TOFIT bgcolor=#000000 kioskmode=false targetcache=false pluginspage=http://www.apple.com/quicktime/>")
re.Pattern = "\[MP=*([0-9]*),*([0-9]*)\](.[^\[]*)\[/MP]"
strContent = re.Replace(strContent, "<embed type=application/x-oleobject codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701 flename=mp src=http://www.popasp.com/$3 width=$1 height=$2>")
re.Pattern = "\[RM=*([0-9]*),*([0-9]*)\](.[^\[]*)\[/RM]"
strContent = re.Replace(strContent, "<OBJECT classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA class=OBJECT id=RAOCX width=$1 height=$2><PARAM NAME=SRC VALUE=http://www.popasp.com/$3>
")
re.Pattern = "(\[FLASH\])(.[^\[]*)(\[/FLASH\])"
''strContent = re.Replace(strContent, "<embed src=""$2"" quality=high pluginspage=''http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash'' type=''application/x-shockwave-flash'' width=500 height=400>$2</embed>")
strContent = re.Replace(strContent, "")
re.Pattern = "(\[FLASH=*([0-9]*),*([0-9]*)\])(.[^\[]*)(\[/FLASH\])"
strContent = re.Replace(strContent, "<embed src=""$4"" quality=high pluginspage=''http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash'' type=''application/x-shockwave-flash'' width=$2 height=$3>$4</embed>")
strContent = re.Replace(strContent, "")
re.Pattern = "\[UPLOAD=(gif|jpg|jpeg|bmp|png)\](.[^\[]*)(gif|jpg|jpeg|bmp|png)\[/UPLOAD\]"
strContent = re.Replace(strContent, "<br><A HREF=""$2$1"" TARGET=_blank><IMG SRC=""$2$1"" border=0 alt=按此在新窗口浏览图片 onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333""></A>")
re.Pattern = "(\[UPLOAD=(.[^\[]*)\])(.[^\[]*)(\[/UPLOAD\])"
strContent = re.Replace(strContent, "<br><a href=""$3"">点击浏览该文件</a>")
re.Pattern = "(\[URL\])(.[^\[]*)(\[/URL\])"
strContent = re.Replace(strContent, "<A HREF=""$2"" TARGET=_blank>$2</A>")
re.Pattern = "(\[URL=(.[^\[]*)\])(.[^\[]*)(\[/URL\])"
strContent = re.Replace(strContent, "<A HREF=""$2"" TARGET=_blank>$3</A>")
re.Pattern = "(\[EMAIL\])(.[^\[]*)(\[/EMAIL\])"
strContent = re.Replace(strContent, "<A HREF=""mailto:$2"">$2</A>")
re.Pattern = "(\[EMAIL=(.[^\[]*)\])(.[^\[]*)(\[/EMAIL\])"
strContent = re.Replace(strContent, "<A HREF=""mailto:$2"" TARGET=_blank>$3</A>")
re.Pattern = "(\[HTML\])(.[^\[]*)(\[/HTML\])"
strContent = re.Replace(strContent, "<table width=''100%'' border=''0'' cellspacing=''0'' cellpadding=''6'' bgcolor=''#F6F6F6''><td><b>以下内容为程序代码:</b><br>$2</td></table>")
re.Pattern = "(\[code\])(.[^\[]*)(\[/code\])"
strContent = re.Replace(strContent, "<table width=''100%'' border=''0'' cellspacing=''0'' cellpadding=''6'' bgcolor=''#F6F6F6''><td><b>以下内容为程序代码:</b><br>$2</td></table>")
re.Pattern = "(\[color=(.[^\[]*)\])(.[^\[]*)(\[/color\])"
strContent = re.Replace(strContent, "<font color=$2>$3</font>")
re.Pattern = "(\[face=(.[^\[]*)\])(.[^\[]*)(\[/face\])"
strContent = re.Replace(strContent, "<font face=$2>$3</font>")
re.Pattern = "\[align=(center|left|right)\](.*)\[/align\]"
strContent = re.Replace(strContent, "<div align=$1>$2</div>")
re.Pattern = "(\[QUOTE\])(.*)(\[/QUOTE\])"
strContent = re.Replace(strContent, "<table cellpadding=0 cellspacing=0 border=1 WIDTH=94% bordercolor=#000000 bgcolor=#F2F8FF align=center ><tr><td ><table width=100% cellpadding=5 cellspacing=1 border=0><TR><TD BGCOLOR=''#F6F6F6''>$2</table></table><br>")
re.Pattern = "(\[move\])(.*)(\[/move\])"
strContent = re.Replace(strContent, "<MARQUEE scrollamount=3>$2</marquee>")
re.Pattern = "\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[/GLOW]"
strContent = re.Replace(strContent, "<table width=$1 style=""filter:glow(color=$2, strength=$3)"">$4</table>")
re.Pattern = "\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[/SHADOW]"
strContent = re.Replace(strContent, "<table width=$1 style=""filter:shadow(color=$2, strength=$3)"">$4</table>")
Set re = Nothing
strContent = Replace(strContent, "{", "{")
strContent = Replace(strContent, "}", "}")
strContent = Replace(strContent, "$", "$")
UbbCode = strContent
End Function
%>
