ASP的ubb函数

ASP #ubb #函数2012-05-08 11:49
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=$2 onclick=""javascript:window.open(this.src);"" style=""CURSOR: pointer"" border=""0"">") 
strContent = re.replace(strContent,"<IMG SRC=$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=$3 pluginspage=http://www.macromedia.com/shockwave/download/ width=$1 height=$2></embed>") 
re.Pattern = "\[QT=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/QT]" 
strContent = re.Replace(strContent, "<embed src=$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=$3 width=$1 height=$2></embed>") 
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=$3><PARAM NAME=CONSOLE VALUE=Clip1><PARAM NAME=CONTROLS VALUE=imagewindow><PARAM NAME=AUTOSTART VALUE=true></OBJECT><br><OBJECT classid=CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA height=32 id=video2 width=$1><PARAM NAME=SRC VALUE=$3><PARAM NAME=AUTOSTART VALUE=-1><PARAM NAME=CONTROLS VALUE=controlpanel><PARAM NAME=CONSOLE VALUE=Clip1></OBJECT>") 
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
ASP 教程

ASP 对象

ASP 组件

ASP 总结

ASP的ubb函数

相关文章
