asp函数代码
复制代码 代码如下:
%
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中的代码
复制代码 代码如下:
?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;
?>
存为get.php即可。
您可能感兴趣的文章:- javascript实现去除HTML标签的方法
- php正则去除网页中所有的html,js,css,注释的实现方法
- js函数获取html中className所在的内容并去除标签
- php中去除所有js,html,css代码
- JSP输出HTML时产生的大量空格和换行的去除方法
- js中去除字符串中所有的html标签代码实例
