asp ubb轉碼程式

function UBBCode(strContent,ctype)
 on error resume next
 if ctype=1 then
 strContent = HTMLEncode(strContent)
 else
 strContent = strContent
 end if
 dim objRegExp
 Set objRegExp=new RegExp
 objRegExp.IgnoreCase =true
 objRegExp.Global=True
    if ctype=1 then
 objRegExp.Pattern="([URL])(.*?)([/URL])"
 strContent= objRegExp.Replace(strContent,"<A HREF=""$2"" TARGET=_blank style='font-family: verdana, arial, helvetica, sans-serif,宋體;font-size: 14px'>$2</A>")
 objRegExp.Pattern="([URL=(.*?)])(.*?)([/URL])"
 strContent= objRegExp.Replace(strContent,"<A HREF=""$2"" TARGET=_blank>$3</A>")
 objRegExp.Pattern="([EMAIL])(.*?)([/EMAIL])"
 strContent= objRegExp.Replace(strContent,"<A HREF=""mailto:$2"">$2</A>")
 objRegExp.Pattern="([EMAIL=(.*?)])(.*?)([/EMAIL])"
 strContent= objRegExp.Replace(strContent,"<A HREF=""mailto:$2"" TARGET=_blank>$3</A>")
 objRegExp.Pattern="([FLASH])(.*?)([/FLASH])"
 strContent= objRegExp.Replace(strContent,"<OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=500 height=400><PARAM NAME=movie VALUE=""$2""><PARAM NAME=quality VALUE=high><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></OBJECT>")
 objRegExp.Pattern="([IMG])(.*?)([/IMG])"
 strContent=objRegExp.Replace(strContent,"<a onfocus=this.blur() href=""$2"" target=_blank><IMG SRC=""$2"" border=0 alt=按此在新視窗瀏覽圖片 onload=""javascript教程:if(this.width>screen.width-660)this.width=screen.width-660""></a>")
 '自動識別網址
    objRegExp.Pattern = "^((http|https教程|ftp|rtsp|mms):(//|\\)[A-Za-z0-9./=?%-&_~`@[]':+!]+)"
    strContent = objRegExp.Replace(strContent,"<a target=_blank href=$1 style='font-family: verdana, arial, helvetica, sans-serif,宋體;font-size: 14px'>$1</a>")
 objRegExp.Pattern = "((http|https|ftp|rtsp|mms):(//|\\)[A-Za-z0-9./=?%-&_~`@[]':+!]+)$"
 strContent = objRegExp.Replace(strContent,"<a target=_blank href=$1 style='font-family: verdana, arial, helvetica, sans-serif,宋體;font-size: 14px'>$1</a>")
 objRegExp.Pattern = "([^>=""])((http|https|ftp|rtsp|mms):(//|\\)[A-Za-z0-9./=?%-&_~`@[]':+!]+)"
 strContent = objRegExp.Replace(strContent,"$1<a target=_blank href=$2 style='font-family: verdana, arial, helvetica, sans-serif,宋體;font-size: 14px'>$2</a>")
    objRegExp.Pattern="([HTML])(.*?)([/HTML])"
 strContent=objRegExp.Replace(strContent,"<SPAN><p><IMG src=pic/code.gif align=absBottom>該篇文章附帶的 HTML 程式碼片段如下:<BR><TEXTAREA style=""WIDTH: 94%; BACKGROUND-COLOR: #f7f7f7"" name=textfield rows=10>$2</TEXTAREA><BR><INPUT onclick=runEx() type=button value=運行此代碼 name=Button> [Ctrl+A 全部選擇   提示:你可先修改部分代碼，再按運行]</SPAN><BR>")
 objRegExp.Pattern="([color=(.*?)])(.*?)([/color])"
 strContent=objRegExp.Replace(strContent,"<font color=$2>$3</font>")
 objRegExp.Pattern="([face=(.*?)])(.*?)([/face])"
 strContent=objRegExp.Replace(strContent,"<font face=$2>$3</font>")
 objRegExp.Pattern="([align=(.*?)])(.*?)([/align])"
 strContent=objRegExp.Replace(strContent,"<div align=$2>$3</div>")
 objRegExp.Pattern="([QUOTE])(.*?)([/QUOTE])"
 strContent=objRegExp.Replace(strContent,"<BLOCKQUOTE><font size=1 face=""Verdana, Arial"">quote:</font><HR>$2<HR></BLOCKQUOTE>")
 objRegExp.Pattern="([fly])(.*?)([/fly])"
 strContent=objRegExp.Replace(strContent,"<marquee width=90% behavior=alternate scrollamount=3>$2</marquee>")
 objRegExp.Pattern="([move])(.*?)([/move])"
 strContent=objRegExp.Replace(strContent,"<MARQUEE scrollamount=3>$2</marquee>")
 objRegExp.Pattern="([glow=(.*?),(.*?),(.*?)])(.*?)([/glow])"
 strContent=objRegExp.Replace(strContent,"<table width=$2 style=""filter:glow(color=$3, strength=$4)"">$5</table>")
 objRegExp.Pattern="([SHADOW=(.*?),(.*?),(.*?)])(.*?)([/SHADOW])"
 strContent=objRegExp.Replace(strContent,"<table width=$2 style=""filter:shadow(color=$3, direction=$4)"">$5</table>")
 objRegExp.Pattern="([i])(.*?)([/i])"
 strContent=objRegExp.Replace(strContent,"<i>$2</i>")
 objRegExp.Pattern="([u])(.*?)([/u])"
 strContent=objRegExp.Replace(strContent,"<u>$2</u>")
 objRegExp.Pattern="([b])(.*?)([/b])"
 strContent=objRegExp.Replace(strContent,"<b>$2</b>")
 objRegExp.Pattern="([fly])(.*?)([/fly])"
 strContent=objRegExp.Replace(strContent,"<marquee>$2</marquee>")
 objRegExp.Pattern="([size=1])(.*?)([/size])"
 strContent=objRegExp.Replace(strContent,"<font size=1>$2</font>")
 objRegExp.Pattern="([size=2])(.*?)([/size])"
 strContent=objRegExp.Replace(strContent,"<font size=2>$2</font>")
 objRegExp.Pattern="([size=3])(.*?)([/size])"
 strContent=objRegExp.Replace(strContent,"<font size=3>$2</font>")
 objRegExp.Pattern="([size=4])(.*?)([/size])"
 strContent=objRegExp.Replace(strContent,"<font size=4>$2</font>")
 strContent = doCode(strContent, "[list]", "[/list]", "<ul>", "</ul>")
 strContent = doCode(strContent, "[list=1]", "[/list]", "<ol type=1>", "</ol id=1>")
 strContent = doCode(strContent, "[list=a]", "[/list]", "<ol type=a>", "</ol id=a>")
 strContent = doCode(strContent, "[*]", "[/*]", "<li>", "</li>")
 strContent = doCode(strContent, "[code]", "[/code]", "<pre id=code><font size=1 face=""Verdana, Arial"" id=code>", "</font id=code></pre id=code>")
 end if
    if ctype=1 or ctype=2 then
 objRegExp.Pattern="[UPLOAD=(gif|jpg|jpeg|bmp|png)](.[^[]*)(gif|jpg|jpeg|bmp|png)[/UPLOAD]"
 strContent= objRegExp.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>")
    objRegExp.Pattern="[UPLOAD=(.[^[]*)](.[^[]*)[/UPLOAD]"
    strContent= objRegExp.Replace(strContent,"<br><IMG SRC=""../images/files/$1.gif"" border=0> <a href=""$2"" style='font-family: verdana, arial, helvetica, sans-serif,宋體;font-size: 14px' target=_blank>點擊瀏覽相關檔案</a>")
 end if
 set objRegExp=Nothing
 UBBCode=strContent
end function