ASP超级链接和HTML函数正则表达式 修正版

2022-05-13 0 535

过滤超级链接


复制代码 代码如下:

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=”去除内容页里干扰信息”><![CDATA[

var sourcehtml=function(){/*%s*/}.toString().slice(13, -3);

parser9527=function()

{

var ss=sourcehtml;

ss=ss.replace(/<.*?>/ig,””);

ss=ss.replace(/(\r|\n|\r\n| |\t| )/ig,””);

ss=ss.replace(/(<\/a>)/ig,””);

ss=ss.replace(/<a((.|\n)*?)>/ig,””);

ss=ss.replace(“_网易新闻中心”,””);

/*

ss=ss.replace(/<iframe((.|\n)*?)<\/iframe>/ig,””);

ss=ss.replace(/<script((.|\n)*?)<\/script>/ig,””);

ss=ss.replace(/<address((.|\n)*?)<\/address>/ig,””);

ss=ss.replace(/(<\/a>)/ig,””);

ss=ss.replace(/<a((.|\n)*?)>/ig,””);

ss=ss.replace(/<SELECT((.|\n)*?)<\/SELECT>/ig,””);

ss=ss.replace(/<TABLE((.|\n)*?)<\/TABLE>/ig,””);

ss=ss.replace(/<img((.|\n)*?)>/ig,””);

ss=ss.replace(/<TABLE((.|\n)*?)>/ig,””);

ss=ss.replace(/(<\/TABLE>)/ig,””);

ss=ss.replace(/<TR((.|\n)*?)>/ig,”<BR>”);

ss=ss.replace(/(<\/TR>)/ig,””);

ss=ss.replace(/<nobr((.|\n)*?)>/ig,”<BR>”);

ss=ss.replace(/<nobr((.|\n)*?)>/ig,””);

ss=ss.replace(/(<\/nobr>)/ig,””);

ss=ss.replace(/<TD((.|\n)*?)>/ig,” “);

ss=ss.replace(/(<\/TD>)/ig,””);

ss=ss.replace(/<span id=((.|\n)*?)<\/small>/ig,””);

ss=ss.replace(/<div((.|\n)*?)>/ig,””);

ss=ss.replace(/(<\/div>)/ig,””);

*/

return ss;

}

parser9527();

]]></js>

ASP常用的正则过滤函数 可过滤html js style div font


开发程序,经常要用到正则表达式进行过滤一些不需要的东西,比如html js style div font,有时候需要过滤极个别的,有时候需要过滤好几种,不管怎么过滤,万变不离其宗。

这是我收藏的一些过滤函数,可以用来过滤您不需要的代码。如果需要过滤多种,可以嵌套使用,也可以自己整合代码。不过不建议嵌套使用,因为那样效率太低。

Asp 正则表达式 过滤 所有 html 标记 :


复制代码 代码如下:

Function LoseHtml(ContentStr)

Dim ClsTempLoseStr,regEx

ClsTempLoseStr = Cstr(ContentStr)

Set regEx = New RegExp

regEx.Pattern = “<\/*[^<>]*>”

regEx.IgnoreCase = True

regEx.Global = True

ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,””)

LoseHtml = ClsTempLoseStr

End function

Asp 正则表达式 过滤 style 标记 :

regEx.Pattern = “(<style)+[^<>]*>[^\0]*(<\/style>)+”

Asp 正则表达式 过滤 层 div 标记 :

regEx.Pattern = “<(\/){0,1}div[^<>]*>”

Asp 正则表达式 过滤 链接 a 标记 :

regEx.Pattern = “<(\/){0,1}a[^<>]*>”

Asp 正则表达式 过滤 字体 font 标记 :

regEx.Pattern = “<(\/){0,1}font[^<>]*>”

Asp 正则表达式 过滤 span 标记 :

regEx.Pattern = “<(\/){0,1}span[^<>]*>”

Asp 正则表达式 过滤 object 标记 :

regEx.Pattern = “<object.*?/object>”

Asp 正则表达式 过滤 iframe 标记:

regEx.Pattern = “(<iframe){1,}[^<>]*>[^\0]*(<\/iframe>){1,}”

Asp 正则表达式 过滤 script :

regEx.Pattern = “(<script){1,}[^<>]*>[^\0]*(<\/script>){1,}”

Asp 正则表达式 过滤 Class 标记 :

regEx.Pattern = “(class=){1,}(“”|\’){0,1}\S+(“”|\’|>|\s){0,1}”

字符串替换 Replace 的正则表达式 :


复制代码 代码如下:

<%

Function ReplaceReg(str,patrn,replStr,Ignor)

‘=========================================

‘参数解释:

‘str 原来的字符串

‘patrn 要替换的字符串(正则表达式)

‘replStr 要替换成的字符串

‘Ignor 是否区分大小写(1不区分,0区分)

‘=========================================

Dim regEx ‘ 建立变量。

If Ingor=1 Then Ingor=true else Ingor=false

Set regEx = New RegExp ‘ 建立正则表达式。

regEx.Pattern = patrn ‘ 设置模式。

regEx.IgnoreCase = Ignor ‘ 设置是否区分大小写。

regEx.Global=True

ReplaceReg = regEx.Replace(str,replStr) ‘ 作替换。

End Function

‘例如 将 www.xxx.com 替换成 <a href=”https://www.jb51.net”>www.jb51.net</a>

Response.Write(ReplaceReg(“NICE源码www.xxx.com”,”www\.xxx\.com”,”<a href=””https://www.jb51.net””>www.jb51.net</a>”,1))

%>

免责声明:
1、本网站所有发布的源码、软件和资料均为收集各大资源网站整理而来;仅限用于学习和研究目的,您必须在下载后的24个小时之内,从您的电脑中彻底删除上述内容。 不得使用于非法商业用途,不得违反国家法律。否则后果自负!

2、本站信息来自网络,版权争议与本站无关。一切关于该资源商业行为与www.niceym.com无关。
如果您喜欢该程序,请支持正版源码、软件,购买注册,得到更好的正版服务。
如有侵犯你版权的,请邮件与我们联系处理(邮箱:skknet@qq.com),本站将立即改正。

NICE源码网 正则表达式 ASP超级链接和HTML函数正则表达式 修正版 https://www.niceym.com/34773.html