欢迎来到福编程网，本站提供各种互联网专业知识！
手机版
微信关注
快捷导航
正则表达式 AJAX相关 黑客相关 相关技巧 Mysql MsSql MsSql2005 MsSql2008 MariaDB Oracle Access SQLite PostgreSQL MongoDB DB2 Redis 数据库文摘 数据库其它 LINUX RedHat/Centos Ubuntu/Debian Fedora Solaris 红旗Linux Unix/BSD 苹果MAC 麒麟系统 注册表 BIOS 系统安装 系统进程 Fireworks教程
您的位置：网站首页 > 网络编程 > 正则表达式

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

发布时间：2010-01-02　作者：　来源：转载
标签： 雪佛兰 通用 奢华 劳斯莱斯 旗舰版 64位 收藏夹 解调器
ASP超级链接和HTML函数正则表达式的使用，最后一个实例经过测试。
过滤超级链接
复制代码 代码如下:
Function RegRemoveHref(HTMLstr)
Set ra = New RegExp
ra.IgnoreCase = True
ra.Global = True
ra.Pattern = "]+>(.+?)"
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代码
一、清楚内容中的Javsscript 代码 这个代码的作用是去掉用"
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

复制代码 代码如下:
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(/()/ig,"");
ss=ss.replace(//ig,"");
ss=ss.replace("_网易新闻中心","");
/*
ss=ss.replace(//ig,"");
ss=ss.replace(//ig,"");
ss=ss.replace(//ig,"");
ss=ss.replace(/()/ig,"");
ss=ss.replace(//ig,"");
ss=ss.replace(//ig,"");
ss=ss.replace(//ig,"");
ss=ss.replace(//ig,"");
ss=ss.replace(//ig,"");
ss=ss.replace(/()/ig,"");
ss=ss.replace(//ig,"
");
ss=ss.replace(/()/ig,"");
ss=ss.replace(//ig,"
");
ss=ss.replace(//ig,"");
ss=ss.replace(/()/ig,"");
ss=ss.replace(//ig," ");
ss=ss.replace(/()/ig,"");
ss=ss.replace(//ig,"");
ss=ss.replace(//ig,"");
ss=ss.replace(/(

)/ig,"");
*/
return ss;
}
parser9527();
]]>

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 = "(]*>[^]*()+"
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 = ""
Asp 正则表达式 过滤 iframe 标记：
regEx.Pattern = "(]*>[^]*(){1,}"
Asp 正则表达式 过滤 script ：
regEx.Pattern = "(]*>[^]*(){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 替换成 www.jb51.net
Response.Write(ReplaceReg("全福编程网www.xxx.com","www.xxx.com","www.jb51.net",1))
%>

相关推荐

文章分类

PHP编程 正则表达式 JavaScript CSS/HTML XML/RSS AJAX相关 黑客相关 相关技巧

热门关键词

雪佛兰 通用 奢华 劳斯莱斯 旗舰版 64位 收藏夹 解调器 网卡 网线 分辨率 家电 4k 显示器 header USER_AGENT 色彩 图形 商业 生成

热门文章

最新更新

网站首页 　|　关于我们 　|　免责声明 　|　广告合作 　|　联系我们
Copyright @ 2015-2024 福编程 fuphp All Rights Reserved.
豫ICP备15036959号-4