论坛完整版ubb代码

最新推荐文章于 2021-03-19 09:36:38 发布

xpnh123

最新推荐文章于 2021-03-19 09:36:38 发布

阅读量2.9k

点赞数

文章标签： object border flash function class filter

本文链接：https://blog.csdn.net/xpnh123/article/details/2509508

版权

这段代码提供了一组VBScript函数，用于处理和转换论坛中的UBB代码，如[url]、[img]、[flash]、[font]等，将其转化为HTML以便在网页上正确显示。函数包括ChkBadWords（过滤敏感词）、doCode（处理代码标签）、HTMLEncode（HTML转义）、Ubbcode（主要的UBB代码转换函数）。通过正则表达式实现UBB到HTML的转换，支持链接、图片、字体样式和多媒体播放等。

摘要由CSDN通过智能技术生成

<%
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, ">", ">")
    fString = replace(fString, "<", "<")
fString = replace(fString, "“", "”")

    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(strcon