ubbcode函数

复制代码代码如下:
<%
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
%>