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

function replacehtml(patrn,strng,content)  
  if isnull(content) then
    content=""
  end if
  set regex=new regexp
  regex.pattern=patrn
  regex.ignorecase=true
  regex.global=true
  replacehtml=regex.replace(content,strng)
end function