样的功能就是实现一般html,ubb标签的闭合，以前在pjblog中见过，一直没用，这个函数不错，建议可以参考下pjblog中的函数。

在用到编辑器时，就会碰到一点，那就是标签的闭合问题，这个问题非常严峻，因为这可能会导致网页显示的整体样式受到破坏。

Function closeUBB(strContent) ‘************************************* ‘自动闭合UBB ‘************************************* Dim arrTags, i, OpenPos, ClosePos, re, strMatchs, j, Match Set re = New RegExp ‘申明re对象 re.IgnoreCase = True ‘设置是否区分字符大小写 re.Global =

这最近在PJ的function库里看到的这个函数，感觉思路差了点，不过相对比较完美，只是闭合标签时的顺序问题，呵呵 修改一下数组arrTags里的各元素内容，可以达到闭合任何标签的功能。 在此，我给增加了一些注释，方便大家一起学习学习 代码如下: Function closeUBB(strContent) ‘************************************* ‘自动闭合UBB ‘************************************* Dim arrT