关于用文本做为分类的有关问题

关于用文本做为分类的问题
我现在用文本来作为分类标识
而且同一条可能有多个分类

现在我后台修改分类名的方法是
对于每条信息
temp   =   ReplaceText(temp,   "(^|,   ) "&oldname& "(,|$) ",   "$1 "&type_name& "$2 ")

删除的方法是
temp   =   ReplaceText(temp,   "(^|,   ) "&oldname& "(,|$) ",   ", ")
temp   =   ReplaceText(temp,   "^,   |,$ ",   " ")

不知有没有更好的方法呢
ReplaceText应该都知道是什么吧

[解决办法]
飘过