過濾超級(jí)鏈接?
復(fù)制代碼 代碼如下:
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代碼?
復(fù)制代碼 代碼如下:
Function RemoveHTML(strHTML)?
Dim objRegExp, Match, Matches?
Set objRegExp = New Regexp?
objRegExp.IgnoreCase = True?
objRegExp.Global = True?
'取閉合的<>?
objRegExp.Pattern = "<.+?>"?
'進(jìn)行匹配?
Set Matches = objRegExp.Execute(strHTML)?
' 遍歷匹配集合，并替換掉匹配的項(xiàng)目?
For Each Match in Matches?
strHtml=Replace(strHTML,Match.Value,"")?
Next?
RemoveHTML=strHTML?
Set objRegExp = Nothing?
End Function

過濾所有HTML代碼 和空格換行?
復(fù)制代碼 代碼如下:
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使用正則表達(dá)式去除script代碼和HTML代碼?
一、清楚內(nèi)容中的Javsscript 代碼 這個(gè)代碼的作用是去掉用<script </script>標(biāo)記包含的所有部分。?
根據(jù)實(shí)際需要，它也許不能滿足要求。如果用在屏蔽客戶提交代碼的地方，應(yīng)保證這一步在最后執(zhí)行。?
很多人還會(huì)拼湊這樣的標(biāo)記，應(yīng)小心。?
復(fù)制代碼 代碼如下:
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

二、清除內(nèi)容中的HTML代碼?
復(fù)制代碼 代碼如下:
Function ClearHTMLCode(originCode)?
Dim reg?
set reg = new RegExp?
reg.Pattern = "<[^>]*>"?
reg.IgnoreCase = True?
reg.Global = True?
ClearHTMLCode = reg.Replace(originCode, "")?
End Function

復(fù)制代碼 代碼如下:
<js jsid="1" jsname="去除內(nèi)容頁(yè)里干擾信息"><![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("_網(wǎng)易新聞中心","");?
/*?
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常用的正則過濾函數(shù) 可過濾html js style div font

開發(fā)程序，經(jīng)常要用到正則表達(dá)式進(jìn)行過濾一些不需要的東西，比如html js style div font，有時(shí)候需要過濾極個(gè)別的，有時(shí)候需要過濾好幾種，不管怎么過濾，萬(wàn)變不離其宗。?
這是我收藏的一些過濾函數(shù)，可以用來(lái)過濾您不需要的代碼。如果需要過濾多種，可以嵌套使用，也可以自己整合代碼。不過不建議嵌套使用，因?yàn)槟菢有侍汀?
Asp 正則表達(dá)式 過濾 所有 html 標(biāo)記 ：?
復(fù)制代碼 代碼如下:
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 正則表達(dá)式 過濾 style 標(biāo)記 ：?
regEx.Pattern = "(<style)+[^<>]*>[^\0]*(<\/style>)+"?
Asp 正則表達(dá)式 過濾 層 div 標(biāo)記 ：?
regEx.Pattern = "<(\/){0,1}div[^<>]*>"?
Asp 正則表達(dá)式 過濾 鏈接 a 標(biāo)記 ：?
regEx.Pattern = "<(\/){0,1}a[^<>]*>"?
Asp 正則表達(dá)式 過濾 字體 font 標(biāo)記 ：?
regEx.Pattern = "<(\/){0,1}font[^<>]*>"?
Asp 正則表達(dá)式 過濾 span 標(biāo)記 ：?
regEx.Pattern = "<(\/){0,1}span[^<>]*>"?
Asp 正則表達(dá)式 過濾 object 標(biāo)記 ：?
regEx.Pattern = "<object.*?/object>"?
Asp 正則表達(dá)式 過濾 iframe 標(biāo)記：?
regEx.Pattern = "(<iframe){1,}[^<>]*>[^\0]*(<\/iframe>){1,}"?
Asp 正則表達(dá)式 過濾 script ：?
regEx.Pattern = "(<script){1,}[^<>]*>[^\0]*(<\/script>){1,}"?
Asp 正則表達(dá)式 過濾 Class 標(biāo)記 ：?
regEx.Pattern = "(class=){1,}(""|\'){0,1}\S+(""|\'|>|\s){0,1}"?
字符串替換 Replace 的正則表達(dá)式 ：?
復(fù)制代碼 代碼如下:
<%?
Function ReplaceReg(str,patrn,replStr,Ignor)?
'=========================================?
'參數(shù)解釋:?
'str 原來(lái)的字符串?
'patrn 要替換的字符串（正則表達(dá)式）?
'replStr 要替換成的字符串?
'Ignor 是否區(qū)分大小寫(1不區(qū)分,0區(qū)分)?
'=========================================?
Dim regEx ' 建立變量。?
If Ingor=1 Then Ingor=true else Ingor=false?
Set regEx = New RegExp ' 建立正則表達(dá)式。?
regEx.Pattern = patrn ' 設(shè)置模式。?
regEx.IgnoreCase = Ignor ' 設(shè)置是否區(qū)分大小寫。?
regEx.Global=True?
ReplaceReg = regEx.Replace(str,replStr) ' 作替換。?
End Function?
'例如 將?www.xxx.com?替換成 <a href="http://www.jb51.net">www.jb51.net</a>?
Response.Write(ReplaceReg("腳本之家www.xxx.com","www\.xxx\.com","<a?href=""http://www.jb51.net"">www.jb51.net</a>",1))?
%>

轉(zhuǎn)載于:https://www.cnblogs.com/top5/archive/2010/08/06/1794183.html

總結(jié)

以上是生活随笔為你收集整理的ASP超级链接和HTML函数正则表达式 修正版的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。