function ClnCode(strContent)
dim re
set re = New RegExp
re.Global = True
re.IgnoreCase = True
re.Pattern = "\<(\s*.*)>"
strContent = re.Replace(strContent,"")
re.Pattern = "\<(\s\/*.*)>"
strContent = re.Replace(strContent,"")
re.Pattern = "\[(.*)\]"
strContent = re.Replace(strContent,"")
re.Pattern = "\[(\/.*)]"
strContent = re.Replace(strContent,"")
ClnCode = strContent
End Function这个把ubb去掉了。asp的自己改一下就好了,不过<%不好改。因为如果用Response.write 出来的东西,你也去掉了。那么文章就会完全不同了啊。