首页 | 源码下载 | 网站模板 | 网页特效 | 广告代码 | 网页素材 | 字体下载 | 书库 | 站长工具
会员投稿 投稿指南 RSS订阅
当前位置:主页>网络编程>ASP教程>资讯:asp中去除html中style,javascript,css代码

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

www.jz123.cn  2010-10-25   来源:   中国建站    责任编辑(袁袁)    我要投递新闻

  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
%>


上一篇:asp获取远程网页的指定内容的实现代码 下一篇:一个较新的ASP后门服务端实现代码

评论总数:0 [ 查看全部 ] 网友评论


关于我们隐私版权广告服务友情链接联系我们网站地图