<% '业务功能类 Dim func : Set func = new TFunc Class TFunc ' 去掉 CKeditor 产生的多余换行 Function clear(aHtml) Dim dirtyHtml dirtyHtml = "<p>([^a-zA-Z]|( )|(br))*?</p>" clear = sys.replaceRegExp(aHtml,dirtyHtml,"") clear = sys.replaceRegExp(clear," "," ") End Function End Class %>