论坛UBB代码 推荐
代码如下：
%
dim param,smiles 'param是UBB标签完全可用的标记 param=full 则完全可用，否则不支持一些占位大的标签 smiles是禁止笑脸转换
function UBBCode(content)
dim n,i
'on error resume next
set re=new regexp
re.IgnoreCase=true
re.global=true
re.pattern="\[code\](\r\n)？([\s\S]+？)\[\/code\]"
Set Matches = re.Execute(content)
dim code()
n=0
if re.test(content) then codeb=true
if codeb then
For Each Match in Matches
redim Preserve code(n)
code(n) =Match.Value
n=n+1
Next
for i=0 to ubound(code)
if code(i)="...[ 查看全文 ]
2016-02-19
标签:
