asp 正则实现清除html文本格式的函数代码

<%
'/* 函数名称：zxj_replacehtml　clearhtml
'/* 函数语言：vbscript language
'/* 作　　用：清除文件html格式函数
'/* 传递参数：content (注：需要进行清除的内容)
'/* 函数作者：张晓军(古城童话)　qq:382511147
'/* 函数说明：正则匹配(正则表达式)模式进行数据匹配替换

function clearhtml(content)
content=zxj_replacehtml("[^>]*;", "", content)
content=zxj_replacehtml("</?marquee[^>]*>", "", content)
content=zxj_replacehtml("</?object[^>]*>", "", content)
content=zxj_replacehtml("</?param[^>]*>", "", content)
content=zxj_replacehtml("</?embed[^>]*>", "", content)
content=zxj_replacehtml("</?table[^>]*>", "", content)
content=zxj_replacehtml(" ","",content)
content=zxj_replacehtml("</?tr[^>]*>", "", content)
content=zxj_replacehtml("</?th[^>]*>","",content)
content=zxj_replacehtml("</?p[^>]*>","",content)
content=zxj_replacehtml("</?a[^>]*>","",content)
content=zxj_replacehtml("</?img[^>]*>","",content)
content=zxj_replacehtml("</?tbody[^>]*>","",content)
content=zxj_replacehtml("</?li[^>]*>","",content)
content=zxj_replacehtml("</?span[^>]*>","",content)
content=zxj_replacehtml("</?div[^>]*>","",content)
content=zxj_replacehtml("</?th[^>]*>", "", content)
content=zxj_replacehtml("</?td[^>]*>", "", content)
content=zxj_replacehtml("</?script[^>]*>", "", content)
content=zxj_replacehtml("(javascript|jscript|vbscript|vbs):", "", content)
content=zxj_replacehtml("on(mouse|exit|error|click|key)", "", content)
content=zxj_replacehtml("<\\?xml[^>]*>", "", content)
content=zxj_replacehtml("<\/?[a-z]+:[^>]*>", "", content)
content=zxj_replacehtml("</?font[^>]*>", "", content)
content=zxj_replacehtml("</?b[^>]*>","",content)
content=zxj_replacehtml("</?u[^>]*>","",content)
content=zxj_replacehtml("</?i[^>]*>","",content)
content=zxj_replacehtml("</?strong[^>]*>","",content)
clearhtml=content
end function

function zxj_replacehtml(patrn, strng,content)
if isnull(content) then
content=""
end if
set regex = new regexp ' 建立正则表达式。
regex.pattern = patrn ' 设置模式。
regex.ignorecase = true ' 设置忽略字符大小写。
regex.global = true ' 设置全局可用性。
zxj_replacehtml=regex.replace(content,strng) ' 执行正则匹配
end function
%>