<%
function UBBCode(strContent)
dim re,i
strContent=encodestr(strContent)
for i=0 to ubound(killword)
strContent=replace(strContent,killword(i),"***")
next
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(\[IMG\])(\S+?)(\[\/IMG\])"
if imgUbb then
strContent=re.Replace(strContent,"$2 ")
end if
if instr( request.servervariables("url"),"show")>0 then
re.Pattern="\[DIR=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/DIR]"
strContent=re.Replace(strContent,"")
re.Pattern="\[MP=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/MP]"
strContent=re.Replace(strContent,"$3 ")
re.Pattern="\[QT=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/QT]"
strContent=re.Replace(strContent,"$3 ")
re.Pattern="\[MP=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/MP]"
strContent=re.Replace(strContent,"$3 ")
re.Pattern="\[RM=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/RM]"
strContent=re.Replace(strContent,"$3 ")
end if
re.Pattern="(\[FLASH\])(.+?)(\[\/FLASH\])"
strContent= re.Replace(strContent,"$2 $2 ")
re.Pattern="(\[URL=(\S+?)\])(.+?)(\[\/URL\])"
strContent= re.Replace(strContent,"$3 ")
re.Pattern="(\[EMAIL\])(\S+\@\S+?)(\[\/EMAIL\])"
strContent= re.Replace(strContent,"$2 ")
re.Pattern="(\[EMAIL=(\S+\@\S+?)\])(.+?)(\[\/EMAIL\])"
strContent= re.Replace(strContent,"$3 ")
re.Pattern = "^(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
strContent = re.Replace(strContent,"$1 ")
re.Pattern = "(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"
strContent = re.Replace(strContent,"$1 ")
re.Pattern = "([^>=""])(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
strContent = re.Replace(strContent,"$1$2 ")
re.Pattern = "^(ftp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
strContent = re.Replace(strContent,"$1 ")
re.Pattern = "(ftp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"
strContent = re.Replace(strContent,"$1 ")
re.Pattern = "([^>=""])(ftp://[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)"
strContent = re.Replace(strContent,"$1$2 ")
re.Pattern = "^(rtsp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
strContent = re.Replace(strContent,"$1 ")
re.Pattern = "(rtsp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"
strContent = re.Replace(strContent,"$1 ")
re.Pattern = "([^>=""])(rtsp://[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)"
strContent = re.Replace(strContent,"$1$2 ")
re.Pattern = "^(mms://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
strContent = re.Replace(strContent,"$1 ")
re.Pattern = "(mms://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"
strContent = re.Replace(strContent,"$1 ")
re.Pattern = "([^>=""])(mms://[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)"
strContent = re.Replace(strContent,"$1$2 ")
re.Pattern="(\[HTML\])(.+?)(\[\/HTML\])"
strContent=re.Replace(strContent,"")
re.Pattern="(\[color=(.+?)\])(.+?)(\[\/color\])"
strContent=re.Replace(strContent,"$3 ")
re.Pattern="(\[face=(.+?)\])(.+?)(\[\/face\])"
strContent=re.Replace(strContent,"$3 ")
re.Pattern="(\[align=(.+?)\])(.+?)(\[\/align\])"
strContent=re.Replace(strContent,"$3
")
re.Pattern="(\[QUOTE\])(.+?)(\[\/QUOTE\])"
strContent=re.Replace(strContent,"$2 ")
re.Pattern="(\[move\])(.+?)(\[\/move\])"
strContent=re.Replace(strContent,"$2 ")
re.Pattern="\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/GLOW]"
strContent=re.Replace(strContent,"")
re.Pattern="\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/SHADOW]"
strContent=re.Replace(strContent,"")
re.Pattern="(\[i\])(.+?)(\[\/i\])"
strContent=re.Replace(strContent,"$2 ")
re.Pattern="(\[u\])(.+?)(\[\/u\])"
strContent=re.Replace(strContent,"$2 ")
re.Pattern="(\[b\])(.+?)(\[\/b\])"
strContent=re.Replace(strContent,"$2 ")
re.Pattern="(\[fly\])(.+?)(\[\/fly\])"
strContent=re.Replace(strContent,"$2 ")
re.Pattern="(\[size=1\])(.+?)(\[\/size\])"
strContent=re.Replace(strContent,"$2 ")
re.Pattern="(\[size=2\])(.+?)(\[\/size\])"
strContent=re.Replace(strContent,"$2 ")
re.Pattern="(\[size=3\])(.+?)(\[\/size\])"
strContent=re.Replace(strContent,"$2 ")
re.Pattern="(\[size=4\])(.+?)(\[\/size\])"
strContent=re.Replace(strContent,"$2 ")
re.Pattern="(\[center\])(.+?)(\[\/center\])"
strContent=re.Replace(strContent,"$2 ")
set re=Nothing
UBBCode=strContent
end function
%> 
$2 ")
end if
if instr( request.servervariables("url"),"show")>0 then
re.Pattern="\[DIR=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/DIR]"
strContent=re.Replace(strContent,"")
re.Pattern="\[QT=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/QT]"
strContent=re.Replace(strContent,"