'清除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