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:)”         strContent