来源：自学PHP网 时间：2014-10-28 17:28 作者： 阅读:次
[导读] ASP超级链接和HTML函数 正则表达式的使用，最后一个实例经过测试。...
|
过滤超级链接 复制代码 代码如下: Function RegRemoveHref(HTMLstr) Set ra = New RegExp ra.IgnoreCase = True ra.Global = True ra.Pattern = "<A[^>]+>(.+?)<\/A>" RegRemoveHref = ra.replace(HTMLstr,"$1") END Function 过滤所有HTML代码 复制代码 代码如下: Function RemoveHTML(strHTML) Dim objRegExp, Match, Matches Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True '取闭合的<> objRegExp.Pattern = "<.+?>" '进行匹配 Set Matches = objRegExp.Execute(strHTML) ' 遍历匹配集合，并替换掉匹配的项目 For Each Match in Matches strHtml=Replace(strHTML,Match.Value,"") Next RemoveHTML=strHTML Set objRegExp = Nothing End Function 过滤所有HTML代码 和空格换行 复制代码 代码如下: Function RemoveHTML(strHTML) Dim objRegExp, Match, Matches Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "<.+?>" 'objRegExp.Pattern = "(\r|\n|\r\n| |\t| )" Set Matches = objRegExp.Execute(strHTML) For Each Match in Matches strHtml=Replace(strHTML,Match.Value,"") Next objRegExp.Pattern = "(\r|\n|\r\n| |\t| )" Set Matches = objRegExp.Execute(strHTML) For Each Match in Matches strHtml=Replace(strHTML,Match.Value,"") Next RemoveHTML=strHTML Set objRegExp = Nothing End Function asp使用正则表达式去除script代码和HTML代码 一、清楚内容中的Javsscript 代码 这个代码的作用是去掉用<script </script>标记包含的所有部分。 根据实际需要，它也许不能满足要求。如果用在屏蔽客户提交代码的地方，应保证这一步在最后执行。 很多人还会拼凑这样的标记，应小心。 复制代码 代码如下: Function ClearJSCode(originCode) Dim reg set reg = New RegExp reg.Pattern = "<SCRIPT[^<]*</SCRIPT>" reg.IgnoreCase = True reg.Global = True clearJSCode = reg.Replace(originCode, "") End Function 二、清除内容中的HTML代码 复制代码 代码如下: Function ClearHTMLCode(originCode) Dim reg set reg = new RegExp reg.Pattern = "<[^>]*>" reg.IgnoreCase = True reg.Global = True ClearHTMLCode = reg.Replace(originCode, "") End Function 复制代码 代码如下: <js jsid="1" jsname="去除内容页里干扰信息"><