asp中实现清除html的函数，asp清除html函数

这个函数是必需要的，很多黑客来捣乱，黑掉数据库，会注入大量的病毒js，在存储和展示文本数据的时候，使用此函数过滤一下，可避免不少麻烦

clearhtml代码

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

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

上一篇：ASP程序传文件提示 80004005 错误的原因及解决办法

下一篇：如何快速打造优质的SEO内部链接系统？