ubbcode简单实用
admin
2023-07-30 20:18:45
0次

<%
function ChkBadWords(fString)
    if not(isnull(BadWords) or isnull(fString)) then
    bwords = split(BadWords, \”|\”)
    for i = 0 to ubound(bwords)
        fString = Replace(fString, bwords(i), string(len(bwords(i)),\”*\”))
    next
    ChkBadWords = fString
    end if
end function


function HTMLEncode(fString)
if not isnull(fString) then
    \’fString = Replace(fString, CHR(38), \”&\”)
    \’fString = replace(fString, \”>\”, \”>\”)
    \’fString = replace(fString, \”<\”, \”<\”)
    \’fString = Replace(fString, CHR(39), \”'\”)
    \’fString = Replace(fString, CHR(32), \” \”)
    \’fString = Replace(fString, CHR(34), \”"\”)
    \’fString = Replace(fString, CHR(13), \”\”)
    fString = Replace(fString, CHR(10), \”
\”)
    HTMLEncode = fString
end if
end function


function HTMLcode(fString)
if not isnull(fString) then
    fString = Replace(fString, CHR(13), \”\”)
    fString = Replace(fString, CHR(10), \”
\”)
    HTMLcode = fString
end if
end function
function HTMLDecode(fString)
if not isnull(fString) then
    \’fString = Replace(fString, CHR(38), \”&\”)
    \’fString = replace(fString, \”>\”, \”>\”)
    \’fString = replace(fString, \”<\”, \”<\”)
    \’fString = Replace(fString, CHR(32), \” \”)
    \’fString = Replace(fString,\”\”,CHR(13))
    fString = Replace(fString,\”
\”,CHR(10))
    HTMLDecode = fString
end if
end function


function UBBCode(strContent)
    if strAllowHTML <> 1 then
        strContent = HTMLEncode(strContent)
    else
 strContent = HTMLcode(strContent)
    end if
    dim re
    Set re=new RegExp
    re.IgnoreCase =true
    re.Global=True


    re.Pattern=\”\\[IMG\\](.[^\\[]*)\\[\\/IMG\\]\”
    strContent=re.Replace(strContent,\”\”)
    re.Pattern=\”\\[IMG=*([0-9]*),*([0-9]*)\\](.[^\\[]*)\\[\\/IMG\\]\”
    strContent=re.Replace(strContent,\”\”)

        \’图文混排
    re.Pattern=\”\\[PIC\\](.[^\\[]*)\\[\\/PIC\\]\”
    strContent=re.Replace(strContent,\”\”)
    re.Pattern=\”\\[PIC=*([0-9]*),*([0-9]*)\\](.[^\\[]*)\\[\\/PIC\\]\”
    strContent=re.Replace(strContent,\”\”)


   

    re.Pattern=\”\\[FLASH=*([0-9]*),*([0-9]*)\\](.[^\\[]*)\\[\\/FLASH\\]\”
    strContent= re.Replace(strContent,\”\”)
    re.Pattern=\”\\[FLASH\\](.[^\\[]*)\\[\\/FLASH\\]\”
    strContent= re.Replace(strContent,\”\”)


    re.Pattern=\”(\\[URL\\])(http:\\/\\/.[^\\[]*)(\\[\\/URL\\])\”
    strContent= re.Replace(strContent,\”$2\”)
    re.Pattern=\”(\\[URL\\])(.[^\\[]*)(\\[\\/URL\\])\”
    strContent= re.Replace(strContent,\”$2\”)


    re.Pattern=\”(\\[EMAIL\\])(mailto:\\/\\/.[^\\[]*)(\\[\\/EMAIL\\])\”
    strContent= re.Replace(strContent,\”$2\”)
    re.Pattern=\”(\\[EMAIL\\])(.[^\\[]*)(\\[\\/EMAIL\\])\”
    strContent= re.Replace(strContent,\”$2\”)


    re.Pattern=\”(\\[URL=(http:\\/\\/.[^\\[]*)\\])(.[^\\[]*)(\\[\\/URL\\])\”
    strContent= re.Replace(strContent,\”$3\”)
    re.Pattern=\”(\\[URL=(.[^\\[]*)\\])(.[^\\[]*)(\\[\\/URL\\])\”
    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\”)
 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,\”

$3
\”)


    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,\”
  • $2
    • \”)
        \’字体背景
        re.Pattern=\”(\\[fontbg=(.[^\\[]*)\\])(.[^\\[]*)(\\[\\/fontbg\\])\”
        strContent=re.Replace(strContent,\”$3\”)
        \’删除线
        re.Pattern=\”(\\[strike\\])(.[^\\[]*)(\\[\\/strike\\])\”
        strContent=re.Replace(strContent,\”$2\”)


        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
    %>

    ubbcode 简单

    上一篇：数据库和数据结构的区别

    下一篇：自学编程方法论：怎么学操作系统

    相关内容

    热门资讯

    Mobi、epub格式电子书如... 在wps里全局设置里有一个文件关联，打开，勾选电子书文件选项就可以了。
    定时清理删除C:\Progra... C:\Program Files (x86)下面很多scoped_dir开头的文件夹 写个批处理 定...
    scoped_dir32_70... 一台虚拟机C盘总是莫名奇妙的空间用完，导致很多软件没法再运行。经过仔细检查发现是C:\Program...
    500 行 Python 代码... 语法分析器描述了一个句子的语法结构，用来帮助其他的应用进行推理。自然语言引入了很多意外的歧义，以我们...
    小程序支付时提示：appid和... [Q]小程序支付时提示：appid和mch_id不匹配 [A]小程序和微信支付没有进行关联，访问“小...
    pycparser 是一个用... `pycparser` 是一个用 Python 编写的 C 语言解析器。它可以用来解析 C 代码并构...
    微信小程序使用slider实现... 众所周知哈，微信小程序里面的音频播放是没有进度条的，但最近有个项目呢，客户要求音频要有进度条控制，所...
    65536是2的几次方 计算2... 65536是2的16次方：65536=2⁶ 65536是256的2次方：65536=256 6553...
    Apache Doris 2.... 亲爱的社区小伙伴们，我们很高兴地向大家宣布，Apache Doris 2.0.0 版本已于...
    项目管理和工程管理的区别 项目管理 项目管理，顾名思义就是专注于开发和完成项目的管理，以实现目标并满足成功标准和项目要求。 工...