asp 清除html的函数-尊龙凯时

'清除html代码
function clearhtml(content)
	content=replacehtml("&#[^>]*;","",content)
	content=replacehtml("]*>","",content)
	content=replacehtml("]*>","",content)
	content=replacehtml("]*>","",content)
	content=replacehtml("]*>","",content)
	content=replacehtml("]*>","",content)
	content=replacehtml(" ","",content)
	content=replacehtml("]*>","",content)
	content=replacehtml("]*>","",content)
	content=replacehtml("]*>","",content)
	content=replacehtml("]*>","",content)
	content=replacehtml("]*>","",content)
	content=replacehtml("]*>","",content)
	content=replacehtml("]*>","",content)
	content=replacehtml("]*>","",content)
	content=replacehtml("]*>","",content)
	content=replacehtml("]*>","",content)
	content=replacehtml("]*>","",content)
	content=replacehtml("]*>","",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("]*>","",content)
	content=replacehtml("]*>","",content)
	content=replacehtml("]*>","",content)
	content=replacehtml("]*>","",content)
	content=replacehtml("]*>","",content)
	content=replacehtml("]*>","",content)
	content=replacehtml("]*>","",content)
	content=replacehtml("]*>","",content)
	content=replacehtml("]*>","",content)
	content=replacehtml("]*>","",content)
	content=replacehtml("]*>","",content)
	content=replacehtml("]*>","",content)
	clearhtml=content
end function