代码如下: <%dim param,smiles ‘param是UBB标签完全可用的标记 param=full 则完全可用,否则不支持一些占位大的标签 smiles是禁止笑脸转换function UBBCode(content)dim n,i‘on error resume nextset re=new regexpre.IgnoreCase=truere.global=true re.pattern=”\[code\](\r\n)?([\s\S]+?)\[\/code\]”Set Matches = re.Execute(content)dim code()n=0if re.