ASP超级链接和HTML函数正则表达式 修正版
导读：收集整理的这篇文章主要介绍了ASP超级链接和HTML函数正则表达式 修正版，觉得挺不错的，现在分享给大家，也给大家做个参考。 过滤超级链接 复制代码 代码如下:Function RegR...
收集整理的这篇文章主要介绍了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="去除内容页里干扰信息"> ![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.js-code.com"> www.js-code.com/a>
Response.WrITe(ReplaceReg("www.xxx.com","www\.xxx\.com","a href=""https://www.js-code.com""> www.js-code.com/a> ",1))
%>
您可能感兴趣的文章:
- ASP中过滤UBB和Html标签
- HTML标签及ASP函数速查表
- ASP.NET使用正则表达式屏蔽垃圾信息
- ASP正则表达式技巧
- ASP 正则表达式常用的几种方法(execute、test、replace)
- asp 使用正则表达式替换word中的标签，转为纯文本
- asp.net正则表达式删除指定的HTML标签的代码
- asp正则表达式使用详解
- asp的RegExp对象正则表达式功能用法[比较全]
- 正则表达式速查表（ASP.NET）
- asp自动补全html标签自动闭合(正则表达式)
- ASP正则表达式清除HTML指定标签的方法
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： ASP超级链接和HTML函数正则表达式 修正版
本文地址： https://pptw.com/jishu/595604.html