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即可。
推荐阅读
aspJpeg图片水印有杂点的完美解决方法
操作实现函数: 复制代码 代码如下: Function AddWater(n) Set Photo = Server.CreateObject("Persits.Jpeg") PhotoPath = Server.MapPath(n) Photo.Open PhotoPath Photo.Interpolation=1 Photo.Quality=100 iWid>>>详细阅读
本文标题:asp中去除html中style,javascript,css代码
地址:http://www.17bianji.com/kaifa2/ASP/31916.html
1/2 1