[點(diǎn)晴永久免費(fèi)OA]【ASP】采用正則過(guò)濾掉危險(xiǎn)的HTML標(biāo)記：script/ifame/object
對(duì)于提交的HTML代碼，如果含有script，iframe,frameset等標(biāo)記，對(duì)網(wǎng)站本身會(huì)構(gòu)成一定的潛在威脅，使用下面的函數(shù)可以過(guò)濾掉指定的HTML標(biāo)記。
注： 1.對(duì)于單標(biāo)記(如：<hr />,<br />等)，因其對(duì)網(wǎng)站本身不會(huì)構(gòu)成威脅，故未將單標(biāo)記納過(guò)過(guò)濾范圍。 2.參數(shù)strHTML：待過(guò)濾處理的HTML代碼內(nèi)容 3.參數(shù)strTAGs：為待過(guò)濾掉的HTML標(biāo)記名，各標(biāo)記名以英文逗號(hào)( , )為間隔 代碼如下:<% 'Wrtten by i{At}CnLei.Com Function lFilterBadHTML(byval strHTML,byval strTAGs) Dim objRegExp,strOutput Dim arrTAG,i arrTAG=Split(strTAGs,",") Set objRegExp = New Regexp strOutput=strHTML objRegExp.IgnoreCase = True objRegExp.Global = True For i=0 to UBound(arrTAG) objRegExp.Pattern = "<"&arrTAG(i)&"[\s\S]+</"&arrTAG(i)&"*>" strOutput = objRegExp.Replace(strOutput, "") Next Set objRegExp = Nothing lFilterBadHTML = strOutput End Function 'Example Dim sPageCont sPageCont= "...網(wǎng)頁(yè)正文內(nèi)容..." sPageCont=FilterBadHTML(sPageCont,"script,iframe,object,table") %> 該文章在 2022/7/4 9:58:05 編輯過(guò) |
關(guān)鍵字查詢
相關(guān)文章
正在查詢... 
|
400 186 1886
