asp 清除html的函数

'清除HTML代码
function clearhtml(content)
	content=replacehtml("&#[^>]*;","",content)
	content=replacehtml("</?marquee[^>]*>","",content)
	content=replacehtml("</?object[^>]*>","",content)
	content=replacehtml("</?param[^>]*>","",content)
	content=replacehtml("</?embed[^>]*>","",content)
	content=replacehtml("</?table[^>]*>","",content)
	content=replacehtml("&nbsp;","",content)
	content=replacehtml("</?tr[^>]*>","",content)
	content=replacehtml("</?th[^>]*>","",content)
	content=replacehtml("</?p[^>]*>","",content)
	content=replacehtml("</?a[^>]*>","",content)
	content=replacehtml("</?img[^>]*>","",content)
	content=replacehtml("</?tbody[^>]*>","",content)
	content=replacehtml("</?li[^>]*>","",content)
	content=replacehtml("</?span[^>]*>","",content)
	content=replacehtml("</?div[^>]*>","",content)
	content=replacehtml("</?th[^>]*>","",content)
	content=replacehtml("</?td[^>]*>","",content)
	content=replacehtml("</?script[^>]*>","",content)
	content=replacehtml("(javascript|jscript|vbscript|vbs):","",content)
	content=replacehtml("on(mouse|exit|error|click|key)","",content)
	content=replacehtml("<\\?xml[^>]*>","",content)
	content=replacehtml("<\/?[a-z]+:[^>]*>","",content)
	content=replacehtml("</?font[^>]*>","",content)
	content=replacehtml("</?h[^>]*>","",content)
	content=replacehtml("</?u[^>]*>","",content)
	content=replacehtml("</?i[^>]*>","",content)
	content=replacehtml("</?center[^>]*>","",content)
	content=replacehtml("</?center[^>]*>","",content)
	content=replacehtml("</?nobr[^>]*>","",content)
	content=replacehtml("</?clk[^>]*>","",content)
	content=replacehtml("</?muti[^>]*>","",content)
	content=replacehtml("</?/option[^>]*>","",content)
	content=replacehtml("</?o[^>]*>","",content)
	content=replacehtml("</?strong[^>]*>","",content)
	clearhtml=content
end function