ubbcode函数

代码如下:<% Public Function UbbCode(strContent) Dim re Set re = New RegExp re.IgnoreCase = True re.Global = True ‘过滤危险脚本 re.Pattern = “([removed])” strContent = re.Replace(strContent, “[removed]”) re.Pattern = “(script:)” str