'清除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("?","",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=contentend 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