xml地图|网站地图|网站标签 [设为首页] [加入收藏]

asp常用的正则表达式实现字符串的替换,ASP超级

来源:http://www.ccidsi.com 作者:集成经验 人气:76 发布时间:2019-11-20
摘要:Function LoseStyleTag(ContentStr)     Dim ClsTempLoseStr,RegEx         ClsTempLoseStr = Cstr(ContentStr)     Set RegEx = New RegExp         RegEx.Pattern = "(style){1,}[^]*[^]*(/style){1,}"         

Function LoseStyleTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
        ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
        RegEx.Pattern = "(<style){1,}[^<>]*>[^\0]*(</style>){1,}"
        RegEx.IgnoreCase = True
        RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseStyleTag = ClsTempLoseStr
    Set RegEx = Nothing
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>

删除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,"")
    Set RegEx = Nothing
    LoseHtml = ClsTempLoseStr
End function
除去网页中的class
Function LoseClassTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
        ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
        RegEx.Pattern = "(class=){1,}(""|'){0,1}S (""|'|>|s){0,1}"
        RegEx.IgnoreCase = True
        RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseClassTag = ClsTempLoseStr
    Set RegEx = Nothing
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

Function LoseNoteTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
        ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
        RegEx.Pattern = "<!--/*[^<>]*-->"
        RegEx.IgnoreCase = True
        RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseNoteTag = ClsTempLoseStr
    Set RegEx = Nothing
End Function

过滤一级链接 
复制代码 代码如下:
Function RegRemoveHref(HTMLstr) 
Set ra = New RegExp 
ra.IgnoreCase = True 
ra.Global = True 
ra.Pattern = "<A[^>] >(. ?)</A>" 
RegRemoveHref = ra.replace(HTMLstr,"$1") 
END Function

Function LoseTableTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
        ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
        RegEx.Pattern = "<(皇家娱乐游戏,/){0,1}table[^<>]*>"
        RegEx.IgnoreCase = True
        RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseTableTag = ClsTempLoseStr
    Set RegEx = Nothing
End Function

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

Function LoseScriptTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
        ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
        RegEx.Pattern = "(<script){1,}[^<>]*>[^\0]*(</script>){1,}"
        RegEx.IgnoreCase = True
        RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseScriptTag = ClsTempLoseStr
    Set RegEx = Nothing
End Function

Function LoseObjectTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
        ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
        RegEx.Pattern = "(<object){1,}[^<>]*>[^\0]*(</object>){1,}"
        RegEx.IgnoreCase = True
        RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseObjectTag = ClsTempLoseStr
    Set RegEx = Nothing
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="> 
Response.Write(ReplaceReg("脚本之家www.xxx.com","www.xxx.com","<a href="")) 
%>

Function LoseIFrameTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
        ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
        RegEx.Pattern = "(<iframe){1,}[^<>]*>[^\0]*(</iframe>){1,}"
        RegEx.IgnoreCase = True
        RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseIFrameTag = ClsTempLoseStr
    Set RegEx = 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

本文由68399皇家赌场发布于集成经验,转载请注明出处:asp常用的正则表达式实现字符串的替换,ASP超级

关键词: 68399皇家赌场 ASP 正则式 正则表达式

上一篇:应用程序文件的编译过程,声明符号

下一篇:没有了

最火资讯