HTML转UBB的函数

最新推荐文章于 2021-03-23 06:49:54 发布

一把编程的菜刀

最新推荐文章于 2021-03-23 06:49:54 发布

阅读量1k

点赞数

分类专栏： asp 文章标签： html function url

本文链接：https://blog.csdn.net/chinmo/article/details/2203464

版权

asp 专栏收录该内容

22 篇文章 0 订阅

订阅专栏

< %
function html2ubb(l1)
if len ( trim (l1)) > 0 then
else
exit function
end if
dim l4,I1,I2,I3
dim i,I4:I4 = array ( 16 , 19 , 21 , 24 , 32 , 45 )
I1 = l1
set I2 = new regexp
I2.global = true
I2.ignorecase = true ' 忽略大小写
I2.pattern = " /r " :I1 = I2.replace(I1, "" )
I2.pattern = " on(load|click|dbclick|mouseover|mousedown|mouseup)=""[^""]+"" " :I1 = I2.replace(I1, "" )
I2.pattern = " <script[^>]*?>([wW]*?)</script> " :I1 = I2.replace(I1, "" )
I2.pattern = " <a[^>]+href=""([^""]+)""[^>]*>(.*?)</a> " :I1 = I2.replace(I1, " [url=$1]$2[/url] " )
I2.pattern = " <font[^>]+color=([^ >]+)[^>]*>(.*?)</font> " :I1 = I2.replace(I1, " [color=$1]$2[/color] " )
I2.pattern = " <img[^>]+src=""([^""]+)""[^>]*> " :I1 = I2.replace(I1, " [img]$1[/img] " )
I2.pattern = " <([/]?)b> " :I1 = I2.replace(I1, " [$1b] " )
I2.pattern = " <([/]?)strong> " :I1 = I2.replace(I1, " [$1b] " )
I2.pattern = " <([/]?)u> " :I1 = I2.replace(I1, " [$1u] " )
I2.pattern = " <([/]?)i> " :I1 = I2.replace(I1, " [$1i] " )
I2.pattern = " " :I1 = I2.replace(I1, " " )
I2.pattern = " & " :I1 = I2.replace(I1, " & " )
I2.pattern = " "":I1=I2.replace(I1,"""")
I2.pattern = " < " :I1 = I2.replace(I1, " < " )
I2.pattern = " > " :I1 = I2.replace(I1, " > " )
I2.pattern = " <br /> " :I1 = I2.replace(I1,vbcrlf)
I2.pattern = " <[^>]*?> " :I1 = I2.replace(I1, "" )
I2.pattern = " + " :I1 = I2.replace(I1,vbcrlf)
set I2 = nothing
html2ubb = I1
end function
response.write html2ubb( " IT人家<img src=""logo.gif""> " )
% >