ubbcode.asp 代码如下:<% Function UBBCode(strContent) If isEmpty(strContent) Or isNull(strContent) Then Exit Function Else dim regex,strMatch set regex=new RegExp regex.IgnoreCase =True regex.Global=True regex.Pattern=”\[html\]((\r\n)?([\s\S]+?))\[\/html\]” Set strMatchs=regex.Execute(strContent)