asp中去除html中style,javascript,css代码

　　<%

　　Function RemoveHTML(str)

　　Dim objRegExp, Match,strHTML

　　if isnull(str) then

　　str=""

　　end if

　　strHTML=str

　　strHTML=replace(replace(replace(strHTML,vblf,""),vbcr,""),vbcrlf,"")

　　Set objRegExp = New Regexp

　　objRegExp.IgnoreCase = True

　　objRegExp.Global = True

　　objRegExp.Pattern = "<script[^>]*?>.*?</script>"

　　strHTML = objRegExp.Replace(strHTML,"")

　　objRegExp.Pattern = "<style[^>]*?>.*?</style>"

　　strHTML = objRegExp.Replace(strHTML,"")

　　objRegExp.Pattern = "<.+?>"

　　strHTML = objRegExp.Replace(strHTML,"")

　　Set objRegExp = Nothing

　　RemoveHTML=strHTML

　　End Function

　　%>

　　<?php

　　$search = array ("'<script[^>]*?>.*?</script>'si", // 去掉 javascript

　　"'<style[^>]*?>.*?</style>'si", // 去掉 css

　　"'<[/!]*?[^<>]*?>'si", // 去掉 HTML 标记

　　"'<!--[/!]*?[^<>]*?>'si", // 去掉 注释标记

　　"'([rn])[s]+'", // 去掉空白字符

　　"'&(quot|#34);'i", // 替换 HTML 实体

　　"'&(amp|#38);'i",

　　"'&(lt|#60);'i",

　　"'&(gt|#62);'i",

　　"'&(nbsp|#160);'i",

　　"'&(iexcl|#161);'i",

　　"'&(cent|#162);'i",

　　"'&(pound|#163);'i",

　　"'&(copy|#169);'i",

　　"'&#(d+);'e"); // 作为 PHP 代码运行

　　$replace = array ("",

　　"",

　　"",

　　"",

　　"\1",

　　"\"",

　　"&",

　　"<",

　　">",

　　" ",

　　chr(161),

　　chr(162),

　　chr(163),

　　chr(169),

　　"chr(\1)");

　　//$document为需要处理字符串，如果来源为文件可以$document = file_get_contents('http://www.sina.com.cn');

　　$out = preg_replace($search, $replace, $document);

　　echo $out;

　　?>