论坛完整版ubb代码

<%
function ChkBadWords(fString)
    bwords = split(BadWords, "|")
    for i = 0 to ubound(bwords)
        fString = Replace(fString, bwords(i), string(len(bwords(i)),"*"))
    next
    fString = Replace(fString, "'","")
    ChkBadWords = fString
end function
function doCode(fString, fOTag, fCTag, fROTag, fRCTag)
    fOTagPos = Instr(1, fString, fOTag, 1)
    fCTagPos = Instr(1, fString, fCTag, 1)
    while (fCTagPos > 0 and fOTagPos > 0)
        fString = replace(fString, fOTag, fROTag, 1, 1, 1)
        fString = replace(fString, fCTag, fRCTag, 1, 1, 1)
        fOTagPos = Instr(1, fString, fOTag, 1)
        fCTagPos = Instr(1, fString, fCTag, 1)
    wend
    doCode = fString
end function
function HTMLEncode(fString)
    fString = replace(fString, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")
fString = replace(fString, "&#8220;", "”")

    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
    fString = Replace(fString, CHR(10), "<BR>")
    HTMLEncode = fString
end function
Public Function Ubbcode(strcontent)
if strAllowHTML <> 1 then
        strContent = HTMLEncode(strContent)
    end if
    dim re
    Set re=new RegExp
    re.IgnoreCase =true
    re.Global=True
       'url
re.Pattern="(/[URL/])(http:.[^/]]*)(/[//URL/])"
    strContent= re.Replace(strContent,"<img align=absmiddle src=images/url.gif><A HREF=""$2"" TARGET=_blank>$2</A>")
    re.Pattern="(/[URL/])(.[^/]]*)(/[//URL/])"
    strContent= re.Replace(strContent,"<img align=absmiddle src=images/url.gif><A HREF="" http://$2 "" TARGET=_blank>$2</A>")
    re.Pattern="(/[URL=(http:.[^/]]*)/])(.[^/]]*)(/[//URL/])"
    strContent= re.Replace(strContent,"<img align=absmiddle src=images/url.gif><A HREF=""$2"" TARGET=_blank>$3</A>")
    re.Pattern="(/[URL=(.[^/]]*)/])(.[^/]]*)(/[//URL/])"
    strContent= re.Replace(strContent,"<img align=absmiddle src=images/url.gif><A HREF="" http://$2 "" TARGET=_blank>$3</A>")
       '图片UBB
re.pattern="/[img/](http|https|ftp):(.[^/[]*)/[//img/]"
strcontent=re.replace