", ">")
    'fString = replace(fString, "=""](http://[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")
 re.Pattern = "[^>=""](ftp://[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")
 re.Pattern = "[^>=""](rtsp://[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")
 re.Pattern = "[^>=""](mms://[A-Za-z0-9./=?%-&_~`@':+!]+)"
 strContent = re.Replace(strContent,"$1")

    re.Pattern="[DIR=*([0-9]*),*([0-9]*)](.[^[]*)[/DIR]"
 strContent=re.Replace(strContent,"")
 re.Pattern="[QT=*([0-9]*),*([0-9]*)](.[^[]*)[/QT]"
 strContent=re.Replace(strContent,"")
 re.Pattern="[MP=*([0-9]*),*([0-9]*)](.[^[]*)[/MP]"
 strContent=re.Replace(strContent,"")
 re.Pattern="[RM=*([0-9]*),*([0-9]*)](.[^[]*)[/RM]"
 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,"

    re.Pattern="([QUOTE])(.*)([/QUOTE])"
    strContent=re.Replace(strContent,"$2
")
    re.Pattern="([fly])(.*)([/fly])"
    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,"$4")
    re.Pattern="[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)](.[^[]*)[/SHADOW]"
 strContent=re.Replace(strContent,"$4")

    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")
    '以下扩展
    re.Pattern="([li])(.[^[]*)([/li])"
    strContent=re.Replace(strContent,"

    re.Pattern="([HTML])(.[^[]*)([/HTML])"
 strContent=re.Replace(strContent,"以下内容为程序代码:
$2")
 re.Pattern="([code])(.[^[]*)([/code])"
 strContent=re.Replace(strContent,"以下内容为程序代码:
$2")

    strContent=ChkBadWords(strContent)

    set re=Nothing
    UBBCode=strContent
end function
%>

您可能感兴趣的文章: