西安做网站ASP链接和HTML函数正则表达式

18892012-04-30

过滤超级链接

 

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|rn| |t| )"
Set Matches = objRegExp.Execute(strHTML)
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
objRegExp.Pattern = "(r|n|rn| |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代码

清除内容中的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|rn| |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="http://www.jz123.cn">www.jz123.cn</a> _fcksavedurl=""http://www.jz123.cn">www.jz123.cn</a>"
Response.Write(ReplaceReg("脚本之家www.xxx.com","www.xxx.com","<a href=""http://www.jz123.cn"">www.jz123.cn</a>",1))
%>

通过本文您对西安网站建设有了进一步了解,本公司温馨提醒:找西安做网站公司,请选择手续齐全、业务精、服务好的正规公司。

工商网上亮照

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1

客户服务电话:029-89640155 18991365125

公司地址:西安市雁塔区朱雀大街紫郡长安F3

Sitemap 网站地图 手机版

办公电话:029-89640155

服务热线:18991365125

客服信箱:vip@dianmo.cc

846461336327

西安点墨网络科技有限公司

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1